因业务需求,不适合使用Excel的combobox捕捉事件处理。需求用数据有效性来定义下拉菜单,并当选项变更时触发事件。经学习发现,在每个表格的独立VBA代码内可以配置事件触发管理。
如图:
代码如下:
Private Sub Worksheet_Change(ByVal Target As range)
'当单元格D20被改变触发该事件 - 选择行业
If Target.Cells.Column = 4 And Target.Cells.Row = 20 Then
Call selectBusiness
End If
End Sub
当该单元格变更数值时,会触发该事件,并调用模块文件中的函数selectBusiness()
当前单元格格式/内容对于事件触发并无影响,如本文档内D20单元格是使用数据有效性显示的下拉菜单,当选择项变更依然可以正常触发该事件。