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

我正在寻找一个简单的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