Excelでドット絵作成ツールを作る その1
はじめに
先週までブロック積みゲーム
vba-belle-equipe.hatenablog.com
を作っていました。
その中で意外と時間を使ったのが、ご褒美画面。
なんでExcelでドット絵描くのこんなにめんどくさいんだよー*1
と、誰に頼まれたわけでもないのに頑張ってドット絵を描きながら、考えていたのが今回のツールです。
完成予想図
とりあえず、こんな感じになればいいな、というシートを作ってみました。
機能はそんなになくてもいいから、使いやすくできればいいなと。
言いつつも色々と追加しそうな感じもあるので、結構長期シリーズになるかもしれないなと。
マクロを使うので、「元に戻す」あたりをどうするかな、という感じです。*2
コード
現時点でのコードは
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim clr1 As Long '描画色 Dim r As Range Dim minCol As Long, maxCol As Long Dim minRow As Long, maxRow As Long If Target.Count > 100 Then Exit Sub End If clr1 = Range("B4").Interior.Color minCol = 5 maxCol = 22 minRow = 2 maxRow = 29 For Each r In Target If minCol <= r.Column And r.Column <= maxCol And _ minRow <= r.Row And r.Row <= maxRow Then ' Debug.Print r.Address r.Interior.Color = clr1 End If Next End Sub
こんな感じです。
シートモジュールで、特定の範囲が選択された時に「描画色」セルの色に変える、という感じにしています。