!!編集中のため、現在この記事のコードは参照しないようにしてください
PERSONALに追加する
下記のコードをVBEのPERSONALに追加してください
※PERSONALについて知らない方は下記の記事を参考
https://vbabeginner.net/how-to-create-a-personal-macro-book/
Option Explicit
'----------------------------------------------------------------
'Key : Code
'----------------------------------------------------------------
'Shift : + (正符号) 他キーと組み合わせで使用
'Ctrl : ^ (カレット) 他キーと組み合わせで使用
'Alt : % (パーセント記号) 他キーと組み合わせで使用
'----------------------------------------------------------------
'a~z : {a} ~ {z}
'Enter : {ENTER}
'F1~F15 : {F1} ~ {F15}
'Esc : {ESC}
'BackSpace : {BACKSPACE} {BS}
'Break : {BREAK}
'CapsLock : {CAPSLOCK}
'Clear : {CLEAR}
'Delete : {DELETE}
'End : {END}
'Home : {HOME}
'Ins : {INSERT}
'PageDown : {PGDN}
'PageUp : {PGUP}
'Tab : {TAB}
'↓ : {DOWN}
'← : {LEFT}
'→ : {RIGHT}
'↑ : {UP}
'----------------------------------------------------------------
Public Sub squareAllCells()
Application.OnKey "+^{j}", "squareAllCells"
Dim pixel As Variant
Dim width As Long
Dim height As Long
pixel = InputBox("How many pixels do you want?")
If IsNumeric(pixel) = False Then
Exit Sub
End If
height = pixel * 0.6
width = pixel * 0.10956
Cells.Select
Selection.RowHeight = height
Selection.ColumnWidth = width
End Sub
ショートカットキーについて
Application.OnKey "+^{j}", "squareAllCells" のところは好きなショートカットに変えてください。
ショートカットの記述方法は「Application.OnKey」で調べればすぐ出てきますし、上のコメントブロックにも記載しています。
実行時の挙動
①設定したショートカットキーをシートの上で入力するとインプットボックスが表示されます
②任意のpixel数を入力し「OK」
③対象のシートの各セルの縦横が変更されます
※入力値が数値以外またはキャンセルを押したときは処理を終了します
30pixel前後だといい感じなんですが、数値が小さすぎたり大きすぎたりすると正方形じゃなくなってきます。
そのあたりはpixelの計算式をうまいこと調整してください。
↓ちなみに「30」を入力して実行するとこんな感じです
