Excel VBA – For Each…Next 陳述式

Loading

測試環境 Windows 10 + Excel 2016

透過 For Each…Next 陳述式來搜尋資料 , 參考文章 – https://learn.microsoft.com/zh-tw/office/vba/language/concepts/getting-started/using-for-eachnext-statements

下面程式會在 A1 到 D1 區間搜尋字串有 Error 字樣的,並變更為粗體.

Sub eachtest()
 For Each c In Range("A1:D1")
  If c.Value Like "*Error*" Then
   c.Font.Bold = True
  End If
 Next
End Sub

說明:

  • For Each c In Range(“A1:D1”)
    使用 For Each Next 檢視範圍為 A1 到 D1.
  • If c.Value Like “*Error*” Then
    如果欄位值包含 Error 字串.
  • c.Font.Bold = True
    就變更為粗體.

執行結果:

沒有解決問題,試試搜尋本站其他內容

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *

這個網站採用 Akismet 服務減少垃圾留言。進一步了解 Akismet 如何處理網站訪客的留言資料