
お世話になっております。
Sub Macro1()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
if Range("D" & i) <> "いちご" Then
Rows(i).Interior.ColorIndex = 6
End If
Next i
End Sub
この度、こちらのプログラムに特定の文字が入っている時にメッセージを表示させたく、
どの様なプログラムの構成になるのかご質問させていただきました。
例えば[スイカ]と入力されている時、「口腔アレルギー症候群の原因となる食品があります」としたいです。
よろしくお願いいたします。
No.4ベストアンサー
- 回答日時:
#3です。
先の回答で複数対象にする場合は、FindNextを使用しますが、
>現在使用しているプログラムの中に、スイカと入力されている場合メッセージを
>表示させるプログラムを追記したいのですが、それは可能なのでしょうか?
ご質問のコードに追加する場合は、下記のような感じです。
Option Explicit
Sub Macro1()
Dim i As Long, flag As Boolean
Dim keyWord As String, AnsComment As String, msg As String
keyWord = "スイカ" 'ここにセルを指定すれば、セルの値から設定できます。
AnsComment = "口腔アレルギー症候群の原因となる食品があります" 'ここにセルを指定すれば、セルの値から設定できます。
flag = True
For i = 1 To Cells(Rows.Count, 4).End(xlUp).Row
If Range("D" & i) <> "いちご" Then Rows(i).Interior.ColorIndex = 6 '行を黄色くしている
If Range("D" & i) = keyWord Then
If flag = True Then msg = AnsComment & vbCrLf & vbCrLf: flag = False
Cells(i, 4).Interior.ColorIndex = 3 '赤にしている
msg = msg & keyWord & "は、" & i & "行目にあります。" & vbCrLf
End If
Next i
msg = msg & vbCrLf & "確認:対象のセル色を赤にしました。"
MsgBox msg
End Sub
元のコードは、いちご以外の行は黄色くなっていますが、一応スイカのセルは赤にしました。
各色については、変更してください。(いちごは無くしてよかったのかな?)
Qchan1962様、回答ありがとうございます。
こちらのプログラムで理想の処理が実現できました。
修正が加えられるよう分かりやすく説明も一緒に記述していただき、本当にありがとうございました。
またこちらでご質問させていただくと思いますが、その際はよろしくお願いいたします。
No.5
- 回答日時:
別に「スイカ」が存在しているかが知りたいだけならループ内で調べる必要はないと思いますけど。
見つかったらその都度メッセージを出す(その他の処理を行う)というなら別ですが。
Sub Macro1()
Dim i As Long
Dim n As Long
n = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To n
If Range("D" & i) <> "いちご" Then
Rows(i).Interior.ColorIndex = 6
End If
Next i
If WorksheetFunction.CountIf(Range("D1:D" & n), "スイカ") > 0 Then _
MsgBox "口腔アレルギー症候群の原因となる食品があります"
End Sub
それより気になるのは、
>Rows(i).Interior.ColorIndex = 6
本当に列の端から端まで塗りつぶす必要があるのでしょうか?
例えば表がA~G列を範囲として使用しているのなら、
Intersect(Rows(i), Range("A:G")).Interior.ColorIndex = 6
と、指定した行列が交差する部分だけを塗りつぶすようにするのが良いかと思いますよ。
めぐみん_様、回答ありがとうございます。
めぐみん_様のおっしゃる通り、列の端から端までを塗りつぶす必要はないですね。記載していただいたこちらを使わせていただきます。
またこちらでご質問させていただくと思いますが、その際はよろしくお願いいたします。
No.3
- 回答日時:
こんばんは、横から失礼します。
スイカは沢山ありますか?
一つであれば、こんな書き方も出来ます。
違った探し方ですが、、
Sub sample()
Dim FindRange As Range, AnsObj As Range
Dim KeyWord As String, AnsComment As String
Set FindRange = Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row) ’書き方色々ですがDを強調したく、、D列の最終行までの範囲
KeyWord = "スイカ" 'ここにセルを指定すれば、セルの値から設定できます。
AnsComment = "口腔アレルギー症候群の原因となる食品があります" 'ここにセルを指定すれば、セルの値から設定できます。
Set AnsObj = FindRange.Find(KeyWord, LookAt:=xlWhole) ’FindでFindRange内のKeyWordを探します。
If AnsObj Is Nothing Then ’なければ何もしない
Else
Range(Cells(AnsObj.Row, 1), Cells(AnsObj.Row, 4)).Interior.ColorIndex = 6
' Rows(AnsObj.Row).Interior.ColorIndex = 6
MsgBox AnsComment & vbCrLf & vbCrLf & KeyWord & "は" & AnsObj.Row & "行目にあります"
End If
End Sub
めぐみん_さんのアドバイスにあるように
Keyword = "スイカ"やコメント 口腔アレルギー症候群の原因となる食品があります は、
ケースとして 他のメロンとかに対応する場合に表などに入れて置くのが良いと思います。なので一応変数にしました。(改造しやすいように)
セルにリストを作りそのセルの値をKeyWordにして、KeyWordで表からAnsCommentを抽出するとか、、
(必要ないかもしれませんが)
参考まで
Qchan1962様ご回答ありがとうございます。
はい、スイカは複数入力されております。
今のところアレルギー表示としましてスイカと入力されている時
メッセージを表示させたいのですが、質問欄に記載させていただきました
現在使用しているプログラムの中に、スイカと入力されている場合メッセージを
表示させるプログラムを追記したいのですが、それは可能なのでしょうか?
よろしくお願いいたします。
No.2
- 回答日時:
例えば、
Sub Macro1()
dispmsg=false
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
if Range("D" & i) <> "いちご" Then
Rows(i).Interior.ColorIndex = 6
dispmsg=true
End If
Next i
if dispmsg=true then
MsgBox "口腔アレルギー症候群の原因となる食品があります"
endif
End Sub
とか?
No.1
- 回答日時:
>例えば[スイカ]と入力されている時、「口腔アレルギー症候群の原因となる食品があります」としたいです。
これが10個位の物ならコードの中に書けるでしょうし、頻繁に内容が変わるとか20や50や100個と言うならその対になる一覧表をシートに準備する方が良いでしょうし、
更に数千~とかならデータベースを用いるのも手ですよね。(データの入力はそれはそれで覚えなきゃでしょうけど)
必要とする情報量によってやり方は違うと思いますよ。
>メッセージを表示させたく、
メッセージボックスで表示させるのか、どこかのセルの値としてなのか。。。はキチンと記載した方が宜しいかと。
セルに入れるなら『どこのセル(列)なのか』とかね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【初月無料キャンペーン実施中】オンライン健康相談gooドクター
24時間365日いつでも医師に健康相談できる!詳しくはコチラ>>
-
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
数字以外の入力をエラーにするには?
Visual Basic(VBA)
-
4
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
5
EXCELで特定の文字列を入力→エラー表示したい
その他(Microsoft Office)
-
6
VBAで「セルに何か入っている場合」
Windows Me・NT・2000
-
7
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
8
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
9
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
10
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
11
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
12
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
13
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
14
エクセルVB ポップアップウィンドウを出す方法
Excel(エクセル)
-
15
VBAでInputBoxの再入力をさせるには?
Visual Basic(VBA)
-
16
VBA 条件が一致した場合のみコピーする
その他(ビジネス・キャリア)
-
17
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
18
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
19
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
20
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
ExcelVBAを使って、値...
-
5
セル色なしの行一括削除
-
6
Excel VBA、 別ブックの最終行...
-
7
B列に特定の文字列が入っている...
-
8
Application.Matchで特定行の検索
-
9
【Excel VBA】指定行以降をクリ...
-
10
”戻り値”が変化したときに、マ...
-
11
Google Apps Script:Googleスプ...
-
12
EXCELで変数をペーストしたい
-
13
i=cells(Rows.Count, 1)とi=cel...
-
14
screenupdatingが機能しなくて...
-
15
OutlookVBAでコピーした文字を...
-
16
TODAY()で設定したセルの日付...
-
17
エクセルの複数データーをダブ...
-
18
エクセル マクロで セルの範...
-
19
Excel VBAで比較して数値があっ...
-
20
VBAマクロで結合セルを含む列に...
おすすめ情報
公式facebook
公式twitter
neKo_deux様、ご回答いただきましてありがとうございます。
補足させていただきます。
私の説明不足でした。申し訳ございません。
正しくはDセルに[いちご]意外にも入力されているデータがございまして、
スイカと入力されている時上記のメッセージを表示させたいご質問になります。
よろしくお願いいたします。