VBAショートカットキー セルの結合・解除
VBAでエクセルで使用するショートカットキーを作成しております。
エクセルは2007を使用しています。
Ctrl+Shift+F で
選択したセルが、結合していたら解除、解除されていたら結合 という命令を作成しました。(ネットから拝借ですが、、、)
選択した範囲のセルに何も書かれていないときは良いのですが、何かが入力された範囲を
選択して、実行するとエクセル上で
【選択範囲には複数のデータ値があります。1つのセルとして結合すると、選択したセル範囲になるもっとも左上端になるデータのみが保持されます(空白セルは無視されます)】
という警告(?)ウインドウが表示されます。
その後「 OK 」 を押すと問題ないのですが「 キャンセル 」を選択すると
VBAで ”実行時エラー’1004” RangeクラスのMergeCells プロパティを設定できません。 と
エラーになってしまいます。
「キャンセル」を選択した際に、エラーにならないようにするには、どのように修正すれば良いか
教えて頂きたいです。
以下、作成したマクロです。
デバッグを確認すると[ .MergeCells = True ]の部分が黄色くなります。
----------------------------------------------------------------------
Sub auto_open()
Application.OnKey "+^F", "セルの結合解除"
End Sub
’------------------------------
Sub セルの結合解除()
With Selection
If .MergeCells = False Then
.MergeCells = True
.HorizontalAlignment = xlCenter
Else
.MergeCells = False
End If
End With
End Sub
----------------------------------------------------------------------
何卒宜しくお願い致します。
お礼
ありがとうございます! わかりやすくて解決できました。