[已解决]做一个物品录入的宏

hsuyan2008

如图。谢谢各位大师指导

应付款.rar (11.5 KB, 下载次数: 6)

2015-1-22 14:21 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

芐雨

2015-1-22 14:47

你测试下
应付款.zip (20.64 KB, 下载次数: 26)

2015-1-22 14:47 上传

点击文件名下载附件

跳转到最佳答案楼层

芐雨

你测试下
应付款.zip (20.64 KB, 下载次数: 26)

2015-1-22 14:47 上传

点击文件名下载附件

hsuyan2008

芐雨 发表于 2015-1-22 14:47
你测试下

刚才试了下，是我想要的效果，谢谢，{:1112:}我原来做的好复杂

hsuyan2008

芐雨 发表于 2015-1-22 14:47
你测试下

大虾，发现个问题，就是我想点宏按钮后，自动删除物品信息，方便下次重新输入不用手动删除，怎么变成是删掉“往来明细”表格的内容了？

1. Sub t()
   
2.     Dim arr(1 To 17)
   
3.     arr(1) = [B2]
   
4.     arr(2) = [B3]
   
5.     arr(3) = "'" & [B4]
   
6.     arr(4) = [J4]
   
7.     arr(5) = "'" & [E2]
   
8.     arr(6) = [F2]
   
9.     arr(7) = [E3]
   
10.     For Each rg In Range("C6:C17")     '遍历C6到C17单元格
    
11.         If Len(rg) > 0 Then            '单元格不为空时执行
    
12.             arr(10) = arr(10) & "、" & rg   '顿号连接
    
13.         End If
    
14.     Next
    
15.     arr(10) = Mid(arr(10), 2)  '删除第一个顿号
    
16.     With Sheets("往来明细")
    
17.         .Cells(Rows.Count, 1).End(3).Offset(1).Resize(, 17) = arr
    
18.         .Select
    
19.     End With
    
20.     Range("A6:G12").Select
    
21.     Selection.ClearContents  '清除内容
    
22.     Range("I6:J12").Select
    
23.     Selection.ClearContents  '清除内容
    
24.     MsgBox "入库完成!"
    
25.    
    
26. End Sub
    

复制代码

芐雨

因为活动工作表是Sheets("往来明细")，所以删除的是行来明细的
你在指明是哪个工作表
sheets("入库单").Range("A6:G12").ClearContents

hsuyan2008

芐雨 发表于 2015-1-22 16:15
因为活动工作表是Sheets("往来明细")，所以删除的是行来明细的
你在指明是哪个工作表
sheets("入库单").R ...

可以了，谢谢！！我都是拿别人的代码来研究改动的，还没时间认真学过代码，所以好多名称也都不懂是什么意思。谢谢指点