根据在VBA中select另一个字段来重置字段

我在VBA中有一个名为cbo_deptCode的下拉字段。 每当用户从下拉列表cbo_deptCode中进行select时， 我想要清除另一组名为cbo_moduleCode和cbo_moduleName的字段，以清除当前的任何条目。 combobox是窗体控件。 我怎么能做到这一点？

Answer 1

将macros指定给cbo_deptCode。

在macros中有这样的代码：

Sub cbo_deptCode_Change() 'Update selected index for combo boxes to 0 IE no selection ActiveSheet.Shapes("cbo_moduleCode").OLEFormat.Object.Value = 0 ActiveSheet.Shapes("cbo_moduleName").OLEFormat.Object.Value = 0 End Sub 

如果cbo_moduleCode和cbo_moduleName与cbo_deptCode不在同一张表中，则需要指定表单而不是调用ActiveSheet。 而且，如果这些不是实际的控制名称，则这将失败。

编辑：如果你实际上使用Active-X控件（尽pipe你说过使用表单控件），格式更简单： Sheet.[controlname].value = "" IE ActiveSheet.cbo_moduleCode.Value = ""或者更复杂方法（不推荐），涉及形状：

ActiveSheet.Shapes("cbo_moduleCode").OLEFormat.Object.Object.Value = ""