Home » Excel VBA Rangeオブジェクト » 結合セル » セル結合の解除もショートカットキーで

セル結合の解除もショートカットキーで

対象:Excel97, Excel2000, Excel2002, Excel2003

マクロとイベントプロシージャで、セル結合をショートカットキーでできるようにする方法をご紹介しました。

もう一工夫すれば、セルが結合されている場合同じショートカットキーで、セル結合の解除を行うこともできます。

[スポンサードリンク]

セル結合するマクロを修正して、セルが結合されていた場合は解除するようにすればいいわけです。

▼セルの結合/解除を行うマクロ
Sub ToggleMergeCells()
 On Error Resume Next
 With Selection
  .MergeCells = Not .MergeCells
 End With
End Sub

ポイントは、
With Selection
 .MergeCells = Not .MergeCells
End With
の部分です。

MergeCellsプロパティを、論理否定を求める演算子:Notで反転させています。

元がTrueならFalseに、元がFalseならTrueに、即ち、結合されていればセル結合の解除、バラバラのセルならばセル結合が行われることになります。

マクロにショートカットキーを割り当てるイベントプロシージャは、前回ご紹介したものと同様でOKです。

▼ToggleMergeCellsマクロにショートカットキー:[Ctrl]+[M]を割り当てるWorkbook_Openイベントプロシージャ

Private Sub Workbook_Open()
 Application.OnKey "^m", "ToggleMergeCells"
End Sub

▼サンプルファイル(002215.xls 23KByte)ダウンロード

[スポンサードリンク]

Home » Excel VBA Rangeオブジェクト » 結合セル » セル結合の解除もショートカットキーで

「結合セル」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.