自动增行录入

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 编辑 ]

excel201

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

excel201

ok~~~~~~~