Excel クリックで塗りつぶしをしたい

f:id:JedenTag:20200730232531p:plain
図1 クリックすると塗りつぶし

手順

① 開発タブの挿入でActive Controlからラベルを選択する

② 右クリックでプロパティを選択する

➂ BorderStyleで1-fmborderstylesingleを選択する

④ Captionでラベル名を削除する。そのあと右上の閉じるボタンをクリック

⑤ 右クリックでコードを表示させる

⑥ 下記のコードをぶち込む

⑦ 色等は調整

終わり

 

Private Sub Label1_Click()


If Label1.BackColor = vbWhite Then
Label1.BackColor = vbBlack

Else: Label1.BackColor = vbBlack
Label1.BackColor = vbWhite


End If

End Sub

 ||<