自动增行录入

宾临城下

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

excel201

Private Sub CommandButton1_Click()
   
   With Worksheets("sheet1")
       '代号
       dh = .Range("d2").Value
       '出货时间
       chsj = .Range("d11").Value & "年" & .Range("f11").Value & "月" & .Range("h11").Value & "日"
      
   End With
   
   
   With Worksheets("sheet2")
      '在第4行前插入一新行，这是关键呀
      .Rows(4).Insert
     .Range("a4").Value = dh
     .Range("b4").Value = chsj
     
  End With
  
   
End Sub

时间不早了，困死了。其他的出货次数、数量、人员，你自己填代码吧

[ 本帖最后由 excel201 于 2008-5-6 01:02 编辑 ]

宾临城下

为了一个素不相识的网友,在不图回报的情况下,干到凌晨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 &  ...

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

excel201

你变量搞错了，饭后我给你搞一个

excel201

ok~~~~~~~

宾临城下

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

宾临城下

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

tygg

真的不错,又学习了一种表单录入法

松涛伴雨入帘栊

老大:
太感谢了!
谢谢宾临城下提出这个问题,更谢谢excel201解决了这个问题.
这个问题对小可也很管用.

还想进一步请教一个问题
按6楼处理自动增行录入,有"如积薪,后来居上".但人们通常习惯于
让最先录入的数据,在最上面.以此类推,最后录入的数据则在最后.
要如何改动,才能达此目的?