一个简单代码出现的问题

zhc19620430

利用别人的代码做了个收据，保存到数据库后会出现一些不需要的东西（用颜色憋住出来的部分），请问怎么处理掉。

蓝桥玄霜

1. Sub 保存()
   
2. '保存数据
   
3. Sheet1.Activate
   
4. With Sheets("数据库")
   
5.     x = .Cells(Rows.Count, 1).End(xlUp).Row + 1 '取得"数据库"表中最后一个空行的行号（即写入位置）
   
6.     y = Sheet1.Range("b" & 80000).End(xlUp).Row - 4
   
7.     .Cells(x, 1) = [E5]  '日期
   
8.     .Cells(x, 2) = [H5]  '单号
   
9.     .Cells(x, 3) = [C7]  '交款单位
   
10.     .Cells(x, 4) = Cells(7, 8)   '收款方式
    
11.     .Cells(x, 5) = Cells(9, 8)   '金额
    
12.     .Cells(x, 6) = Cells(11, 3)   '事由
    
13.     .Cells(x, 7) = Cells(13, 6)   '出纳
    
14.     .Cells(x, 8) = Cells(13, 8)   '经手人
    
15.     .Cells(x, 9) = Cells(13, 3)  '财务主管
    
16. End With
    
17. '清除数据
    
18. Sheets("收据").Range("C7,H7,H9,C11").ClearContents
    
19. '最后让票据的号码自动加1
    
20. s = Range("H5") '收据上的当前序号在H5单元格
    
21. Range("H5") = Left(s, 2) & Right("0000" & Right(s, 11) + 1, 11) '打印完毕后让序号加一（编号的左三位是字符，右十位是数字）
    
22. MsgBox "保存完毕", , "提示"
    
23. End Sub
    

复制代码

里面的循环多余了。

zhc19620430

蓝桥玄霜 发表于 2015-10-28 18:42
里面的循环多余了。

谢谢，我最近才又捡起来学习。

蓝桥玄霜

循环多余了。请见附件。

zax010

代码简化一下：
Sub 保存()
    With Sheet1
        nr = Array(.[e5].Value, .[h5].Value, .[c7].Value, .[h7].Value, .[h9].Value, .[c11].Value, .[f13].Value, .[ h13].Value, .[ c13].Value)
        lr = Sheet2.[a65536].End(3).Row + 1
        Sheet2.Cells(lr, 1).Resize(1, UBound(nr) + 1) = nr
        s = .Range("H5")
        .Range("H5") = Left(s, 2) & Right("0000" & Right(s, 11) + 1, 11)
    End With
    MsgBox "保存完毕", , "提示"
End Sub

zax010

>>>>>>>>>>>>>>>>>>>>>

博圣电气收据模板 - 副本.rar (22.16 KB, 下载次数: 11)

2015-10-28 20:55 上传

点击文件名下载附件

zhc19620430

zax010 发表于 2015-10-28 20:55
>>>>>>>>>>>>>>>>>>>>>

谢谢，我好好看看。