excel宏弹出一个有多个选项的弹窗怎么写？

szdy

请问各位老师，想让excel宏弹出一个MSGBOX，其中包含三个选项：“选项一”，“选项二”，“选项三”，选择“选项一”后使变量a=1
选择“选项二”后使变量a=2
选择“选项三”后使变量a=3
如何实现呢？

蓝桥玄霜

请见附件。

蓝桥玄霜

1. Private Sub ListBox1_Click()
   
2. If Me.ListBox1.Value = "选项一" Then MsgBox "a=1"
   
3. If Me.ListBox1.Value = "选项二" Then MsgBox "a=2"
   
4. If Me.ListBox1.Value = "选项三" Then MsgBox "a=3"
   
5. End Sub
   
6. 
   
7. Private Sub UserForm_Initialize()
   
8. ar = Array("选项一", "选项二", "选项三")
   
9. Me.ListBox1.List = ar
   
10. End Sub
    

复制代码

蓝桥玄霜

If Me.ListBox1.Value = "选项一" Then MsgBox "a=1":Userform1.Hide

szdy

蓝桥玄霜 发表于 2014-11-17 19:28
请见附件。

正是我想要的，还有个问题就是选择选项后怎么自动关闭选项窗口呢

szdy

蓝桥玄霜 发表于 2014-11-18 09:44
If Me.ListBox1.Value = "选项一" Then MsgBox "a=1":Userform1.Hide

太好了，谢谢老师了！

香川群子

也可以这样一句代码解决，更简单！

变量a a = InputBox("输入选项=1/2/3", "选项", 1)


默认InputBox是文本型数值结果。如果需要转为数值，外套Val()函数即可。
a = Val(InputBox("输入选项=1/2/3", "选项", 1))

szdy

香川群子 发表于 2014-11-18 10:20
也可以这样一句代码解决，更简单！

变量a a = InputBox("输入选项=1/2/3", "选项", 1)

确实挺简单，弹窗后手动输入就是费事了的点，要是有几个选项点击选择就好了

香川群子

szdy 发表于 2014-11-20 15:13
确实挺简单，弹窗后手动输入就是费事了的点，要是有几个选项点击选择就好了

楼主 鼠标控……我是键盘党。高手都是玩键盘的。

szdy

香川群子 发表于 2014-11-20 16:26
楼主 鼠标控……我是键盘党。高手都是玩键盘的。

我先存起来，以后练习成键盘党时用，谢谢键盘党老师!哈哈！