求助

学以用之

新建文件夹.zip (12.58 KB, 下载次数: 1)

2014-6-24 21:39 上传

点击文件名下载附件

问题在采购工作薄中，请老师帮忙


该贴已经同步到 学以用之的微博

cortplayer

原问题：“老师们好！我想把采购单打印后，用vba粘贴到同一文件夹下的22.xlsx工作薄sheet1的B列的第一个空单元格为起点的单元区域内，然后清空采购单的条目，下次输入后再粘贴到22.xlsx的b列的第一空单元格为起点的单元格区域内，怎么写代码”

cortplayer

1. Sub 打印()
   
2. 
   
3.     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
   
4.         IgnorePrintAreas:=False
   
5.     Range("B3:D6").Copy
   
6.     Workbooks("22.xlsx").Activate
   
7.     Sheets(1).Cells(Cells(65536, 2).End(xlUp).Row + 1, 2).Select
   
8.     ActiveSheet.Paste
   
9.     Workbooks("采购.xlsx").Activate
   
10.     Range("B3:D6").ClearContents
    
11. 
    
12. End Sub

复制代码

cortplayer

这个需要两个工作簿都打开，不知道不打开22.xlsx能不能实现，另如果输入行数每次变动，可以先用end定位，
新手学习中……

顺便问一下，怎么在编辑回复的时候直接输入文字啊  我一打字就写进代码框里