[已解决]求助Excel VBA 下拉框使用方法.

swallow52o

请求帮助,下拉框,按钮,使用方式,有高手的请帮忙写个简易例子,写上注释.好懂.
样本(参数).rar (14.25 KB, 下载次数: 64)

2012-6-14 21:07 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2012-6-15 07:52

样本(参数).rar (15.42 KB, 下载次数: 366)

2012-6-15 07:52 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

样本(参数).rar (15.76 KB, 下载次数: 95)

2012-6-14 21:31 上传

点击文件名下载附件
Sub TEST()
    arr = Sheet1.Range("B3:B5")
    Me.ComboBox1.List() = arr
    K = Array("有", "无")
    Me.ComboBox2.List() = K
End Sub

Sub 按钮3_Click()
  Range("P1") = "=SUM(D3:D5)"
End Sub

swallow52o

如果下拉框框被选中了,该如何去写执行命令呢.?

swallow52o

有一点没明白.如果我选择 有  触发一件事   如果我选无则不触发.该怎么写.?

zjdh

样本(参数).rar (15.42 KB, 下载次数: 366)

2012-6-15 07:52 上传

点击文件名下载附件

kkwith

学习了
Private Sub ComboBox2_Change()
   If ComboBox2 = "óD" Then MsgBox "ÄãÑ¡ÔñáË¡¾óD¡¿"
End Sub