Excelマクロをセル単位で処理するためのマクロ

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

だから私はあなたがアクティブ使用していると思います（私は、単一のセルでテストできるように追加するには、私は複数のセル内のラジオボタンがあり、私はここにコードを変更）：ここで私はこれまで持っているものです-X-Controls。 OptionButtonに電話するには、Worksheetsメソッドを使用する必要があります。ボタンは、最初の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扱います。 F8を使用してその上にカーソルを置くと、空であると表示されます。