在表一中输入三个数值:发货单号:1001 。日期:20070102 。 金额:500。
然后点击‘输入数据’这个按钮后,这三个数值会自动生成到表二中;
表二为:发货单号 日期 金额
1001 20070102 500
------解决方案--------------------------------------------------------
添加按钮click事件,sheet2.cells(x,y)=sheet2.cells(x1,y1) 不知阁下是否用过VBA编程。
------解决方案--------------------------------------------------------
在EXCEL中添加一个按钮,双击按钮,添加sheet2.cells(x,y)=sheet1.cells(x1,y1)
x,x1
y,y1
为单元格的横纵坐标,sheet1,sheet2为两个表的名称
------解决方案--------------------------------------------------------
Private Sub CommandButton1_Click()
Dim intRow As Integer
intRow = 2
While Worksheets(2).Range( "A " & intRow) <> " "
intRow = intRow + 1
Wend
Worksheets(2).Range( "A " & intRow) = Worksheets(1).Range( "A2 ")
Worksheets(2).Range( "B " & intRow) = Worksheets(1).Range( "B2 ")
Worksheets(2).Range( "C " & intRow) = Worksheets(1).Range( "C2 ")
End Sub