Excel VBA質問箱 IV

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

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


5492 / 13645 ツリー ←次へ | 前へ→

【50490】検索について おおさか 07/7/27(金) 15:13 質問[未読]
【50491】Re:検索について マクロマン 07/7/27(金) 15:29 発言[未読]
【50492】Re:検索について Lindy 07/7/27(金) 15:34 発言[未読]
【50493】Re:検索について おおさか 07/7/27(金) 16:12 お礼[未読]

【50490】検索について
質問  おおさか E-MAIL  - 07/7/27(金) 15:13 -

引用なし
パスワード
   はじめましておおさかと申します。
早速ですが質問をさせていただきます。

VBAを使い始めて2日でまだ全然使い慣れていません。
基本的なことかもしれませんが教えてください。
各セルに数種類の文字が一文字ずつ入っているような表があります。
たとえば「○」「年」「振」。。などです

その表から「年」なら年をすべて検索して、
検索したセルの背景色の色を変えたいと思っています。

手動でならCtrl+fで検索して検索結果をすべて選択して背景色を変えることは出来ますが、
それを自動登録したらなぜか”すべて選択”ができません。

すべて選択できた状態から背景色を変える手入力の作業ならわかるのですが、
VBで、検索したセルをすべて選択する方法が分かりません。
エクセルは2003です。
なにかいい方法があれば教えてください。
はじめたばかりでご迷惑かとは思いますがよろしくお願いします。

【50491】Re:検索について
発言  マクロマン  - 07/7/27(金) 15:29 -

引用なし
パスワード
   条件付き書式ではだめですか?

VBAなら、Findメソッド、FindNextメソッド
が使えると思います。

【50492】Re:検索について
発言  Lindy  - 07/7/27(金) 15:34 -

引用なし
パスワード
   ▼おおさか さん:

エクセルの置換機能には書式を変えられるオプションがあります。
「オプション」ボタンを押して置換後の書式の色を変えて記録してみると
コードが取れます。

それを参考にすると


検索文字 = "年"
色番号 = 6

Application.ReplaceFormat.Interior.ColorIndex = 色番号
Cells.Replace What:=検索文字, Replacement:=検索文字, LookAt:=xlWhole, _
   SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
   ReplaceFormat:=True

みたいな感じで出来ると思います。

【50493】Re:検索について
お礼  おおさか E-MAIL  - 07/7/27(金) 16:12 -

引用なし
パスワード
   ▼Lindy さん:
▼マクロマン さん:

なるほど自動登録なら条件付がベストなんですね
これで一度やってみます^−^
また分からないことがあれば聞きますね♪
ありがとうございました!

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