Question

我正在处理一列不断下降的数据。当下面的单元格的值更改时，我的代码应执行一些命令；如果它没有变化，那就什么也不做。

我的代码如下运行

For y = 51 To 60

  if ThisWorkbook.Sheets("sheet3").Range("ax" & y).Value = _
    ThisWorkbook.Sheets("sheet3").Range("ax" & y - 1).Value then

    With .document
      .getElementById("ctl00_ContentPlaceHolder1_ddlCluster").Focus
      .getElementById("ctl00_ContentPlaceHolder1_ddlCluster").selectedIndex = _
                    ThisWorkbook.Sheets("sheet3").Range("ax" & y).Value
      .getElementById("ctl00_ContentPlaceHolder1_ddlCluster").FireEvent "onchange"

      Application.Wait Now + TimeSerial(0, 0, 3)
    end with

Answer 1

我相信在您的代码中实现的类似功能可能会起作用：

Function 123abc() 

Dim i, j as string

i = ThisWorkbook.Sheets("sheet3").Range("ax" & y - 1).Value
j = ThisWorkbook.Sheets("sheet3").Range("ax" & y ).Value)

IF i <> j THEN

   'Do something

End if

End function

例如，在y为53的AX单元格中：

If    AX52 <> AX53 THEN    'true
           'something will happen
End if

做条件循环

1 个答案: