首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

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

2012-03-16 
excel添加按纽实现数据关联 在表一中输入三个数值:发货单号:1001。日期:20070102。金额:500。然后点击‘输入数

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

热点排行