[已解决]打印当前表并把数据录到其他表

nikeat

我有两个页签，一个是打印收据、二个是收款明细，如上表是要打印的数据，这些是要我手动输入数据，我想做一个按钮，这个按钮可以实现的功能就是以房号和收款事项为条件去查找到收款明细这个表里面的对应位置并把数据录入，录入的同时也把当前的收取的时间也录入进去，因为有几次收款时间，所以要录入最近的一笔，比如之前收过两笔钱了，这次打印的话就要录到第三笔，然后再把打印数据这个表发送到打印机打印。可以用什么实现，宏或者vba什么的，希望高手来帮帮忙。有酬谢，加我qq1229910275.

录入并打印.rar (6.8 KB, 下载次数: 5)

2015-6-30 09:39 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

ssdboy

2015-7-1 19:12

Sub 按钮1_Click()
Dim rng As Range
Dim i As Long
    Set rng = Sheet1.Range("B:B").Find(Sheet2.Range("S5"))
     If Not rng Is Nothing Then
     MsgBox rng.Row
       If Sheet1.Cells(rng.Row, 4) = "" Then
          Sheet1.Cells(rng.Row, 4) = Sheet2.Range("S3")
       End If

       If Sheet2.Range("S11") = "定金" Then
          For i = 8 To 10 Step 2
          If Sheet1.Cells(rng.Row, i) = "" Then
          Sheet1.Cells(rng.Row, i) = Sheet2.Range("S2")
          Sheet1.Cells(rng.Row, i - 1) = Sheet2.Range("S15")
          GoTo 2000
          End If
          Next i
       ElseIf Sheet2.Range("S11") = "房款" Then
       For i = 12 To 18 Step 2
          If Sheet1.Cells(rng.Row, i) = "" Then
          Sheet1.Cells(rng.Row, i) = Sheet2.Range("S2")
          Sheet1.Cells(rng.Row, i - 1) = Sheet2.Range("S15")
          GoTo 2000
          End If
          Next i
       End If
    Else
        MsgBox rng.Row
    End If
2000:
打印
End Sub

Sub 打印()
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(16, 17)).Address
Sheets("打印数据").PrintOut
End Sub

跳转到最佳答案楼层

nikeat

有人在吗？？？

ssdboy

Sub 按钮1_Click()
Dim rng As Range
Dim i As Long
    Set rng = Sheet1.Range("B:B").Find(Sheet2.Range("S5"))
     If Not rng Is Nothing Then
     MsgBox rng.Row
       If Sheet1.Cells(rng.Row, 4) = "" Then
          Sheet1.Cells(rng.Row, 4) = Sheet2.Range("S3")
       End If

       If Sheet2.Range("S11") = "定金" Then
          For i = 8 To 10 Step 2
          If Sheet1.Cells(rng.Row, i) = "" Then
          Sheet1.Cells(rng.Row, i) = Sheet2.Range("S2")
          Sheet1.Cells(rng.Row, i - 1) = Sheet2.Range("S15")
          GoTo 2000
          End If
          Next i
       ElseIf Sheet2.Range("S11") = "房款" Then
       For i = 12 To 18 Step 2
          If Sheet1.Cells(rng.Row, i) = "" Then
          Sheet1.Cells(rng.Row, i) = Sheet2.Range("S2")
          Sheet1.Cells(rng.Row, i - 1) = Sheet2.Range("S15")
          GoTo 2000
          End If
          Next i
       End If
    Else
        MsgBox rng.Row
    End If
2000:
打印
End Sub

Sub 打印()
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(16, 17)).Address
Sheets("打印数据").PrintOut
End Sub

nikeat

很好很强大！！！！