不会写vb求大神给一段对比终止执行的代码

请教各位大神，我录制了一个宏按钮，能够正确执行，但是按多了会顶掉前面的数据，我想加入一个if
判定，如果单元格1内数据＝单元格2内数据则不执行宏
我不会vb求大神能给一段这个代码我加到宏代码末端

上个附件到百度网盘并贴上链接地址，简单的文字说明以图示为主。

不感兴趣

开通SVIP免广告

if range("A1")＝range("B1") then exit sub
把这一句插入到sub里的开头.A1和A2改为你需要相等的两个单元格的地址
-----------------------------------------
不好好看吧规,数据也没有图片也没有
代码有运行顺序的,你以为想加到哪就加到哪

Sub 按钮2_Click()
'
' 按钮2_Click 宏
' 复制引用区粘贴至累计记录表对比7日增减
'
' 快捷键: Ctrl+q
'
Range("D30").Select
Selection.Copy
Range("P13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C13:P13").Select
Application.CutCopyMode = False
Selection.Copy
Range("B13").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
If Range("O13") = Range("P13") Then Exit Sub
End Sub

网页链接 [金山文档] 8月24日库存日报表.xlsm 这个是我做的简表，每日复制新建当日记录表存放

1、你要比较，那肯定是要在复制之前就比较了，哪有操作做完了才比较？
2、库存表我只见过某一时点有多少件的，没有见过以某一天为起点，前面每一天结余是多少的。因为那样每天编表格都要把之前的数据都抄一遍的，笨办法。
思路问题

帮你稍微修改了一下,业务逻辑我没有帮你看
if帮你放到开头了
Sub 按钮2_Click()
'
' 按钮2_Click 宏
' 复制引用区粘贴至累计记录表对比7日增减
'
' 快捷键: Ctrl+q
'
If Range("O13") = Range("P13") Then Exit Sub
Range("D30").Copy
Range("P13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("C13:P13").Copy
Range("B13").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

10回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六