戻る HOME

Excel でセル内の配置をワンタッチで調整する


 Excel 97 のセルの書式設定にもいろいろありますが、<縦位置の上詰め・中央揃え・下詰め、セル内で折り返す、縮小して全体を表示>などの設定は、メニューにもボタンにもありません。横位置の調整が「書式設定ツールバー」にあるのに比べて、これらの機能は同じくらいよく使うのに、キーもボタンもなく、セルの書式設定の中から設定しなければならないので面倒です。特にセル内の縦位置は、デフォルトでは下詰めになっていますが、中央揃えしたい時がよくあると思います。
 そこで、これらの書式設定を VBA マクロにしてツールバーに登録する方法を紹介します。このツールバー( VBA マクロ)は、使い始めるとあまりにも便利で手放せなくなると思います。(完全な自画自賛モード!)
 またしても、"教師のため" ではなくなっていますが...(^_^;

 まず、マクロを以下に示します。


---------- ここから ----------

'
'■■■ 縦位置を上詰め ■■■
'

Sub CellTop()
  On Error GoTo ErrorHandler

  Selection.VerticalAlignment = xlTop
  Exit Sub

ErrorHandler:
  MsgBox "保護がかかっているので、実行できません。"
End Sub

'
'■■■ 縦位置を中央揃え ■■■
'

Sub CellCenter()
  On Error GoTo ErrorHandler

  Selection.VerticalAlignment = xlCenter
  Exit Sub

ErrorHandler:
  MsgBox "保護がかかっているので、実行できません。"
End Sub

'
'■■■ 縦位置を下詰め ■■■
'

Sub CellBottom()
  On Error GoTo ErrorHandler

  Selection.VerticalAlignment = xlBottom
  Exit Sub

ErrorHandler:
  MsgBox "保護がかかっているので、実行できません。"
End Sub

'
'■■■ セル内で折り返し ■■■
'

Sub CellWrap()
  On Error GoTo ErrorHandler

  With Selection
    .ShrinkToFit = False
    .WrapText = True
  End With
  Exit Sub


ErrorHandler:
  MsgBox "保護がかかっているので、実行できません。"
End Sub

'
'■■■ 縮小して全体を表示 ■■■
'

Sub CellShrink()
  On Error GoTo ErrorHandler

  With Selection
    .WrapText = False
    .ShrinkToFit = True
  End With
  Exit Sub


ErrorHandler:
  MsgBox "保護がかかっているので、実行できません。"
End Sub

'
'■■■ 折り返しと縮小を解除 ■■■
'

Sub CellNormal()
  On Error GoTo ErrorHandler

  With Selection
    .WrapText = False
    .ShrinkToFit = False
  End With
  Exit Sub


ErrorHandler:
  MsgBox "保護がかかっているので、実行できません。"
End Sub

---------- ここまで ----------


 このマクロをコピーして、XLStart フォルダ内の PERSONAL.xls の標準モジュールに貼り付けてください。詳しい方法は、【名簿用の罫線マクロ(1/2)】を参照してください。
 これらのマクロをツールバーに登録するのですが、今回は新規にツールバーを作成し、アイコンではなくて文字で表示させることにします。
(アイコンを使う場合は【名簿用の罫線マクロ(2/2)】を参照)
  1.  まず、新規ツールバーを作成します。ツールバー上で右クリックして、ユーザー設定を選び、「新規ツールバー作成」ボタンを押します。名前の入力を促されるので、たとえば、MyToolBar と入力してOKボタンを押します。
  2.  次に、「コマンド」タブに切り替えて、左側のリストの下の方にある「マクロ」を選んで、右側の「ユーザー設定メニュー項目」を新しく作成されたツールバーにドラッグ&ドロップします。
  3.  そのまま「選択したボタンの編集」ボタンを押してください。下図のようなメニューが表示されます。[名前:]にツールバーに表示したい文字列を入力し、[テキストのみ表示]にチェックが入っていることを確認して[マクロの登録]で該当するマクロを選択します。

    マクロの登録

  4. 2 〜 3 を必要な数だけ繰り返します。
 以上で設定完了です。マクロの動作を確認してみてください。すべてを登録すると、次のようなツールバーになるはずです。

オリジナルツールバー

 ボタンとボタンの間の線は、ユーザー設定ダイアログボックスを表示中にボタンを少しドラッグすればOKです。もちろん、このツールバーを標準のツールバーとドッキングさせることもできます。

 不要になって削除したくなったら、ユーザー設定のダイアログボックスで MyToolBar を選択した状態で「削除」ボタンを押すだけです。



戻る