非區分大小寫的格式

Question

我有一個Excel工作表，該工作表的一列包含諸如“病態”之類的值，當按下按鈕時，我想用刪除線對其進行格式化。 如果單元格值是“ Sick”，那么我有以下代碼可以完美工作，但是如果值是“ sick”，則不是。有沒有辦法我可以更改代碼使其不區分大小寫？

For Each rng In ws.Range("E1:E" & lastrow)
If rng.Value = "Sick" Then
ws.Range("A" & rng.Row).Resize(1, 2).Font.Strikethrough = True
End If
Next rng

Answer 1

將行更改為：

 If LCase(rng.Value) = "sick" Then

它將查看范圍值的小寫版本，並對照小寫字符串進行檢查。 這樣可以確保無論范圍值如何大寫，始終將小寫與小寫進行比較。

順便說一句，VBA還支持UCase()函數以轉換為所有大寫字母，因此您的問題也可以通過以下方法解決：

 If UCase(rng.Value) = "SICK" Then