当前位置: 代码迷 >> VBA >> excel添加按纽实现数据关联解决思路
  详细解决方案

excel添加按纽实现数据关联解决思路

热度:8439   发布时间:2013-02-26 00:00:00.0
excel添加按纽实现数据关联

在表一中输入三个数值:发货单号: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
  相关解决方案