那位大神帮我看看这代码为什么出错了

geryuxi

[img]file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\103071190\QQ\WinTemp\RichOle\K~3~H`J3ET}[6O@FPMTM23P.jpg[/img]

VE1.rar (32.4 KB, 下载次数: 4)

2013-11-20 21:29 上传

点击文件名下载附件

geryuxi

坐沙发等解答{:soso_e113:}

antlia

geryuxi 发表于 2013-11-21 12:53
坐沙发等解答

出错语句的resize 用的莫名其妙导致出现负的行数的运行错误。
众所周知，excel 是不可能出现负的行数的。
去除掉三条语句后面的resize, 则该代码可以正常运行。
BTW: 很不喜欢你的这种程序写法。

1. Sub 录入()
   
2.     'Stop
   
3.     If [b2] = "" Then [i2] = "=today()"
   
4.     If [g2] = "" Then MsgBox "请输入单据编号!": Exit Sub
   
5.     If [b2] = "" Then MsgBox "请选择收经销商!": Exit Sub
   
6.     On Error GoTo 100
   
7.     Dim es As Range, a%
   
8.     If Sheets("销售明细").[k:k].Find([g2]) = [g2] Then
   
9.         MsgBox "已经保存过了！"
   
10.     Else
    
11. 100:
    
12.         Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
    
13.         a = Application.CountA(Sheets("销售明细").[a:a])
    
14.         If es.Row = 3 Then MsgBox "没有填写内容": End
    
15.       
    
16.         Range([a4], es).Copy Sheets("销售明细").Cells(a + 1, 1)
    
17. 
    
18.         Sheets("销售明细").Cells(a + 1, "j") = [b2] '经销商
    
19. 
    
20. 
    
21.         Sheets("销售明细").Cells(a + 1, "k") = [g2]    '单据编号
    
22. 
    
23.         Sheets("销售明细").Cells(a + 1, "l") = Now()    '记账日期
    
24.     End If
    
25. End Sub

复制代码

geryuxi

请问那种方法好啊，还有就复制的时候不让他复制单元格式

antlia

geryuxi 发表于 2013-11-23 09:07
请问那种方法好啊，还有就复制的时候不让他复制单元格式

不要复制单元格式用选择性粘贴，你自己录制一个宏就知道了。

geryuxi

用代码怎么怎么写啊

kaka11

还没有学习到这个程度