VBAの複数の条件

現在いくつかのデータを別のワークシートにコピーしていますが、ifの機能に複数の条件を入力する必要があります - ワークブック内の列Hにはチョコレート、イチゴ、バニラがあります。次のシートに送る。これまでのところ、私が持っている、VBAの複数の条件

If Sheets("Sheet1").Cells(i, "H").Value = "chocolate"

にはどうすればいいの列Hはチョコレートやイチゴを持っている場合は、行全体を移動するためにVBAを教えていますか？私は試しました -

If Sheets("Sheet1").Cells(i, "H").Value = "chocolate" Then 
ElseIf If Sheets("Sheet1").Cells(i, "H").Value = "strawberry"

しかし、それはちょうどイチゴの行を保持していた。

2016-09-11 S31

これは、あなたのvba If文に使用します。

If Sheets("Sheet1").Cells(i, "H").Value = "chocolate" Or Sheets("Sheet1").Cells(i, "H").Value = "Strawberry" Then 
... 
Your code 
End If

2016-09-11 18:49:56 Kevin

ありがとうございます！私のH列に「チョコレートアイスクリーム」などの値がある場合は、別のOr文を書く必要なく、「チョコレートアイスクリーム」の代わりに「チョコレートアイスクリーム」を取り込むコードを取得する方法がありますか？ – S31

はい、Sheets（ "Sheet1"）を試してくださいセル（i、 "H"）。値 "chocolate *"と似ています。これは大文字と小文字を区別しますが、値をLower（）関数に入れることで回避できます。 *は、0文字以上の比較ワイルドカードを作成します。 – Kevin

甘い - ありがとう！ – S31

答えて