| |
▼hamako さん：
よこからすみません。
>挿入してみたのですが、変化ありません・・
>$C$20:$H$20
>$C$21:$H$21
>$C$22:$H$22
>$C$23:$H$23
>$C$24:$H$24
>
>↑回答の仕方、あってますでしょうか
>C20,C21,C22,C23、C24をﾀﾞﾌﾞﾙｸﾘｯｸした後、
>Alt+F11画面の 表示→イミディエイトウインドウに表示されたものです。
イミディエイト・ウィンドウにアドレスが表示されたのですから、
それが「変化」なのです。
>関係ないかもですが、
>「D12」は D列からG列を結合・行は12〜15行目を結合して「D12」です
>「C20」は D列からH列を結合・行は20行目のみ結合なしで「C20」です
>（C21〜同じ）
大いに関係あります。
たぶん、γさんの
>>># 思い当たる節が無いわけではないが、
というのも、このことだったのでしょう。
セルを結合していたら、C20単独セルだけのダブルクリックはできない
（"C20"というセルアドレスは永久に返ってこない）ということを
あなたのほうから気付いてデバッグしてほしかったのでしょう。
要らぬお節介かもですが...
つぎは Intersect というのを調べてみてください。
ElseIf Sh Is Sheets(shName2) Then
Set toCell = Intersect(Range("D12"), Target)
If Not toCell Is Nothing Then
MsgBox "D12のときの処理"
Sheets(shName3).Activate
Else
Set toCell = Intersect(Range("C20:C24"), Target)
If Not toCell Is Nothing Then
MsgBox "C20:C24 のいずれかのときの処理"
Sheets(shName4).Activate
End If
End If
End If
|
|
kanabun
- 14/6/17(火) 12:12 -
