小编pex*_*223的帖子

我想比较2个单元格的值，看看它们是否匹配。我知道如何在excel上执行此操作，但我不知道如何将其放入vba代码。

输入输出：

1. 单元格A1的值已在Excel中。
2. 在单元格B1中手动输入一个值。
3. 单击button_click子项以查看2个单元格上的值是否相同。
4. 在单元格C1上显示“是”或“否”

Excel公式：

=IF(A1=B1,"yes","no")

我很难300从名为的输入中检索值points。

这是我的HTML和VBA代码。

HTML：

<td id="myPower_val_9" style="visibility: visible;">
    <input type="text" disabled="disabled" value="300" name="points"></input>
</td>

VBA：

Dim ie As Object
Dim myPoints As String

Set ie = CreateObject("InternetExplorer.Application")

With ie
  .Visible = 0
  .navigate "www.example.com"

   While .Busy Or .readyState <> 4 
   DoEvents
   Wend

End With

Dim Doc As HTMLDocument
Set Doc = ie.document

myPoints = Trim(Doc.getElementsByTagName("td")(0).getElementById("myPoints").innerText)
Range("A1").Value = myPoints