エクセルVBA(マクロ)簡単に方眼紙ベースができるマクロ

こんにちは。シバマメです！

エクセルで簡単に方眼紙ベースができるマクロです。

すべてのセルを、指定したピクセル数で、

ほぼほぼ正方形にします。

ガントチャートなどを作成する場合に便利です！

いつでも使えるように、同時にショートカット登録もできるマクロです。

手順

個人用マクロブックに下記のコードをコピーペースト
[個人用マクロブックにコードを記入する方法]
F5キーか、▶ボタンでマクロを実行
何ピクセルくらいの正方形にするかインプットボックスに質問されます。
適当な数字をいれてOK
このマクロを実行すると、ショートカットも登録されます。
次回からは、[SHIFT]+[J]で実行できます。
コードの3行目の”^J”を変更すれば、ショートカットを他のキーに割当できます。

Sub hoboseihoukeiShortcut()

    Application.OnKey "^j", "hoboseihoukei"
   
    hoboseihoukei

End Sub
Sub hoboseihoukei()
'
    Dim Poin As Long
    Dim Cwidth As Integer
    Dim Rheight As Integer
   
   
    Poin = InputBox("何ポイントの正方形にしますか？")

    Cwidth = Poin * 0.109
    Rheight = Poin * 0.795
   
   
    Cells.Select
    Selection.ColumnWidth = Cwidth
    Selection.RowHeight = Rheight
End Sub