想制作一个录入表并学习

litharge · 发表于 2013-6-1 15:45

希望大家帮我搞个录入表~~并能逐条分析~~类型是多条目的~~~

单一的已经用论坛里某大侠的引用.Cells(i, 2).Value = Sheets("Sheet1").Cells(3, 2).Value

但是这个确定是指定某行~用作单一产品反馈单倒是不错~~

但是用做多条录入的入库单确实捉襟见肘

在此表示万分感谢

发一个简单的附件~~

BOOK1.rar (10.27 KB, 下载次数: 41)

litharge · 发表于 2013-6-2 14:37

自己顶一个求帮助

shuyee · 发表于 2013-6-3 08:40

Private Sub CommandButton1_Click()
Dim i%, tmpR As Range, j%
Set tmpR = Range("A3").CurrentRegion.Offset(1, 0)
'给range型变量tmpR赋值:当前工作表A3单元格的连续区域,并下移一行.
'连续区域,在指定单元格A3,按ctrl+A,选中的即是,下移一行, 是为避开表头行
j = tmpR.Rows.Count - 1 '获取行数,并排除最后的空行
i = Sheet2.Range("A65536").End(xlUp).Row + 1
'用End属性,获取sheet2工作表,从A65536单元格开始,向上的首个非空单元格的行号
'由于用End获取的,已经非空,因此要+1,避免履盖
Sheet2.Cells(i, 1).Resize(j, 7) = tmpR.Value
'用Resize方法写出tmpR的值,Cells()指定写的开始单元格
'Resize指定区域的范围:j行,7列
tmpR.ClearContents '清空tmpR对应的工作表区域,不是赋值.
Set tmpR = Nothing '这才是通过赋值的方法,释放tmpR变量
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 想制作一个录入表并学习