我对VBA只通了9窍,请问这段EXCEL vba代码具体是什么意思?为什么要这样使用?麻烦高手详细解释一下。高分跪谢了。
Sub save()
Dim ar, ix As Integer
If [B2] = "甲" Then ix = 2: x = Sheets(ix).Range("A65536").End(xlUp).Row
If [B2] = "乙" Then ix = 3: x = Sheets(ix).Range("A65536").End(xlUp).Row
ar = Range("a4:h9")
If x = 1 Then
er = 1
Else
For i = 1 To 6
For j = 2 To 8
If ar(i, j) <> Sheets(ix).Cells(x - 6 + i, j) Then er = 1
Next j
Next i
End If
If er = 1 Then
Sheets(ix).Range("A" & x + 1).Resize(6, 8) = ar
MsgBox "保存成功"
Else
MsgBox "你已保存过该数据"
End If
End Sub
太厉害了。太谢谢你了。我给您增加了100分。
能不能请问一下:
他这里是 检查 A4:H9 有没有变化,如果有变化,就将a4:h9,添加到另外一张表格。
如果我想监测H2的变化,如果H2有变化,就将A4:H9,添加到另一张表格,如果H2没有变化,则A4:H9 不添加。 应该如何更改呢?
你的H2有没有变化指什么 因为H2并不在 A4:H9这个区域内
追问我QQ:358663055,我把附件 发给你吧。
本回答被提问者和网友采纳