Excelでラジオボタンやチェックボックスのチェックを取得して数値にするためのVBAの書き方の一例です．

目次

  1. マクロ

マクロ

まず，取得したいシェイプの種類を変数に格納しておきます．
チェックボックスであれば，

Dim shape_name As String
shape_name = "Check Box"

ラジオボタンの場合，2行目は

shape_name = "Option Button"

となります．

次に，シェイプに付与された番号を指定します．
ここでは，1-100番まで指定するものとして，後でFor文を書くことにしましょう．

Dim i_first, i_last As Long  ' シェイプに割り当てられた番号（この例では1-100番が割り当てられているとする．）
i_first = 1
i_last = 100

Dim v(100) As Long

以上で準備ができました．
あるワークシートwsで，配列vに各チェックを格納するには，

ws.Activate
For i_first To i_last
	ws.Shapes(shape_name & " " & i).Select
	v(i - i_first) = Selection.Value
Next

とします．