電子表格中的搜索字符串和突出顯示

Question

我在Excel中使用VBA來使用Sheet 2的字符串值列表並查詢Sheet 1的數據以查看Sheet 2的值是否存在。如果它們存在，請突出顯示Sheet1中的單元格。

我在第2頁的清單如下：

列以A

管理服務

高管

防火牆'

發電機

互聯網

IT應用支持

代理

補救

我的VBA是：

Private Sub CommandButton1_Click() 

row_num = 1 

Query = Sheet2.Range("A:A") 

While Trim(ActiveCell.Value) <> "" 

row_num = row_num + 1 
    item_sum = Sheet1.Range("B" & row_num) 
    item_note = Sheet1.Range("C" & row_num) 
    item_group = Sheet1.Range("E" & row_num) 

     If (InStr(item_sum, Query) Or InStr(item_note, Query) Or InStr(item_group, Query)) Then 

      ActiveCell.Interior.Color = RGB(255, 255, 0) 

     End If 

Wend 


End Sub 

現在我沒有錯誤標誌，沒有任何亮點。我試圖使用查詢值爲Sheet 2的列A，但我不知道它是否工作。

更新：

我試圖改變While循環：

Do 
DoEvents 
row_num = row_num + 1 
    item_sum = Sheet1.Range("B" & row_num) 
    item_note = Sheet1.Range("C" & row_num) 
    item_group = Sheet1.Range("E" & row_num) 

     If (InStr(item_sum, Query) Or InStr(item_note, Query) Or InStr(item_group, Query)) Then 

      ActiveCell.Interior.Color = RGB(255, 255, 0) 

     End If 

Loop Until item_sum = "" 

但是我突出了以下活動：

Answer 1

我覺得你的代碼工作得很好。唯一的問題是，你沒有突出顯示被檢查的單元格，但是ActiveCell。所以，你可能需要考慮將其改爲如下所示：

Option Base 0 
Option Explicit 
Option Compare Text 

Public Sub CommandButton1_Click() 
Dim item_sum, item_note, item_group As String 
Dim lngRowNumber As Long 
Dim varFound As Variant 
Dim rngQuery As Range 

Set rngQuery = Sheet2.Range("A:A") 
lngRowNumber = 1 

Do 
    If Trim(item_sum) = vbNullString Then Exit Do 
    ' Go to the next row 
    lngRowNumber = lngRowNumber + 1 
    ' Get the data to look for 
    item_sum = Sheet1.Range("B" & lngRowNumber).Value2 
    item_note = Sheet1.Range("C" & lngRowNumber).Value2 
    item_group = Sheet1.Range("E" & lngRowNumber).Value2 
    ' Check the item_sum 
    Set varFound = rngQuery.Find(item_sum, LookIn:=xlValues, LookAt:=xlPart) 
    If Not varFound Is Nothing Then 
     Sheet1.Range("B" & lngRowNumber).Interior.Color = RGB(255, 255, 0) 
     Set varFound = Nothing 
    End If 
    ' Check the item_note 
    Set varFound = rngQuery.Find(item_note, LookIn:=xlValues, LookAt:=xlPart) 
    If Not varFound Is Nothing Then 
     Sheet1.Range("C" & lngRowNumber).Interior.Color = RGB(255, 255, 0) 
     Set varFound = Nothing 
    End If 
    ' Check the item_group 
    Set varFound = rngQuery.Find(item_group, LookIn:=xlValues, LookAt:=xlPart) 
    If Not varFound Is Nothing Then 
     Sheet1.Range("E" & lngRowNumber).Interior.Color = RGB(255, 255, 0) 
     Set varFound = Nothing 
    End If 
Loop 

End Sub 

很明顯，我也對整體代碼做了一些小的改動。希望他們中的一些人有幫助。