VBA突出顯示行

我想創建一個代碼來遍歷Excel文檔。我希望宏根據我檢查的單元格左邊的值突出顯示所有行。這就是我想說的，但不能在代碼中正確使用。VBA突出顯示行

For x = 4 to 3918 
    if (x,2) contains the letters "LW" then 
     look at (x,1) 
     highlight all rows with value = (x,1) green

請幫忙，謝謝。

來源

2016-06-27 ROCKYIII

如果你知道邏輯，編碼就是cakewalk ... – findwindow

它可以通過條件格式來完成，是vba的一個要求嗎？ –

雖然我不能肯定，我相信你想，像這樣

for x = 4 to 3918 
    if Instr(cells(x, 2), "LW") then 
     numToFind = cells(x, 1) 
     for y = 4 to 3918 
      if cells(y, 1) = numToFind then 
       cells(y, 1).entirerow.Interior.ColorIndex = 4 
      end if 
     next y 
    end if 
next x

上午我讀你正確的翻譯你的僞代碼？

來源

2016-06-27 19:19:26

我試過這段代碼。它很接近，它突出顯示了（x，2）中所有具有「LW」的行。但是，它不讀取（x，2）左邊的單元格，找到所有具有值（x，1）的行並高亮顯示這些單元格。 – ROCKYIII

@ROCKYIII'找到所有具有值（x，1）的行''沒有任何意義，因爲'x'發生了變化... – findwindow

@ROCKYIII您想查找所有具有值（x，1）的行。這個值可以連續在任何地方嗎？ –

VBA突出顯示行

回答

相關問題