FindKey でオートフィルタをかけました。この変数に該当する文字の色をすべて赤色に変える方法はあるのでしょうか。表はB7からC100の範囲です。よろしくお願い致します。
Sub Test2()
Dim intRowEnd As Integer
Dim FindKey As String
'最終行の取得
intRowEnd = Sheets("Sheet1").UsedRange.Rows.Count
'フィルタの解除
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
'InputBoxの表示
FindKey = InputBox("キーワードを入力してください")
'検索キーワードでフィルタをかける
Sheets("Sheet1").Range(Cells(7, 2), Cells(intRowEnd, 3)).AutoFilter _
Field:=2, _
Criteria1:="*" & FindKey & "*"
'キーワードの文字を赤にする
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんばんは
セルの文字色を全部変えるのなら、フィルター後の表示セルの
.Font.Color
を指定することで可能です。
検索対象となっている文字だけの色を変えたい場合は、各セルについて対象文字の位置を検索して、その部分について
.Characters(Start, Length).Font.Color
で色を指定することになります。
以下をご参考になさってください。
https://workteria.forward-soft.co.jp/blog/detail …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) サブフォルダ含むすべてのフォルダの Excel 検索 4 2021/12/13 09:33
- Visual Basic(VBA) Excel VBAでフォルダ内の全テキストファイルの任意データを取得について 7 2021/12/18 16:00
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) 左から空白文字を探して左側を比較する 4 2022/02/02 22:48
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Visual Basic(VBA) VBAに関して 2 2023/11/09 20:57
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Excel(エクセル) マクロ作成で困っています。お教え頂けませんか。 1 2021/12/12 17:02
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルで、複数のマスに構文を一度に入力する方法を教えてください
Excel(エクセル)
-
Excel 書式のクリア・値貼付けをしても書式が変わらない
Excel(エクセル)
-
エクセルのハイパーリンクで質問です。
Excel(エクセル)
-
-
4
Excel VBAについて【図形を組み合わせて作成した、料金別納表示の削除の仕方】
Excel(エクセル)
-
5
【VBA】【マクロ】 指定の条件で、空白の行を挿入
Excel(エクセル)
-
6
Excel 時間が入力されているか確認する方法を教えてください
Excel(エクセル)
-
7
会社のPCに入っているExcelでバーコードを作ろうと思い、「開発」→「挿入」→「コントロールの選択
その他(Microsoft Office)
-
8
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
-
9
2013Excel保存済みファイルグレーアウト Excelを開こうとするとメニュー以外全てグレーにな
Excel(エクセル)
-
10
エクセルで リンクが切れない状態で文字を入れたい
Excel(エクセル)
-
11
IF関数を使用した数字に、カンマとテキストをつけたい
Excel(エクセル)
-
12
エクセル→貼り付けのオプション→貼り付け先の書式に合わせる が急にできなくなった。 どうして?
Excel(エクセル)
-
13
Excelで途中の行をデータとして扱わない方法 例えば、Excelに付いての質問です。 あるシートで
Excel(エクセル)
-
14
エクセル 条件付き書式設定
Excel(エクセル)
-
15
Excel 数行分セル結合したあと、結合した一番下の行を非表示にしたら、罫線が印刷されません。
Excel(エクセル)
-
16
Googleシート「A1」でなくて「A001」にしたいのですが
Excel(エクセル)
-
17
Excelの表示ついて
その他(Microsoft Office)
-
18
エクセルで条件書式と数式の組み合わせはできる?
Excel(エクセル)
-
19
VBAのコードを教えてください
Visual Basic(VBA)
-
20
【Excel】こんな表の整形をするには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで、桁数の異なるデー...
-
色フィルターをかけた状態で、...
-
5の倍数の日付だけを抽出したい
-
オートフィルタで抽出したデー...
-
エクセルオートフィルタで余計...
-
Excel関数、何がいけないのかわ...
-
エクセルの計算表の下向き三角...
-
エクセルを使用してデジタルフ...
-
EXCELでデータをグループ化
-
EXCELでフィルタが中途半端にか...
-
Excelの特定のセル内で“X”文字...
-
実写の時に使うaviutlのフィル...
-
CでIIRフィルタを作りたいので...
-
Excelでオートフィルタ時に交互...
-
=SUBTOTAL に =COUNTIF の機能...
-
Excelのセルのデータ:年...
-
フィルタをかけた列のセルの▼マ...
-
photoshopでフィルタを部分的に...
-
教えて下さい!関数SUBTOTALとC...
-
Excel:NGキーワードリストでフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルオートフィルタで余計...
-
エクセルで、桁数の異なるデー...
-
色フィルターをかけた状態で、...
-
Excel関数、何がいけないのかわ...
-
エクセルのフィルタをかけると...
-
教えて下さい!関数SUBTOTALとC...
-
オートフィルタで抽出したデー...
-
エクセルの計算表の下向き三角...
-
エクセルで特定の範囲内から小...
-
【Excel】 可視セルへの貼り付...
-
エクセルでのオートフィルタオ...
-
行番号の文字の色が青色の理由?
-
エクセル:色の付いたデータを...
-
Excelでオートフィルタ時に交互...
-
エクセルを使用してデジタルフ...
-
オートフィルタをかけた表に一...
-
=SUBTOTAL に =COUNTIF の機能...
-
excelで奇数の行のみ削除したい
-
Excel2010 フィルタで抽出できない
-
エクセルで作成 混合名簿から...
おすすめ情報