vba excelを使用して異なる値を含む異なるExcelシートのセル値を検出する

Question

以下のコードに基づいて、このコードでは「Oranges」、「Oranges1」、「Oranges 2」などの単語を検出しますオレンジを検出するだけです。別のExcelシートでOranges1 & Oranges2という単語を検出したいときは、もっと複雑になりました。私はその後、細胞（I、1）.Valueの= "オレンジ& Oranges1"

場合 に続いて

もし細胞（I、1）.Valueの= "オレンジ" を変更しようとしているが、これはそうではありません作業。このコードがセル名を検出できるようになったら、計算を実行します。

このケースで私の解決策はありますか？

マイコード

Private Sub CommandButton1_Click() 

' Get the last row with text 
Dim LastRow As Long 
LastRow = Cells(Rows.Count, 1).End(xlUp).Row 

Dim i As Integer, Total As Double 
Total = 0 

' Use LastRow in loop 
For i = 1 To LastRow 

    ' Check if cell has text "Oranges" 
    If Cells(i, 1).Value = "Oranges " Then 
     Dim Val1 As Double 
     Dim Val2 As Double 

     Val1 = Worksheets("Sheet1").Cells(i, 2).Value 
     Val2 = Worksheets("Sheet2").Cells(i, 2).Value 

    ' Add value in column B to total 
     Total = Val1 + Val2 
     Dim sum As Double 
     sum = Val1 + Val2 
     Worksheets("Interface").Cells(i, 3) = "Total" 
     Worksheets("Interface").Cells(i, 4).Value = sum  
    End If   
    Exit For 
Next i 

Answer 1

あなたはSelect CaseであなたのIf Sを置き換えることができ、それはあなたが将来的にはより多くのシナリオを追加することができます。

Select Case Cells(i, 1).Value 
    Case "Oranges", "Oranges1", "Oranges 2" 
     ' the rest of your coding goes here 

End Select