小编Akh*_*ary的帖子

我编写了代码来从URL中提取特定页面的数据.我第一次运行代码时,会将数据从URL提取到单元格C1.

我正处于我想要显示MsgBox每当单元格值更改的位置.

例如:

• 我第一次运行代码"Happy"被提取到单元格C1.
  (单元格值发生变化,因此msgbox"值已更改")

• 第二次运行代码然后也"Happy"被提取到单元格C1.
  (表示没有变化,注意到了)

• 我第三次运行代码"Sad"并被提取到单元格C1,
  所以在这一点上,我想要一个msgbox的单元格更改.

我尝试了下面的代码,但即使在单元格中更改了相同的值,它也会显示msgbox.

例如 - 单元格包含文本"Happy".我"Happy"在单元格中重写并按下回车键,因此尽管单元格中的文本相同,但它显示的单元格的msgbox已更改.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("A1:C10")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        ' Display a message when one of the designated cells has been 
        ' changed.
        ' …