EXCEL1行マクロ　-単位入力-

最近、エクセルのアドイン用にマクロを作るのにハマっていてせっかくなので公開してみようと思う。
ちなみにアドインとはエクセルに最初から備わっているコマンドとは別に後から追加できる機能で、いわゆるエクセルのマクロと同じVBAで自作できる。

エクセルのアドイン追加方法については以下リンク先が詳しいです。

【Excel】作成したマクロをアドインにしてクリック一発で実行可能にする

今回紹介するのは単位入力を簡単にするマクロ。
まずは見てもらった方が早いのでデモ動画をご覧ください。

Excelで単位入力をサクッとやる#エクセル便利技 #excelマクロ

動画だと突然テキストボックスが現れているが、私の環境ではAlt＋Uを単位入力のショートカットキーに割り当てていて、キー操作を行なってマクロを実行している。

ちなみに通常の手順で言えば、セルの書式設定の分類でユーザー定義を選択して、種類のテキストボックス内に表示したい書式を設定が必要になる。
大した手間でもないのだが、普段の業務で単位入力することがままあったので作ってみた。

最後にこちらのマクロのコードは以下。
1行じゃない。。

Sub unit()
   Dim unit As String
   unit = InputBox("単位を入力")
   Selection.NumberFormatLocal = "0" & Chr(34) & unit & Chr(34)
End Sub