自动增行录入

宾临城下

由于打印页面效果的要求,把shieet1设计成我需要的页面效果,输入数据后打印该表,每次打印的表格是一样的,只是数据不同,但我又要把每次输入的数据打印完后在sheet2保存起来.即在sheet1里设置一个按扭,每次在sheet1的固定单元格输入数据,单击这个按扭后在sheet2自动增加一行录入sheet1的信息.相当于把sheet1当作表单,把sheet2当作数据清单来使用.

宾临城下

为了一个素不相识的网友,在不图回报的情况下,干到凌晨1点多钟,虽然我还没有试结果,但看到回答时间我就有点过意不去.这种精神值得所有office中国论坛的人学习,我在此表示感谢,感谢少侠.谢谢!

宾临城下

原帖由 excel201 于 2008-5-6 01:00 发表
Private Sub CommandButton1_Click()
   
   With Worksheets("sheet1")
       '代号
       dh = .Range("d2").Value
       '出货时间
       chsj = .Range("d11").Value & "年" & .Range("f11").Value &  ...

我把少侠的代码粘贴进事件里,再添加剩余代码后,只有时间录入正确,请少侠检查.

宾临城下

我不懂语句,我只是依样画葫芦,呵呵!

宾临城下

问题已解决.
我不懂VBA,摸索了一下,好象要定义变量名,漫漫看吧,
少侠辛苦了,方便的话我一定请你喝酒,再次谢谢!