[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『結合セルの右隣に隣接するセルを選びたい』(田村)
おしえてください。
例えば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.