Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11691 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【14720】検索に一致した行にのみ色をつけたいのですが 123 04/6/6(日) 12:40 質問[未読]
【14722】Re:検索に一致した行にのみ色をつけたいの... かみちゃん 04/6/6(日) 12:50 回答[未読]
【14735】Re:検索に一致した行にのみ色をつけたいの... 123 04/6/6(日) 15:54 お礼[未読]
【14720】検索に一致した行にのみ色をつけたいので...
質問  123  - 04/6/6(日) 12:40 -
引用なし
パスワード
   AAという文字が入っている行を検索し、
かつ、その行に文字が入っている
セルにのみ色をつけたいのですが、
RangeはGlobalﾒｿｯﾄﾞです。とｴﾗｰが返ってきます。
どうすればよいのでしょうか？

Selection.Find(What:="AA", After:=ActiveCell, LookIn:=xlFormulas, _
　　 LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext _
　　 , MatchCase:=False, MatchByte:=False).Activate
　
　　　　検索行 = ActiveCell.Row

Range(検索行).SpecialCells(xlCellTypeConstants, xlTextValues).Interior.ColorIndex = 3
【14722】Re:検索に一致した行にのみ色をつけたい...
回答  かみちゃん  - 04/6/6(日) 12:50 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>　　　　検索行 = ActiveCell.Row

Row プロパティは、「対象セル範囲の最初の領域の先頭行の番号を返します。」ので、行番号になっています。
つまり、Findの結果がA2だったら、2となります。

>Range(検索行).SpecialCells(xlCellTypeConstants, xlTextValues).Interior.ColorIndex = 3

それで、Range(2)ではエラーになりますので、
とりあえず、
Rows(検索行).SpecialCells〜
ではいけませんか？
【14735】Re:検索に一致した行にのみ色をつけたい...
お礼  123  - 04/6/6(日) 15:54 -
引用なし
パスワード
   かみちゃん さん

ありがとうございます。早速、試してみたところ
上手く実行できました。
本当にたすかりました。ありがとうございます！


▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>>　　　　検索行 = ActiveCell.Row
>
>Row プロパティは、「対象セル範囲の最初の領域の先頭行の番号を返します。」ので、行番号になっています。
>つまり、Findの結果がA2だったら、2となります。
>
>>Range(検索行).SpecialCells(xlCellTypeConstants, xlTextValues).Interior.ColorIndex = 3
>
>それで、Range(2)ではエラーになりますので、
>とりあえず、
>Rows(検索行).SpecialCells〜
>ではいけませんか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11691 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free