大文字と小文字を区別しない書式設定

Question

Excelのシートには、ボタンを押したときに取り消し線を使用して書式を設定する「病気」などの値を含む列があります。私は、セルの値が「病気」の場合には完璧に働くが、値が「病気」の場合はそうではないコードを、大文字と小文字を区別しないように変更することができます。

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