便利な個人用マクロブック

2021年1月22日 21:50

AliAっていうバンドほんといいから聞いてほしい！
かくれんぼっていう曲でビビッときて、
聞いてるうちにAliveという曲が一番好きになったしるるです。

先日、Twitterを見てると、こんなツイートが…

今日りゅうりゅうさんに教わって個人用マクロブックにいくつかマクロを仕込んでおきました。結構使うかも。
左から「セル番地表示の切替（A1⇔R1C1）」「セルの枠線表示の切替」「印刷時ページ仕切り線の表示切替」です。他に何か便利なマクロがあったら教えて下さい。 pic.twitter.com/qTbhOLDx0p
— ひろっく@VBA100本ノック (@hiroki10484962) January 21, 2021

個人用マクロブックって何・・・？

またまたExcelの知らない一面を知りました。
いやーほんと知らなかったですね、こんな便利な機能があるなんて！

その後、
フォロワーさんたちに有益な個人用マクロを教えていただきましたので、
今回はそれをまとめます！！

アクティブマクロをマクロ有効ブックにする

アクティブブックをマクロ有効ブックにする個人用マクロブックはめちゃくちゃ使ってる
— くぼ@テスター (@natsumemix2525) January 21, 2021

これ、いい！！いいよ！！天才か！
マクロ有効クソブック量産している私にはもってこい！

Sub xlsmとしてブックを保存()
   Dim WB As Workbook
   Set WB = ActiveWorkbook

   Dim WBName As String
   WBName = InputBox("君のブックの名は？")
   WB.SaveAs Filename:="xxxxxxx\xxxxxxxx\" & WBName & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub

ということで早速設定しました。
xxxxxのところに保存したいディレクトリを設定したらそこにマクロ有効ブックとして保存されます。
君の前前前世から僕は！君を探し始めたよ！！！
ってならないように注意しないとね。（何を？）

最終行まで移動する・選択する（途中に空白あっても無視する）

マクロでないとできない操作をいくつか入れてます！結構便利ですw
・同列のデータあり最下セルを選択(空白セルも飛び越える)
・選択セルから同列の最下セルまでを範囲選択(同上)
・選択範囲の値の合計をクリップボードに入れる
・アクティブセルの数式をそのまま取り出してクリップボードに入れる
— 青い人 (@Clsade) January 21, 2021

これいい！いいよ！！天才か！！（デジャブ）
天才しかいないのかTwitterには！！

途中に空白あるとCtrl+↓繰り返さなきゃいけないもんね。

Sub 最終行のセルを選択()
   
   Dim EndRow As Long
   EndRow = Cells(Rows.Count, Selection.Column).End(xlUp).Row
   Cells(EndRow, Selection.Column).Select
   
End Sub

Sub 最終行のセルまでを範囲選択()
   
   Dim EndRow As Long
   EndRow = Cells(Rows.Count, Selection.Column).End(xlUp).Row
   Range(Cells(Selection.Row, Selection.Column), Cells(EndRow, Selection.Column)).Select
   
End Sub

こんな感じで作ってみました。
実際動かすと、おぉ！ってなるよね、シンプルなんだけど！！

一括IFERROR

個人用マクロで僕が1番使ってるのは、選択範囲のセルの数式をiferror関数で挟むやつです！
vlookupで#N/Aエラーが出たときに処理するのに便利です。もし参考になれば！（写真ですみません笑） pic.twitter.com/W4buKCP3E5
— ぴかけん (@pikaken10) January 22, 2021

これ…え…今日の私の仕事見てたのもしかして…？天才なの？？？？
丸っと真似して早速入れてみましたが…便利…便利やで…！圧倒的感謝…！

IFERRORよく使うんだけど、
ちょっとめんどくさかったのでこういうの欲しかった！！欲しかったよ！！！

ThisWorkbookに入れておくと便利な機能

個人用マクロ「PRESONAL.XLSB」ファイル「ThisWorkbook」に記載すると便利な機能を紹介します！

１．F1キー無効化
⇒Excel作業時にF2キー押そうとしてF1キーを押してしまい「ヘルプ」画面が出るのを阻止

２．Excel終了後「図が大きすぎます」と表示されないようクリップボードを初期化 pic.twitter.com/oOEBtrUIjd
— ゆーしゃん (@Mr_mura_ura) January 22, 2021

どうしてこうもTwitterは天才ばかりいるのか…？どうなってるの？？
F1無効わろたｗｗｗｗ
いやほんと痒いところに手が届く！素晴らしい！
記載してみましたが、F1付近を押すときに何も気にしなくていいので快適ですね！！！
「図が大き過ぎます」も、
おう、わかったよぐらいの感じ（鼻ほじぽちー）
って感じでしたが、表示されないならその方がいいので、入れました。

右シートに移動した時にも現在選択してるセル位置になるようにする(2021/1/31追記)

選択しているシートのアクティブセル位置と、右側のシートのアクティブセルもその位置にするアドイン

ってもの作りました！
— はなっち！@UiPath japan MVP 2019-2020 (@hjmkzk) January 22, 2021

はなっちさんから教えてもらいました！！
ありがとうございます！
最初はうーん？どういうことだ？って思ったんですけど、
そういえば同じようなシートをブック内で複数作ってチェックとかする時にそういうことするな…って思いました。
ということで真似してみました！！
今、データの整理で、シートごとに入力とかしてるので便利さ感じています！！

Sub 右のシートのチェック()
   Dim TargetCol As Long
   Dim TargetRow As Long
   TargetRow = ActiveCell.Row
   TargetCol = ActiveCell.Column
   ActiveSheet.Next.Activate
   Cells(TargetRow, TargetCol).Activate
   
End Sub

あとはググったら
・A1式⇔R1C1式入れ替え
・特定の色で塗りつぶしや文字の色変更
・塗りつぶしや文字の色変更のリセット
・全シートA1セル表示
が出てきたのでコピペしました。（the 手抜き)

アイコンの変え方

昨日結局ググってなかったアイコンの変え方をりゅうりゅうさんが教えてくれたのでメモメモ。

内蔵ボタンなら「変更」ボタンでできます！
オリジナル画像アイコンもできるようですが、ちょっと面倒なようです。 pic.twitter.com/CYzg3mPpND
— りゅうりゅう (@blacklist_ryu) January 21, 2021

Twitterやってなかったら知らないことばかりだぜ…まじで…ｗ

この記事が気に入ったらサポートをしてみませんか？