choose 函数应用举个例子

来源：百度知道 编辑：UC知道 时间：2024/06/01 07:11:00
随便什么

Private Sub Command1_Click()
Dim mStr As String
Dim i As Integer

'Choose （从参数列表中选择并返回一个值。）
'例：
i = 3 '查询索引
mStr = Choose(i, "123", "456", "789", "abc", "def", "ghi", "jkl")
Debug.Print mStr '返回："789"

End Sub

在A3输入你的生日，看看你的生肖？

=CHOOSE(MOD(YEAR(A3)-4,12)+1,"鼠","牛","虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪")