从VBA中定义单元格值的问题

Question

我的代码检查单元格F8和H8的值，如果它们相同，则应将CELL A1设置为“dim”。

Function plchk()

Dim sheet As Worksheet
Set sheet = ActiveWorkbook.Sheets("check")

     If CDbl(Trim(sheet.Range("F8").Value)) = CDbl(Trim(sheet.Range("H8").Value)) Then


       sheet.Range("A1").Value = "dim"


    End If



End Function

执行此代码时，我不断收到错误“VALUE”