请问如何给表格添加按钮并执行命令？

gzy147

求各位高手帮帮忙，新人刚刚接触excel，对这方面一窍不通。
需要通过vba，将指定内容复制到另一个表格中。

gzy147

跪求各位大神帮助啊，现在赶鸭子上架要做这个流水表，但我一窍不通QAQ

梧叶沙沙

模块中输入以下代码

1. Sub 复制()
   
2.     With Worksheets("开票")
   
3.         rrow = .Range("c5").End(xlDown).Row
   
4.         rrow1 = Worksheets("流水").Range("a65536").End(xlUp).Row + 1
   
5.         If rrow > 5 Then
   
6.             ar = .Range("b6:b" & rrow)
   
7.             Worksheets("流水").Range("a" & rrow1).Resize(UBound(ar), 1) = ar
   
8.             br = .Range("c6:i" & rrow)
   
9.             Worksheets("流水").Range("e" & rrow1).Resize(UBound(br, 1), UBound(br, 2)) = br
   
10.         Else
    
11.         End If
    
12. 
    
13.     For i = 1 To UBound(ar)
    
14.     Worksheets("流水").Cells(i + rrow1 - 1, "b") = .Range("i3").Value
    
15.     Worksheets("流水").Cells(i + rrow1 - 1, "c") = .Range("d3")
    
16.     Next
    
17.     End With
    
18. End Sub
    

复制代码

开票表格中输入以下代码

1. Private Sub CommandButton1_Click()
   
2. 复制
   
3. End Sub
   

复制代码

梧叶沙沙

代码附件在这里，可以看一下

梧叶沙沙

1. Sub 复制()
   
2.     With Worksheets("开票")
   
3.         rrow = .Range("c5").End(xlDown).Row
   
4.         rrow1 = Worksheets("流水").Range("a65536").End(xlUp).Row + 1
   
5.         If rrow > 5 Then
   
6.             ar = .Range("b6:b" & rrow)
   
7.             Worksheets("流水").Range("a" & rrow1).Resize(UBound(ar), 1) = ar
   
8.             br = .Range("c6:i" & rrow)
   
9.             Worksheets("流水").Range("e" & rrow1).Resize(UBound(br, 1), UBound(br, 2)) = br
   
10.         Else
    
11.         End If
    
12. 
    
13.     For i = 1 To UBound(ar)
    
14.     Worksheets("流水").Cells(i + rrow1 - 1, "b") = .Range("i3").Value
    
15.     Worksheets("流水").Cells(i + rrow1 - 1, "c") = .Range("d3")
    
16.     Next
    
17.     End With
    
18. End Sub
    

复制代码

gzy147

梧叶沙沙 发表于 2018-3-17 22:06
模块中输入以下代码

开票表格中输入以下代码

感谢大神，但新手的我看了半天，发现其中好多代码都不理解意思与用法。
不知能否解释一下呢？
多谢！

梧叶沙沙

1. Sub 复制()
   
2.     With Worksheets("开票")
   
3.         rrow = .Range("c5").End(xlDown).Row '取得C列已用行号
   
4.         rrow1 = Worksheets("流水").Range("a65536").End(xlUp).Row + 1 '取得流水表格a列已用行号
   
5.         If rrow > 5 Then
   
6.             ar = .Range("b6:b" & rrow) '将“开票”表格中的特征码写入数组
   
7.             Worksheets("流水").Range("a" & rrow1).Resize(UBound(ar), 1) = ar '将特征码写入流水表格
   
8.             br = .Range("c6:i" & rrow) '将  品名~金额 写入数组
   
9.             Worksheets("流水").Range("e" & rrow1).Resize(UBound(br, 1), UBound(br, 2)) = br '将包含 品名~金额 的数组写入流水表格
   
10.         Else
    
11.         End If
    
12. 
    
13.     For i = 1 To UBound(ar)
    
14.     Worksheets("流水").Cells(i + rrow1 - 1, "b") = .Range("i3").Value '写入日期
    
15.     Worksheets("流水").Cells(i + rrow1 - 1, "c") = .Range("d3") '写入客户
    
16.     Next
    
17.     End With
    
18. End Sub
    

复制代码

gzy147

梧叶沙沙 发表于 2018-3-17 23:04

万分感谢！

gzy147

梧叶沙沙 发表于 2018-3-17 23:04

还有一个问题，我希望能够让B5在检测到B6不等于0的时候自动填充特征码，下面的行数以此类推。
并且在复制到“流水”表格后自动下移一个格子以便一下子开票的时候复制内容。
请问应该如何达到这个效果呢？

gzy147

梧叶沙沙 发表于 2018-3-17 23:04

拜读了一下代码，发现了很多不懂的问题，希望能获得解答。
1.ar=.Range("b6:b"&rrow)  中，b6:b指的是什么？c6:1同问。
2.Resize(UBound(ar),1)指的是什么？
3.UBound是什么用处？
万分感谢！