HOME > 即効テクニック > Excel VBA > シート操作関連のテクニック > シート上のフォームコントロールの値クリア

即効テクニック

シート操作関連のテクニック

シート上のフォームコントロールの値クリア

(Excel 97/2000)
フォームツールバーのチェックボックスやドロップダウンコンボボックスなどをシートに配置した場合で、入力前の初期化を行う際、一括で処理を行う場合は次のようになります。

(前提)フォームツールバーのチェックボックス、ドロップダウンコンボボックスをそれぞれ複数個ワークシート上に配置。

●サンプル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