определить значение ячейки в разных листах excel, которые содержат различное значение, используя vba excel

Question

На основании кода, приведенного ниже, я хочу, чтобы этот код обнаружил слово «Апельсины», «Апельсины1», «Апельсины 2» и т. Д., Но все, что я могу сделать сейчас только для обнаружения апельсинов. Мне стало сложнее, когда я хочу обнаружить слово Oranges1 & Oranges2 в другом листе excel. Я пытаюсь изменить

Если клетки (I, 1) .Value = "Апельсины", а затем в Если клетки (I, 1) .Value = "Апельсины & Oranges1" Тогда

, но это не Работа. Я хочу выполнить вычисления, как только этот код сможет определить имя ячейки.

Есть ли решение для меня в этом случае?

Мой код

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

Вы можете заменить If с с Select Case, это позволит вам добавить больше сценариев в будущем.

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

End Select