excel VBA 怎么用代码 指定下拉框的选中项

[_天空之城]

比如 我在下拉框 有 A，B，C三个项， 现在我要用代码 指定选中 B

并且我在选择了B和 触发一些事件。

[神马被哪个妞占用了呢]

为什么不先试试宏录制呢？

[风骑士之怒]

默认值
ComboBox1.AddItem "sheet1"
ComboBox1.AddItem "sheet2"
ComboBox1.AddItem "sheet3"

设置选择项
ComboBox1.Value = "sheet1"

ComboBox1选择项改变触发事件
Private Sub ComboBox1_Change()

ComboBox1.AddItem "tt"

End Sub

[_天空之城]

我的下拉框 不是 combox呀 是我用

sht.Cells(n, 26).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=str1
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With


VBA代码 指定生成的 因为我要循环很多数据 每一行的某一个列 就需要成下拉框那种形式

怎么给他添加上事件呢？