VBA でコントロールを引数に渡す場合

VBA でコントロールを引数に渡す場合

Object で引数を受けて、コントロール名.Objectで渡してあげる。


Private Sub CheckBox1_Click()

    hoge CheckBox1.Object

End Sub


Sub hoge(ctrl As Object)

    If ctrl.Value Then
        MsgBox ("clicked")
        ctrl.BackColor = vbRed
     
    Else
        MsgBox ("Not clicked")

        ctrl.BackColor = vbWhite

     
    End If

End Sub