Office関連

選択している行の高さを増やすExcelマクロ

Excelの表を印刷しようとしたとき、ビミョーに文字が切れていてイラッとすることがよくあります。

そんなときは縮小して全体を表示したり行や幅を調整したりして何とかするのですが、調整しないといけないセルが複数あると、作業を何回も行わなくてはならず、それはそれでイラッとします。

そこで、イライラ解消のために簡単なマクロを書いてみました。

Public Sub IncrRowHeight()
'選択行の高さを増やす
  If LCase(TypeName(Selection)) <> "range" Then Exit Sub
  On Error Resume Next
  Selection.RowHeight = Selection.RowHeight + 5
End Sub

選択している行の高さをちょっとずつ増やすだけのマクロです。
このマクロを個人用マクロブックに書いて、クイック アクセス ツール バーにでも登録しておけば、キー一発で呼び出せるので便利です。

ついでに、行の高さをちょっとずつ減らすマクロ、幅の増減を行うマクロも載せておきます。増減する値はお好みで調整してください。

Public Sub DecrRowHeight()
'選択行の高さを減らす
  If LCase(TypeName(Selection)) <> "range" Then Exit Sub
  On Error Resume Next
  Selection.RowHeight = Selection.RowHeight - 5
End Sub

Public Sub IncrColumnWidth()
'選択列の幅を増やす
  If LCase(TypeName(Selection)) <> "range" Then Exit Sub
  On Error Resume Next
  Selection.ColumnWidth = Selection.ColumnWidth + 1
End Sub

Public Sub DecrColumnWidth()
'選択列の幅を減らす
  If LCase(TypeName(Selection)) <> "range" Then Exit Sub
  On Error Resume Next
  Selection.ColumnWidth = Selection.ColumnWidth - 1
End Sub

そんなわけで、私にしては珍しく、説明が要らないくらいシンプルなマクロを書いてみました。『ちょっとしたことの自動化』って大事ですよね!

[Google Apps Script]CLIツール「clasp」を試してみました。前のページ

映画『ペンギン・ハイウェイ』感想次のページ

関連記事

  1. Office関連

    [PowerPoint]ドキュメントを開いたときに自動的にマクロを実行する

    ドキュメントを開いたときに自動的にマクロを実行する方法として、Word…

  2. アイコン一覧

    Office 365アイコン(imageMso)一覧(V)

    Office 365のデスクトップ版Officeアプリケーション(Wo…

  3. Office関連

    Office 2010 開発者用リファレンスをHTML形式で”快適に”閲覧す…

    前回の記事で7-Zipを使ってHXS形式のOffice製品のヘルプを解…

  4. Office関連

    「クイックアクセスツールバーからPowerPointマクロを実行するアドイン」のコード

    2年ほど前に書いたPowerPointマクロの記事「クイックアクセスツ…

  5. Office Scripts

    デスクトップ版ExcelでOffice スクリプトとして操作を記録できるようになりました。

    ※ 本記事で紹介している機能はプレビュー版に基づいており、今後のアップ…

  6. Office関連

    Office 365 Soloをインストールしてみました。

    2014年10月17日、Microsoftの新しいOffice製品「O…

コメント

  • コメント (0)

  • トラックバックは利用できません。

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP