Excel VBA質問箱 IV

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

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


66521 / 76734 ←次へ | 前へ→

【14776】Re:エラー処理に関して
回答  つん E-MAIL  - 04/6/7(月) 22:43 -

引用なし
パスワード
   こんばんは〜

>>>  
>>  If Not r Is Nothing Then
>>    r= ActiveCell.Row
>     特定のセルに色をつけたい・・・
>>  End If
>としたいのですが、うまくいきません。
>rには、検索行が入っているのでしょうか?

「r」には、検索してヒットしたセルが入ってます。
なので、r= ActiveCell.Row などとすると、
せっかく、検索されたセルを見失うことになります。
それに、「Set」で代入しないとダメだと思う・・・

特定のセルって言うのは検索してヒットしたセルですか?
だったら、

r.Interior.ColorIndex = 8

等でOKだと思います。
そのセルの行全体なら、

「EntireRow」を使えばええかな。

1 hits

【14755】エラー処理に関して 123 04/6/7(月) 6:46 質問
【14758】Re:エラー処理に関して つん 04/6/7(月) 9:30 回答
【14774】Re:エラー処理に関して 123 04/6/7(月) 21:22 質問
【14776】Re:エラー処理に関して つん 04/6/7(月) 22:43 回答
【14780】Re:エラー処理に関して 123 04/6/7(月) 23:03 質問
【14784】Re:エラー処理に関して つん 04/6/7(月) 23:35 発言
【14789】Re:エラー処理に関して Asaki 04/6/8(火) 0:37 回答
【14834】Re:エラー処理に関して 123 04/6/8(火) 19:10 お礼
【14792】Re:エラー処理に関して kein 04/6/8(火) 0:59 回答

66521 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free