ActiveXコントロール×チェックボックス【ExcelVBA】

Excelのシート上のチェックボックスのONOFFを纏めてする方法と、チェックボックスのチェックがついているセルを取得し転記する

実際に使用したコード

------------------------

Public Sub sample()

’ActiveXコントロール
Dim チェックボックス As OLEObject

For Each チェックボックス In Worksheets("説明").OLEObjects
If チェックボックス.Name Like "CheckBox*" Then
If チェックボックス.Object.Value = True Then
チェックボックス.TopLeftCell.Offset(0, 1).Resize(1, 3).Copy Destination:= _
Worksheets("Data").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
End If
Next

End Sub

---

全てのチェックボックスにチェックをつける場合
Private Sub ALL_Click()

Dim チェックボックス As OLEObject

For Each チェックボックス In Worksheets("説明").OLEObjects
If チェックボックス.Name Like "CheckBox*" Then
チェックボックス.Object.Value = ALL.Value
End If
Next

End Sub