Question

我在excel中创建一个宏来按单元格处理单选按钮，同时调试并逐步进行，似乎代码忽略了每次单选按钮是否为真。任何指针将不胜感激！以下是我到目前为止的内容:(再加上，我在多个单元格中有单选按钮，我在这里更改了代码，因此我可以在单个单元格上进行测试）

Sub RadioController()

Dim total As Integer
Dim pass As Integer
Dim fail As Integer
Dim rng As Range, cell As Range
Set rng = Range("L4")

    For Each cell In rng

        If radYes = True Then
            pass = pass + 1
            total = total + pass
        Else
            fail = fail + 1
        End If

    Next cell

    Range("K4") = total

End Sub

Answer 1

所以我猜你正在使用Active-X-Controls。您必须使用Worksheets方法呼叫OptionButton。因此，如果Button位于第一个Worksheet，那么它将是：

...
    For Each cell In rng

        If Worksheets(1).radYes = True Then
            pass = pass + 1
            total = total + pass
        Else
            fail = fail + 1
        End If

    Next cell
...

否则它将radYes作为Variable处理。如果您使用F8并将鼠标悬停在它上面，则应该说它是空的。

Excel宏用于按单元格处理单选按钮

1 个答案: