Excel VBA 10行で書けるセル塗りつぶしお絵かきツール



あらかじめセルを好みの色で塗りつぶしたカラーパレットを用意し、そこから色を選んで、セルを塗りつぶすツールです。

セルをクリックして塗りつぶし、ダブルクリックで塗りつぶしを解除して無色にします。


ワークシートのB2~G2を好みの色で塗りつぶし、下記のコードをそのシートモジュールに貼り付けて使います。

ソースコード


'Copy the below code and paste it to a worksheet module

'Currently selected color

Private currentColor As Long


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'if the cell belongs to the color pallet

If Target.Row = 2 And Target.Column >= 2 And Target.Column <= 7 Then

'Set the selected color as currentlColor

currentColor = Target.Interior.ColorIndex

Else

'Fill the selected cell with currentColor

Target.Interior.ColorIndex = currentColor

End If

End Sub


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'No fill color

Target.Interior.ColorIndex = -4142


End Sub


特集記事
最新記事
アーカイブ
タグから検索
ソーシャルメディア
  • Facebook Basic Square
  • Twitter Basic Square
  • Google+ Basic Square