VBA腳本循環遍歷整行，如果找到特定子字符串，則粗體顯示單元格

-4

如何循環顯示整行「A」，直到包含最後一個條目的行並在單元格中搜索以下子字符串「FG- DFG-123「？一旦我發現子串存在，我需要加粗整個單元格。VBA腳本循環遍歷整行，如果找到特定子字符串，則粗體顯示單元格

在此先感謝！

來源

2015-12-02 user5629596

網絡上已經有許多解決方案，您只需要搜索 – newguy

到目前爲止您嘗試過哪些方法？雖然你會在這裏找到對特定問題的幫助，但這不是一個代碼編寫服務。自己提供一些努力！ – Verzweifler

您可以簡單地使用條件格式來執行此操作。你不需要VBA。 – harun24hr

只需使用條件格式。

來源

2015-12-02 09:59:42 harun24hr

感謝harun24hr。但我希望它作爲一個VBA腳本。 – user5629596

謝謝你們！我得到了一段代碼工作正常。子Format_Boldheadings（）昏暗StartCell作爲範圍設定 = StartCell範圍（「A1」）昏暗myList中作爲範圍設定 = myList中範圍（「A1：A」＆範圍（「A」＆Rows.Count）.END（ xlUp）.Row）昏暗X作爲範圍對於每個X在myList中「myList.ClearFormats x.Font.Bold =假如果InStr函數（1，x.Text，「FG-DFG-123」）> 0或者InStr函數（1，x.Text，「FG-GHT-123」）> 0，則 x.Font.Bold =真否則 x.Font.Bold =假結束如果接着結束子 – user5629596

謝謝你們。這段腳本工作正常。

Sub Format_Boldheadings() 

    Dim StartCell As Range 
    Set StartCell = Range("A1") 
    Dim myList As Range 

    Set myList = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row) 
    Dim x As Range 

    For Each x In myList 
     'myList.ClearFormats 
     x.Font.Bold = False 
     If InStr(1, x.Text, "DFG") > 0 Or InStr(1, x.Text, "RTY") > 0 Then 
      x.Font.Bold = True 
     Else 
      x.Font.Bold = False 
     End If 
    Next 
End Sub

來源

2015-12-02 10:14:32 user5629596

VBA腳本循環遍歷整行，如果找到特定子字符串，則粗體顯示單元格

回答

相關問題