Excel VBA質問箱 IV

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

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


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

5717 / 76782

←次へ　｜　前へ→


	【76673】Re:条件別で選択するシートを変え、シートの中にある検索ワードを検索

kanabun - 15/2/25(水) 17:00 -


	引用なし

	パスワード

▼さとちぃさん： >(1) >リンク先のセルにはあらかじめセルに色が塗ってありまして >教えていただいたプログラムですと、事前にセルに塗っていた >色が白色設定となり、ヒットしたセルのみ色が変わる形に >なっております。 > >対象のセル以外は、色設定はそのままとするにはどのように >すればいいでしょうか？とりあえず、 > 　r.Interior.ColorIndex = xlNone の行をコメントにしてください。　　'r.Interior.ColorIndex = xlNone >(2) > >Interior.Color = vbCyan > >において、文字の大きさも変えたいのですが、Fontオブジェクトで >設定しようと試みましたが、うまく出来ません・・・。どう試してみたのかしら？　　Do 　　　　'ヒットしたセルがあれば色を付け、Fontsizeを変更する　　　　c.Interior.Color = vbCyan 　　　　c.Font.Size = 18 '←好きなサイズ　　　　　　　Set c = r.FindNext(After:=c) 　　Loop Until c.Address = Address1