求设计收款收据单保存数据，谢谢大家

bbk1980

能把收款收据里面的数据保存下来方便以后查看

w609053988

录一个复制粘贴的宏，稍作修改即可

不要轻狂

新手试编，不喜勿喷

Private Sub CommandButton1_Click()
Dim rng As Range, arr()
MsgBox "是否保存收据单？", 3
With Sheets("数据保存")
    x = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
     For i = 0 To 6
        .Cells(x + i, 1) = [T3] '开票日期
        .Cells(x + i, 2) = [U4] '收据编号
        .Cells(x + i, 3) = [C4] '客户名称
        .Cells(x + i, 4) = Cells(i + 7, 1) '商品名称
        .Cells(x + i, 5) = Cells(i + 7, 4) '规格型号
        .Cells(x + i, 6) = Cells(i + 7, 8) '数量
        .Cells(x + i, 7) = Cells(i + 7, 11) '单位
        .Cells(x + i, 8) = Cells(i + 7, 13) '单价
        .Cells(x + i, 9) = Cells(i + 7, 8) * Cells(i + 7, 13) '金额
        .Cells(x + i, 10) = [T17] '收款人
        Next i
    End With
            Range("A7:O13").SpecialCells(2).ClearContents '清除数据（SpecialCells(2)有公式的单元格不清除）
            Range("AC4") = Range("AC4") + 1
            ThisWorkbook.Save '文件保存
            ActiveWorkbook.RemovePersonalInformation = False '消除“隐私警告”消息框
            MsgBox "已新建收据", , "提示"
        End If
    Next
End Sub

hzruziniu

1. Private Sub CommandButton1_Click()
   
2.     Dim arr(), n&, i&, j&
   
3.     n = Application.CountA(Sheet1.Range("a7:a13"))
   
4.     ReDim arr(1 To n, 1 To 10)
   
5.     x = 1 * Range("t3")
   
6.     For i = 1 To n
   
7.         arr(i, 1) = x
   
8.         arr(i, 2) = Range("u4")
   
9.         arr(i, 3) = Range("c4")
   
10.         arr(i, 4) = Cells(i + 6, 1)
    
11.         arr(i, 5) = Cells(i + 6, 4)
    
12.         arr(i, 6) = Cells(i + 6, 8)
    
13.         arr(i, 7) = Cells(i + 6, 11)
    
14.         arr(i, 8) = Cells(i + 6, 13)
    
15.         arr(i, 9) = Cells(i + 6, 27)
    
16.         arr(i, 10) = Range("t17")
    
17.     Next
    
18.     With Sheets("数据库")
    
19.         i = .Range("a65536").End(3).Row
    
20.         If .Cells(i, 1) = x Then
    
21.              MsgBox "“NO：" & x & "”的收款收据已存在，请检查！"
    
22.             Exit Sub
    
23.         End If
    
24.         .Cells(i + 1, 1).Resize(n, 10) = arr
    
25.         .Cells(i + 1, 1).Resize(n, 10).Borders.LineStyle = xlContinuous
    
26.     End With
    
27.     MsgBox ("OK！保存成功！")
    
28. End Sub

复制代码

bbk1980

为什么我打不开的，是用什么版本的？

bbk1980

hzruziniu 发表于 2019-7-8 14:03

为什么我打不开的，是用什么版本的？

hzruziniu

bbk1980 发表于 2019-7-8 22:02
为什么我打不开的，是用什么版本的？

2007版本，应该可以打开呀。

bbk1980

不要轻狂 发表于 2019-7-8 10:47
新手试编，不喜勿喷

Private Sub CommandButton1_Click()

你的代码我试过会出错，下面那位的就可以运行

bbk1980

hzruziniu 发表于 2019-7-8 14:03

大神，能不能帮在数据库那里加多个功能，重打收据这个，就是在后面有个按钮按一下就把数据填充到收据那里再打印，谢谢了

gradyE

hzruziniu 发表于 2019-7-8 14:03

这样只能检查新增单据与数据库最后一行的单号是否重复，能否检查单据与数据库所有单号是否重复？