非大小写敏感格式

Question

我有一张excel表，其中包含的列包含＆＃34; sick＆＃34;按下按钮时我想用删除线格式化。我有以下代码，如果单元格值是＆＃34; Sick＆＃34;但如果价值是＆＃34;生病了，那就没有了。有没有办法可以更改代码，使其不区分大小写？

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