求助：求大侠帮写几个命令按钮的代码

无虎山猴

求助：求大侠帮写几个命令按钮的代码
设工作簿中sheet1为数据库表，sheet2为数据采集表
1、让sheet2表中“添加”按钮实现：按下按钮将表中采集信息作为一条记录添加到sheet1的空行对应单元格中保存的功能代码（按一次加一条可重复，添加后可在sheet1中修改信息）。
2、sheet1表中“打印”按钮实现：按下按钮将光标所在行的记录显示为sheet2的采集表格式的功能代码。求助：求大侠帮写几个命令按钮的代码
工作簿中设sheet1为数据库表，sheet2为数据采集表
1、让sheet2表中“添加”按钮实现：按下按钮将表中采集信息作为一条记录添加到sheet1的空行对应单元格中保存的功能代码（按一次加一条可重复，添加后可在sheet1中修改信息）。
2、sheet1表中“打印”按钮实现：按下按钮将光标所在行的记录显示为sheet2的采集表格式的功能代码。

无虎山猴

补上附件

无虎山猴

怎么回事？没人在吗？------这里好象人气不太旺呀

279821564

怎么回事？没人在吗？------这里好象人气不太旺呀

ring-finger

'数据添加代码
Sub add()

    Dim i&, Sht As Worksheet
   
    Sheets(1).Activate
    Set Sht = Sheets(2)
   
    i = [A65536].End(xlUp).Row + 1
    With Sht
        Cells(i, 1) = .[R2]
        Cells(i, 2) = .[M24] & "/" & .[P24] & "/" & .[S24]
        Cells(i, 3) = .[E4]
        Cells(i, 4) = .[D5]
        Cells(i, 5) = .[F6]
        Cells(i, 6) = .[M7]
        Cells(i, 7) = .[G8]
        Cells(i, 8) = .[B10]
        Cells(i, 9) = .[B11]
        Cells(i, 10) = .[B12]
        Cells(i, 11) = .[B13]
        Cells(i, 12) = .[B14]
        Cells(i, 13) = .[B15]
        Cells(i, 14) = .[B16]
        Cells(i, 15) = .[B17]
        Cells(i, 16) = .[B18]
        Cells(i, 17) = .[B19]
    End With
   
End Sub

ring-finger

'数据添加代码
Sub add()

    Dim i&, Sht As Worksheet
   
    Sheets(1).Activate
    Set Sht = Sheets(2)
   
    i = [A65536].End(xlUp).Row + 1
    With Sht
        Cells(i, 1) = .[R2]
        Cells(i, 2) = .[M24] & "/" & .[P24] & "/" & .[S24]
        Cells(i, 3) = .[E4]
        Cells(i, 4) = .[D5]
        Cells(i, 5) = .[F6]
        Cells(i, 6) = .[M7]
        Cells(i, 7) = .[G8]
        Cells(i, 8) = .[B10]
        Cells(i, 9) = .[B11]
        Cells(i, 10) = .[B12]
        Cells(i, 11) = .[B13]
        Cells(i, 12) = .[B14]
        Cells(i, 13) = .[B15]
        Cells(i, 14) = .[B16]
        Cells(i, 15) = .[B17]
        Cells(i, 16) = .[B18]
        Cells(i, 17) = .[B19]
    End With
   
End Sub

279821564

楼主，我昨晚帮你研究了一下，但我的电脑硬盘坏了，启动不了。。。修好后，上传给你

279821564

纳税人资料接收单数据.rar (50.44 KB, 下载次数: 45)

2014-12-23 19:55 上传

点击文件名下载附件

请看附件，你的格式小小修改了下，不然不好实现。

wwtt11

哇 这代码太牛逼了