非大小写敏感格式

时间:2016-03-31 13:17:30

标签: excel vba excel-vba

我有一张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

1 个答案:

答案 0 :(得分:4)

将行更改为:

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

将查看范围值的小写版本,并根据小写字符串进行检查。这样可以确保无论范围的值如何大写,小写字母总是与小写字母进行比较。

顺便说一句,VBA还支持UCase()函数以及转换为全部大写,因此您的问题也可以通过以下方式解决:

 If UCase(rng.Value) = "SICK" Then
寻找你感兴趣的贴纸↓↓↓
豫ICP备18024241号-1