イベントプロシージャを利用しておえかき【ExcelVBA】

Excelのセルをドット絵を描くイメージで作成。

パレットを選択すれば今の色というセルに色が付き、選択したセルが今の色セルに応じて色付けできるもの。

WorkSheetのSelectionChangeのイベントプロシージャを使用。

実際に使用したサンプルコード

---------------------------------

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim 今の色セル As Range
Set 今の色セル = Range("Y24")

Dim パレットセル As Range
Set パレットセル = Range("Y2", "Y21")

Dim おえかきセル As Range
Set おえかきセル = Range("B2", "W24")

'パレットセルを選択したら今の色セルが変わるようにする
If Application.Intersect(Target, パレットセル) Is Nothing = False Then

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim 今の色セル As Range
Set 今の色セル = Range("Y24")

Dim パレットセル As Range
Set パレットセル = Range("Y2", "Y21")

Dim おえかきセル As Range
Set おえかきセル = Range("B2", "W24")

'パレットセルを選択したら今の色セルが変わるようにする
If Application.Intersect(Target, パレットセル) Is Nothing = False Then

'おえかきセルを選択したら描けるようにする
ElseIf Application.Intersect(Target, おえかきセル) Is Nothing = False Then

End If

End Sub