Excelでクリック・ゲームを作る

セルの背景色を変えるには

Target.Interior.Color = vbWhite

Targetは、クリックしたセルを白に変えます。

Target.Interior.Color = RGB(0, 200, 200) ' 背景色 水色

RGBで色を指定できるようです。

Target.Interior.ColorIndex = 35 ' 黄緑

ColorIndexはナンバーで指定するようです。

このパレットに番号がついてるようです。塗りつぶしなしは０番

セルの列幅・高さを設定する

セルの列幅・高さの取得

MsgBox (Columns(1).ColumnWidth & " / " & Cells(1, 1).RowHeight)

これだと、列幅は文字数、高さはポイントらしいです。値がバラバラ

セルを正方形にする

w = ActiveCell.Width
ActiveCell.RowHeight = w

アクティブセルを列幅で正方形にします。

VBAで罫線を自動で描く

Sub borderLine(n As Integer, R As Integer, C As Integer)
    With Range(Cells(R, C), Cells(R + n, C + n))
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlMedium
    End With
End Sub

罫線を消す

Public Sub clearLine()
    Range("A1:z50").ClearFormats
End Sub

画像を背景に挿入

シート全体に挿入するには

Public Sub backpic()
    ActiveSheet.SetBackgroundPicture ("F:\Youtube_now\Excel\nezumi_i22.png")
End Sub

シート全体に繰り返し画像が貼り付けられます。

背景画像の削除の仕方：

「ページレイアウト」＞「背景画像の削除」とクリックすればOK