Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

66590 / 76807

←次へ　｜　前へ→


	【14780】Re:ｴﾗｰ処理に関して

123 - 04/6/7(月) 23:03 -


	引用なし

	パスワード

つんさん
こんばんは

上手く伝わっていなかったようで、
申し訳ありません。内容をお伝えします。

あるＢ列には、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文がうまく進んでないよう
なんです。
どうすればよいでしょうか？

0 hits

▼

【14755】ｴﾗｰ処理に関して 123 04/6/7(月) 6:46