結合されているセルの参照の仕方

質問

• 結合されたセルの参照方法についての質問です。ドロップダウンリストが結合されており、範囲を変更しようとするとエラーが発生します。
• 結合されたセルの参照方法についての質問です。ドロップダウンリストが結合されており、範囲を変更すると「結合されたセルの一部を変更できません」というエラーが発生します。
• 結合されたセルの参照方法についての質問です。ドロップダウンリストが結合されたまま参照する方法はあるのかという疑問です。

回答No.5

Wendy02 · ベストアンサー

こんにちは。

>C30・C32・C34・C36　　と　　O30・O32・O34・O36に

C30　->　O30
C32　->　O32
C34　->　O34
C36　->　O36

それぞれが対応しているということですね。
しかし、C30 と C32 自体は、独立しているということになりそうですね。
ご自身で直せるように、簡単な解説を付けておきます。

---------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C30,C32,C34,C36")) Is Nothing Then Exit Sub
Application.EnableEvents = False
　'O列の該当する行を消去する
　Cells(Target.Row, "O").MergeArea.ClearContents
Application.EnableEvents = True
End Sub
----------------------------------------------

解説：

このようなマクロを、私は「イベント・ドリブン型」と呼んでいます。

1.
Private Sub Worksheet_Change(ByVal Target As Range)
ワークシートが変化したら、マクロを動かしなさいということです。
ByVal Target As Range は、Range(セルの範囲のオブジェクト)として、引数、Target を、引き受けます。

なお、Target というのは、入力したセルのことで、予め、決まった名前のことです。

2.

前回：If Target.Address <> "$C$30" Then Exit Sub
　　　　↓
If Intersect(Target,Range("C30,C32,C34,C36")) Is Nothing Then Exit Sub

Intersect をつかいます。（交差するという意味です）
「交差」しなかったら、マクロは動かないで、Sub の　外(Exit) に出る、ということです。
このような書き方が決まっているわけではありません。一般的に、流通しているというだけです。

3.
　Cells(Target.Row, "O").MergeArea.ClearContents

Cells(該当する行, 列名)
Target.Row は、変化したところのセルの行数
MeargeArea は、その繋がっている結合セルの範囲
ClearContents　は、値を消去しなさい

ということです。

4.

Application.EnableEvents = False
　　～
Application.EnableEvents = True

これは、もしかしたら、不要かもしれません。マクロが動かなくなるようなことがあったら、以下のコードは削除してしまってください。その原因は、イベント・ドリブン型の信号を受け取らないように、Offにしています。Off と On の間で、エラー値を受け取る、マクロがとまってしまうからです。そのままになると、イベント・ドリブン型マクロは動かなくなることがあります。

そこで、Off の状態を戻すのは、
Sub ReGain
　Application.EnableEvents = True
End Sub
とするか、Excelを再起動すれば戻ります。

これを使う場合は、マクロが走って、信号を受け取ると、また再び、自分のところに返ることを「再帰」といいます。Worksheet_Change は、自分のセル(Target-選択したセル）を変化させたときだけ、「再帰」は起こらないのですが、他のセルを変化させると、多くは、「再帰」してしまいます。そうすると、何度も何度も、繰り返しマクロが走ってしまうことがあります。それを防ぐためですが、念のために入れているだけで、今回は、あまり意味がありません。

お礼

ありがとうございます。
思っていた通りの操作ができるようになりました。
大変助かり感謝しております。

何回もお手数をおかけしました。
しっかりご説明をいただき、解決しましたので
ポイントを付与させていただきたいので、質問を締め切ろうかと思います。
大変ご親切にしていただきまして、本当にありがとうございました。