Question

我需要根据变量列表禁用复选框。例如，如果用户在列表框中选择“西班牙”，则仅应允许使用某些复选框货币。

我有一个基于用户选择的值为1或0的货币表，此表会更新。零表示货币不可用。
我有一个读取列表的宏，它将禁用或启用各个列表框。但是，这是“ Worksheet_Change偶数”，并且不会通过列表框选择更改来调用。尽管我的范围在用户做出选择后会更新。因此，我认为我需要一个基于模块的宏，当用户进行列表框选择时会被调用，但是很难修改我当前的宏。

我当前的代码是：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim R As Range, c As Range, cb As OLEObject

' set a range where the cell will be either 1 or 0 depending on country selection

Set R = Me.Range("C115:C135")
If Not Intersect(Target, R) Is Nothing Then

' sets the checbox to zero if related cell value in range is zero

    For Each c In Intersect(Target, R)
        For Each cb In Me.OLEObjects
        ' Identifies the relevant Checkbox name based on related cell address
            If cb.Name Like "CheckBox" & Val(Split(c.Address, "$")(2)) - 14 Then
                cb.Enabled = c.Value > 0
            End If
        Next cb
    Next c
End If
End Sub

Answer 1

您需要在这里有点棘手。

首先，在所需的工作表中，您已在其中粘贴了代码，编写一个新的子程序，如下所示：

Sub MyMacro()
Call Worksheet_Change(ActiveCell) 'change ActiveCell for the range you want to be the target
End Sub

然后，从列表框的事件Change中尝试：

Private Sub ComboBox1_Change()
Call Hoja1.MyMacro 'Replace Hoja1 with the name of your worksheet in VBA.
End Sub

Answer 2

我实际上能够修改宏，因此可以直接在模块中使用它，也可以直接从列表框中调用它。见下文。谢谢大家的指教。抱歉，我难以缩进完整的代码。

Public Sub Checkboxupdate()

Dim R As Range, c As Range, cb As OLEObject, hb As CheckBox

Set R = Range("C115:C135")
If Not R Is Nothing Then

    For Each c In R
    On Error Resume Next
        For Each cb In ActiveSheet.OLEObjects
            If cb.Name Like "CheckBox" & Val(Split(c.Address, "$")(2)) - 14 Then

                cb.Enabled = c.Value > 0

            End If
        Next cb
    Next c
    End If

    MsgBox "Currency availability updated.", vbOKOnly

End Sub

如何基于Excel中的用户选择禁用复选框

2 个答案: