【Excel】ボタン一つで選択範囲を指定のフォントに変更する方法【VBA】

フォントの変更自体は大して面倒な作業ではない。

とはいえ、新しいファイルを作るたびに手動でフォントを変えたり、他人が作ったファイルをコピーして利用する際に、チクチク自分好みのフォントに変えていくのもちょっとした手間だ。

こういう面倒な作業はボタン一つでできると楽だ。

ということで作ったマクロ（VBA）がこちら。

Public Sub ChangeFontToRoboto()
    
    Selection.Font.Name = "Roboto"
    Selection.Font.Size = 10
        
End Sub

 

この例では、選択範囲のフォントを「Roboto」に、フォントサイズを10ptに変えているが、他のフォントを使いたい場合はこの辺りを好きなフォントに変えればよい。

ボタン一つでこのマクロを実行するにはリボン等への登録が必要だが、そのやり方は、こちらの記事に書いてあるので見てみてほしい。