エクセルVBAについて

質問

エクセルVBAについて

下にある、1行目に入力された数値の、選択したセルの数値を、Ｂ５セルに表示させるマクロなのですが、1行目が結合していると、うまくＢ５セルに表示できません。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　If Target.Count > 1 Then Exit Sub　　　　'●複数セル選択は無視
　If Target.Row <> 1 Then Exit Sub　　　　'●１行目以外の選択は無視
　If Target.Column > 6 Then Exit Sub　　　'●Ｆ列目以降の選択は無視
　If Target.Value = "" Then Exit Sub　　　'●選択セルが未入力なら無視

　　　Range("B5").Value = Target.Value

End Sub

このマクロで、結合しているセルをＢ５に表示させることはできますでしょうか？
1行目で選択するセルは、すべて2つのセルが結合しています。

よろしくお願いいたします。

回答No.1

myRange · ベストアンサー

一行目のセル結合状態（２つのセルの結合、３つのセルの結合、、
あるいはそれらが混在している）がわかると
も少しくっきりしたコードになりますが、一応以下のように。。

'-------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells(1).Row <> 1 Then Exit Sub '▼▼１行目以外の選択は無視
If Target.Cells(1).Value = "" Then Exit Sub '▼▼▼選択セルが未入力なら無視

Range("B5").Value = Target.Value

End Sub
'-----------------------------------------

以上です。

お礼

おおっできました！
「複数選択を無視」の部分がなければよかったんですね。

度々のご回答をありがとうございました。