
はじめまして。
VBA初心者で、少しずつ勉強しています。
行いたい動作は
「検索窓に数字を打ち込み、A列にある指定の数字(完全一致)複数の行に色をつける」という動作なのですが、※「4.7.8」の行に色をつける
指定の文字を検索する場合だと①のようになるとおもいますが
①Dim keywords As String
keywords = InputBox("抽出の対象となる文字列を記入。複数ある場合は、「,」で区分けすること") ←指定された文字ではなく複数の数字を検索したい。
⇓②はここまで自分で考えました
②With Range("A1", Cells(Rows.Count, 8).End(xlUp).Offset(, 1)).FormatConditions
.Delete
With .Add(xlExpression, Formula1:="=Find(""???"",$A1)") ←ココがわかりません。
.Interior.Color = RGB(221, 242, 214)
End With
End With
End Sub
(※A列は必ず数字です)
①と②を組み合わせたい場合、どのようになりますでしょうか?
説明がわかりずらくすみません。
どなたかご指導願います。

No.5ベストアンサー
- 回答日時:
力ずくですが、以下のやり方でどうでしょうか。
Formula1に複数の値が設定できるかどうかわからなかったので、
繰り返して、設定しています。
Public Sub 検索_条件付き書式設定()
Dim maxrow As Long
Dim ws As Worksheet
Dim rg As Range
Dim i As Long
Dim vals As Variant
Set ws = ActiveSheet
maxrow = ws.Cells(Rows.Count, "A").End(xlUp).Row
Set rg = ws.Range("A1:D" & maxrow)
Dim keywords As String
keywords = InputBox("抽出の対象となる文字列を記入。複数ある場合は、「,」で区分けすること")
If keywords = "" Then Exit Sub
vals = Split(keywords, ",")
For i = 0 To UBound(vals)
If IsNumeric(vals(i)) = False Then
MsgBox ("数字以外が入力されました")
Exit Sub
End If
Next
With rg
.FormatConditions.Delete
For i = 0 To UBound(vals)
.FormatConditions.Add Type:=xlExpression, Formula1:="=$A1=" & vals(i)
.FormatConditions(i + 1).Interior.Color = RGB(221, 242, 214)
Next
End With
End Sub
すごいです!!!できました。
3日どうにかならないか考えてましたが、初心者レベルの設定ではないことがわかりました。( ̄▽ ̄;)
単にコピペでなく調べてみて、仕組みとか、簡単なコードの意味は勉強なりました。
特に初心者には分解して考え、コードの意味を調べることが大事なんだなと思えました。
頂きましたコードを後は自分なりに考えてアレンジしてみます。
本当にありがとうございました。
No.4
- 回答日時:
条件付き書式で作成されるなら、
fujillinさんの =FIND(","&A1&",",","& 入力文字列 &",") の
入力文字列を、質問者さんのkeywordsに変更されれば良いのでは?と。
No.3
- 回答日時:
こんにちは
条件付き書式で行うということで良いのですよね。
VBAというよりも関数式の問題ですね。
例えば、以下の式をK列にでも入れてみてください。
=FIND(","&A1&",",",4,7,8,")
ということで、条件式としては
=FIND(","&A1&",",","& 入力文字列 &",")
を設定しておけば良さそうです。
※ VBAにする場合に、「"」のエスケープをお忘れなく。
※ 実用に際しては、入力文字のチェックが必要そうな気がします。
(人が入力するので、誤った入力があり得ます)
No.2
- 回答日時:
A列で同じ数字が幾つかあるのでしょうか?
1つだけなら条件付き書式で色を付けるメリットがないと思いますので、
普通にA~D列の範囲に色を付けては?と思います。
あと、splitの後ですと、文字の扱いになっていると思いますので、場合に
よっては数字に変換が必要かも知れません。
No.1
- 回答日時:
こんにちは。
カンマ区切りを、split関数で分割し、Variant変数に配列として入れる。
配列から1つずつ取り出して、処理すれば良いのでは?と思います。
With .Add(xlExpression, Formula1:="=Find(""???"",$A1)") の部分を
3つ書いてはダメでしょうか?
Sub test()
Dim tmp As Variant, I As Long, InputDat As String
InputDat = "1,2,3"
tmp = Split(InputDat, ",")
For I = LBound(tmp) To UBound(tmp)
MsgBox tmp(I)
Next I
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
このQ&Aを見た人はこんなQ&Aも見ています
-
それもChatGPT!?と驚いた使用方法を教えてください
仕事やプライベートでも利用が浸透してきたChatGPTですが、こんなときに使うの!!?とびっくりしたり、これは画期的な有効活用だ!とうなった事例があれば教えてください!
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
洋服何着持ってますか?
洋服を減らそうと思っているのですが、何着くらいが相場なのかわかりません。
-
【お題】斜め上を行くスキー場にありがちなこと
運営も客も一流を通り越して斜め上を行くスキー場にありがちなことを教えて下さい。
-
VBAで特定の文字を探して隣のセルに色を付けたい
Excel(エクセル)
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
URLのリンク切れをマクロを使っ...
-
Cellsのかっこの中はどっちが行...
-
vba 2つの条件が一致したら...
-
Worksheets メソッドは失敗しま...
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
エクセル 2つの表の並べ替え
-
VBA 何かしら文字が入っていたら
-
VBAを使って検索したセルをコピ...
-
オートフィルタをマクロで作成...
-
Changeイベントでの複数セルの...
-
複数csvを横に追加していくマク...
-
VBAで、離れた複数の列に対して...
-
データグリッドビューの一番最...
-
エクセル アクティブセルから...
-
SUM関数の範囲を変数を代入して...
-
VBAで指定範囲内の空白セルを左...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Cellsのかっこの中はどっちが行...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
Changeイベントでの複数セルの...
-
URLのリンク切れをマクロを使っ...
-
VBAで指定範囲内の空白セルを左...
-
【Excel VBA】 B列に特定の文字...
-
VBAを使って検索したセルをコピ...
-
VBAで、特定の文字より後を削除...
-
エクセル 2つの表の並べ替え
-
データグリッドビューの一番最...
-
rowsとcolsの意味
-
VBAでのリスト不一致抽出について
おすすめ情報
ご回答ありがとうございます。
言葉足りずにすみません。
A列には同じ数字(重複する数字)はありません。(発番は手入力ではないため)
よろしくお願いします。
すみません。書き方が悪かったです。
「4.7.8」というのは、今回の例ですので必ず「4.7.8」を検索するということではありません。
書いていますが
実際には検索ウィンドウが開き、そこに数字(決まっていない)を数個の文字を入れると、色が付くという動作
をマクロで行いたいのです。