月曜日, 5月 01, 2023

Excel VBA 15 
フォント調整の一発処理集とショートカット

フォント調整の一発処理集をまとめてみました。また、登録したVBAをショートカット登録します。

■選択したセルのフォントを1ポイント大きく変更
--------------------
Sub Font拡大()
For Each Cell In Selection
'選択したセルの最初から
Cell.Font.Size = Cell.Font.Size + 1
'セル内の文字を1ポイント大きくする
Next '繰り返す
End Sub
--------------------

■選択したセルのフォントを1ポイント小さく変更
--------------------
Sub Font縮小()
For Each Cell In Selection
'選択したセルの最初から
Cell.Font.Size = Cell.Font.Size - 1
'セル内の文字を1ポイント小さくする
Next '繰り返す
End Sub
--------------------

■選択したセルのフォントを太字に変更
--------------------
Sub Font太字()
For Each Cell In Selection
'選択したセルの最初から
Cell.Font.Bold = True
Next '繰り返す
End Sub
--------------------

■選択したセルのフォントをイタリック体に変更
--------------------
Sub Font斜体()
For Each Cell In Selection
'選択したセルの最初から
Cell.Font.Italic = True
'イタリックにする
Next '繰り返す
End Sub
--------------------

■選択したセルのフォントに下線を追加
--------------------
Sub Font下線()
For Each Cell In Selection
'選択したセルの最初から
Cell.Font.Underline = True
'下線にする
Next '繰り返す
End Sub
--------------------

■選択したセルの文字列を水平位置をセンター合わせに変更
(垂直方向は中央揃えに指定)
--------------------
Sub Font中央()
For Each Cell In Selection
'選択したセルの最初から
Cell.HorizontalAlignment = xlCenter
'水平方向を中央揃えに
Cell.VerticalAlignment = xlCenter
'垂直方向を中央揃えに
Next '繰り返す
End Sub
--------------------

■選択したセルの文字列を水平位置を左端合わせに変更
(垂直方向は中央揃えに指定)
--------------------
Sub Font左揃()
For Each Cell In Selection
'選択したセルの最初から
Cell.HorizontalAlignment = xlLeft
'水平方向を左揃えに
Cell.VerticalAlignment = xlCenter
'垂直方向を中央揃えに
Next
End Sub '繰り返す
--------------------

■選択したセルの文字列を水平位置を右端合わせに変更
(垂直方向は中央揃えに指定)
--------------------
Sub Font右揃()
For Each Cell In Selection
'選択したセルの最初から
Cell.HorizontalAlignment = xlRight
'水平方向を右揃えに
Cell.VerticalAlignment = xlCenter
'垂直方向を中央揃えに
Next '繰り返す
End Sub
--------------------
■セル内データの水平配置指定

■セル内データの垂直配置指定

■選択したセルの文字列の色をDeepPinkに変更
(RGB指定)
--------------------
Sub DeepPink()
ActiveCell.Font.Color = RGB(255, 20, 147)
'選択セルの文字色をDeepPink(#ff1493)に変更
End Sub
--------------------

■選択したセルの文字列の色をBlueに変更
(Index指定))
--------------------
Sub Blue()
ActiveCell.Font.ColorIndex = 5
'選択セルの文字色を青(0, 0, 255/#0000ff)に変更
End Sub
--------------------

■選択したセルの日本語文字列を「小塚ゴシックプロレギュラー」に、半角英数字を「HelveticaNeue」に変更
--------------------
Sub フォント交換()
For Each Cell In Selection
'選択したセルの最初から
Cell.Font.Name = "KozGoPr6N-Regular"
'小塚ゴシックプロレギュラーに変更
Cell.Font.Name = "HelveticaNeue"
'(半角英数字を)HelveticaNeueに変更
Next '繰り返す
End Sub
--------------------
※フォント名はタイプミスしないように注意です。

フォントの格納場所
■Windows
C:\Windows\Fonts

Adobeフォント
C:\Program Files\Common Files\Adobe\Fonts\

Adobe同期フォント

C:\Users\<USERNAME>\AppData\Roaming\Adobe\CoreSync\plugins\livetype\


■macOS
システムフォント
HD>システム>ライブラリ>Fonts

ライブラリフォント
HD>ライブラリ>Fonts

ユーザフォント
Users>ユーザ名>ライブラリ>Fonts

■ショートカット登録(Windows)
マクロのオプションをクリックし・・・
ショートカットを登録します。デフォルトはControlキーとの組み合わせですが、Shiftキーを押しながら任意のキーを叩くとShiftキーも有効になります。ただしAltキーは使えないようです。なお、既存のショートカットキーと被っても、ここでの設定が優先されます。
※登録したマクロはControl+数字でも実行できます。ただし数字は9まで。

■ショートカット登録(macOS)
マクロのオプションをクリックし・・・

ショートカットを登録します。デフォルトはOption Commandキーとの組み合わせですが、Shiftキーを押しながら任意のキーを叩くとControl Shiftキーの組み合わせになります。
※登録したマクロはControl+数字でも実行できます。ただし数字は9まで。

なお、既存のショートカットキーと被ると、エラーが表示されて登録できません。