寻求EXCEL表格使用的方法

来源:百度知道 编辑:UC知道 时间:2024/05/28 20:03:44
我在使用excel表格时,想每一行数据能够生成一个新的工作表
说明:我是在一个生产型的企业,使用EXCEL登记订货,然后再下订单,如何在一个工作表内输入数据以后自动生成一个新的工作表作为订单呢?
http://www.jnbus.com.cn/club/UpFile/UpAttachment/2008-3/2008319164248.rar
给个附件吧,就在上面工作表1时预订单,表2是根据预订单要生成的,直接帮俺做个模板吧,谢谢了

给你写个例子吧,你只要把相关数据应该怎么连接过去就行了。

alt+F11调出vba窗口,插入,模块,然后拷贝下面的代码后保存。
Sub CreateOrderSheet()
Dim ordersheet
Dim datasheet
Dim iRow As Integer

iRow = Selection.Row
Set datasheet = ActiveSheet
Set ordersheet = Sheets.Add
With ordersheet
'data copy
.Cells(1, 1).Value = datasheet.Cells(iRow, 1)
.Cells(1, 2).Value = datasheet.Cells(iRow, 2)
.Cells(1, 3).Value = datasheet.Cells(iRow, 3)
.Cells(1, 4).Value = datasheet.Cells(iRow, 4)
End With
End Sub

【使用方法】
你可以这样试验一下这个简单例子。
在当前sheet中,任意一行随便的A,B,C,D列输入一点数据。然后光标保持在这一行不要移开,运行宏CreateOrderSheet。
会自动生成一个新的sheet,A1到D1的数据就是刚才输入的数据。
你只要根据你的要求,修改一下数据拷贝到关系就可以。
另外,最好事先做好一个订单sheet的样本,设置好相关单元格的格式,每次生成新的订单时从样本拷贝然后赋值的话最好了。

看不懂的话,留附件好了。

不会吧,这简单的东西也搞不到呀

vba实现