|
つん さん
こんばんは
上手く伝わっていなかったようで、
申し訳ありません。内容をお伝えします。
あるB列には、AA,BB,CC,DDの文字列が入って
いる時といない時があります。
もし、AAが入っていた場合、その行の数字が
入っているセルにのみ色をつけたいのです。
なので、行番号を失ってしまっては処理ができないのです。
Columns(r).Select
Selection.Find(What:="AA", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext _
, MatchCase:=False, MatchByte:=False).Activate
検索行 = ActiveCell.Row
Cells(検索行, 2).Interior.Colorindex = 8
Rows(検索行).SpecialCells(xlCellTypeConstants, _
xlNumbers).Interior.Colorindex = 8
という処理がBB,CCと続くのですが、if文がうまく進んでないよう
なんです。
どうすればよいでしょうか?
|
|