即効テクニック |
フォームツールバーのチェックボックスやドロップダウンコンボボックスなどをシートに配置した場合で、入力前の初期化を行う際、一括で処理を行う場合は次のようになります。 (前提)フォームツールバーのチェックボックス、ドロップダウンコンボボックスをそれぞれ複数個ワークシート上に配置。 ●サンプル1●
Sub InitializeFormControls() Dim obj As Object For Each obj In ActiveSheet.DrawingObjects If obj.Name Like "Check Box*" Then obj.Value = False ElseIf obj.Name Like "Drop Down*" Then obj.ListIndex = 0 End If Next End Sub●サンプル2●
Sub InitializeFormControls2() Dim i As Integer With ActiveSheet.CheckBoxes For i = 1 To .Count .Item(i).Value = False Next i End With With ActiveSheet.DropDowns For i = 1 To .Count .Item(i).ListIndex = 0 Next i End With End Sub