[[20160428145940]] 『結合セルの右隣に隣接するセルを選びたい』(田村) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『結合セルの右隣に隣接するセルを選びたい』(田村)

おしえてください。

例えばB2からB4が結合セルになっており、"1"という値が入っているとします。
その右隣に隣接する三つのセル(C2からC4)を黄色に塗るコードを教えてください。
以下の様にしますとC2しか黄色になりません。

Sub Macro1()

    Columns("B:B").Select
    Selection.Find(What:="1", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , MatchByte:=False, SearchFormat:=False).Activate
    ActiveCell.Offset(0, 1).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

ちなみにB5からB10も結合セルで値は"2"
同様に下に向かって3,4,5,...と続いていますが、問題は結合セルの行数に規則性が無いことです。

< 使用 Excel:Excel2007、使用 OS:unknown >


 ちょっと面倒ですが

 Sub 参考()
    MsgBox Range("B2").Offset(, 1).Resize(Range("B2").MergeArea.Rows.Count).Address
 End Sub

(β) 2016/04/28(木) 15:26


 >ActiveCell.Offset(0, 1).Select
 ActiveCell.MergeArea.Offset(0, 1).Select

(とおりすがり) 2016/04/28(木) 15:40


 ↑失礼、確認不足だった。m(_ _)m
(とおりすがり) 2016/04/28(木) 15:47

βさん
できました!ありがとうございます!

とおりすがりさん
確かに変化ありませんでした。m(_ _)m
しかし【MergeArea】知らなかったので勉強になりました。
ありがとうございます!
(田村) 2016/04/28(木) 16:18


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.