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

個人用マクロブック

個人用マクロブック(VBA)

同じマクロを何度も作成している場合は、自分のコンピューターに保存されている Personal.xlsb という特別なブックにマクロをコピーしておくことができます。

ブック毎に、マクロを作っていたのが、一元管理ができる。