范围（“”）。值=“百分比％”错误

Question

我正在寻找一个简单的VBA行，当其他单元格等于某个值时，它会擦除​​某些单元格。

以下代码适用于Text和Numeric值，但如果值等于百分比，则无法检查和清除单元格。

Sub Module1()

 If Range("C5").Value Like "Done" And Range("D5").Value = "100%" Then
    Range("B5").ClearContents
 End If


End Sub

如果我从D5值检查中删除％符号，它仍然无效。单元格本身被格式化为百分比。

Answer 1

百分比是一个格式化为文本的数字。

更改

Range("D5").Value = "100%" 

到十进制值。

Range("D5").Value = 1