当前位置：网站首页 > 热门文章 > 正文

如何从多个数据中选择一个，VBA函数技巧教你学会

bigegpt 2024-12-25 10:23 7 浏览

No.1

选择是一个特殊的数据筛选方法，由于其使用的实用性很强，所以VBA内置了一个选择函数

Choose，很显然，它的英文解释就是“选择”的意思。

如下是函数语法：

选择函数的语法很简单，只有两类参数，一类是索引号index，而且是唯一一个不能有两个索引，它是第一个参数；另一类是选择项，也就是变量表达式，这个参数可以有很多个，它限定了被选择项目，本函数的功能就是从这些被选择项目中，返回索引号的项目。

索引号从1开始，所以索引号不能超出被选择的参数项目总数。

No.2

下图为例，分别返回不同的日期格式和货币格式。

当选择不同的索引号的时候，单击按钮之后输出相应格式的日期和货币格式。

日期代码：

Private Sub CommandButton1_Click()
Dim n As Integer
n = Me.OLEObjects("ComboBox1").Object.Value
Dim cell As Range, cR As Range, cellStr As String
Set cell = Range("C3:C5")
cell.Item(cell.Count).Offset(1, 0).Value = "当前日期：" _
& vbCrLf & VBA.Format(VBA.Date, VBA.Choose(n, _
cell.Item(1), cell.Item(2), cell.Item(3)))
End Sub

货币代码：

Private Sub CommandButton2_Click()
Dim n As Integer
n = Me.OLEObjects("ComboBox2").Object.Value
Dim cell As Range, cR As Range, cellStr As String
Set cell = Range("j3:j5")
cell.Item(cell.Count).Offset(1, 0).Value = cell.Item(n).Offset(0, -1).Value _
& "：" & vbCrLf & VBA.Format(12345, VBA.Choose(n, _
cell.Item(1), cell.Item(2), cell.Item(3)))
End Sub

No.3

本例代码显得有些复杂，可配合表格才能完全展示效果。

如下是一个简单的Choose函数应用。

Dim Str As String

第1行，首先定义一个字符串变量。

Str = Choose(3, "A", "B", "C")

第2行，执行Choose函数将第3个选项结果赋值给变量Str。

MsgBox "选择输出第" & n & "个值: " & Str

第3行，输出对话框显示结果。

Choose函数理解起来十分简单，会数数字基本就可以明白其含意。

重点是要多练习，多实践，在不断的编程过程中会懂得其应用的妙处。

欢迎关注、收藏

r语言dim函数

上一篇：Excel里如何按颜色求和，这4种方法，总有一种适合你
下一篇：EXCEL表格横排数据变为竖排数据(VBA代码

如何从多个数据中选择一个，VBA函数技巧教你学会

No.1

No.2

No.3

相关推荐

idea本地配置连接远程hadoop集群的一些网络问题解决汇总

Ceph运维手册(基于P版本)

无缓存不行?例行升级的入门级阿斯加特AN2 SSD装机点评

大数据开发前要做什么准备?8台Hadoop服务器进行集群规划前配置

Tensorflow分类loss函数总结 tensorflow绘制loss曲线

R语言学习笔记(七) -离散型数据的模型预测2

iOS Runtime详解

7 个对 Java 意义重大的性能指标，你知道几个?

PHP 远程调试最佳实践

Laravel框架使用图片处理简单教程