Question

启用选项按钮后，我试图解锁组合框。我在模块中使用以下代码，但是当我运行代码并选择选项时，组合框保持锁定

If Custom = True Then
  FromMonth.Locked = False
  FromYear.Locked = False
  ToMonth.Locked = False
  ToYear.Locked = False
End If

我希望找到一种方法来同时单击用户窗体中的选项按钮，并使其解锁旁边的组合框

Answer 1

您可以使用选项按钮更改事件，并确保将代码添加到用户窗体代码模块而非普通模块中

您的代码可以是这样的

Private Sub Custom_Change()
  FromMonth.Locked = Not Custom.Value
  FromYear.Locked = Not Custom.Value
  ToMonth.Locked = Not Custom.Value
  ToYear.Locked = Not Custom.Value
End Sub

选择选项按钮后解锁组合框

1 个答案: