[已解决]如何实现依据记录自动填充生成表格且打印出来

qq01412

那位大虾给做个例子  谢谢

最佳答案

月排行榜 / 总排行榜

老糊涂

2011-1-26 22:47

根据社保编号，采用VLOOKUP等查找函数，或者编写VBA代码

跳转到最佳答案楼层

herelazy

给个附件啊，无附件无真相！

西安专家

没有附件真的说不清

qq01412

RE: 如何实现依据记录自动填充生成表格且打印出来  谢谢

老糊涂

根据社保编号，采用VLOOKUP等查找函数，或者编写VBA代码

qq01412

晕 我自己写了个 程序也能用  但是感觉不好啊  我换一台机器打印机  就要重新调整一次
有好的方法没

qq01412

Private Sub CommandButton1_Click()
Dim a As String
Dim b As Integer
a = TextBox1.Text
If a = "" Then
   MsgBox "查无此人请检查重新输入"
   Else
   Workbooks("实验.xls").Sheets("biao").Activate
   Sheets("biao").Range("a2").Select
   Selection.End(xlDown).Select
   Selection.End(xlToLeft).Select
   b = ActiveCell.Row
   For i = 2 To b
       If Worksheets("biao").Cells(i, 1).Value = a Then
       Worksheets("打印模块").Cells(5, 2) = Worksheets("biao").Cells(i, 1).Value
       Worksheets("打印模块").Cells(4, 2) = Worksheets("biao").Cells(i, 3).Value
       Worksheets("打印模块").Cells(4, 4) = Worksheets("biao").Cells(i, 4).Value
       Worksheets("打印模块").Cells(4, 7) = Worksheets("biao").Cells(i, 5).Value
       Worksheets("打印模块").Cells(6, 2) = Worksheets("biao").Cells(i, 2).Value
       Worksheets("打印模块").Cells(7, 2) = Worksheets("biao").Cells(i, 9).Value
       Worksheets("打印模块").Cells(6, 4) = Worksheets("biao").Cells(i, 8).Value
       Worksheets("打印模块").Cells(5, 4) = Worksheets("biao").Cells(i, 6).Value
      Exit For
      Else:
      Dim c
      c = c + 1
      End If
   Next
        If c + 1 = b Then
        Application.Goto Workbooks("实验.xls").Sheets("打印模块").Range("a1")
        MsgBox "查无此人请检查重新输入"
        End If
End If
Application.Goto Workbooks("实验.xls").Sheets("打印模块").Range("a1")
End Sub

qq01412

Private Sub CommandButton3_Click()
Worksheets("打印模块").Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$h$28"
ActiveSheet.PrintOut
End Sub

qq01412

Private Sub CommandButton2_Click()
TextBox1.Text = ""
Worksheets("打印模块").Cells(5, 2) = ""
       Worksheets("打印模块").Cells(4, 2) = ""
       Worksheets("打印模块").Cells(4, 4) = ""
       Worksheets("打印模块").Cells(4, 7) = ""
       Worksheets("打印模块").Cells(6, 2) = ""
       Worksheets("打印模块").Cells(7, 2) = ""
       Worksheets("打印模块").Cells(6, 4) = ""
       Worksheets("打印模块").Cells(5, 4) = ""
End Sub

qq01412

Dim qi As Long
Dim mo As Long
Dim qushu
Dim jilushu
Workbooks("2011年辽宁企业退休人员增加基本养老金审批表.xls").Sheets("数据区").Activate
qushu = InputBox("请输入起始记录号和结束记录号，并以“-”连接例如：2-3", "输入信息提示")
If Len(qushu) = 0 Then
MsgBox "必须输入记录号"
End
Else
jilushu = Split(qushu, "-")
qi = jilushu(0)
mo = jilushu(1)
If qi < 2 Then
MsgBox "起始记录必须大于2"
Else
     If qi > mo Then
        MsgBox "起始记录必须小于等于结束记录"
        Else
           Sheets("数据区").Range("a3").Select
           c = qi - Range("a3").Row
           ActiveCell.Offset(c, 0).Select
        For i = qi To mo     
       Worksheets("打印区").Cells(2, 10) = Worksheets("数据区").Cells(i, 51).Value & Worksheets("数据区").Cells(i, 52).Value
       Worksheets("打印区").Cells(2, 2) = Worksheets("数据区").Cells(i, 1).Value
.........
  Application.StatusBar = "准备完毕，请确认打印"
      
          Worksheets("打印区").Activate
          ActiveSheet.PageSetup.PrintArea = "$A$1:$p$33"
          ActiveSheet.PrintOut
          Me.Label5.Caption = "正在打印中...."
          Application.StatusBar = "打印输出完毕，清检查和对"
          Next
        End If
        End If
        Me.Label2.Caption = qi
        Me.Label4.Caption = mo
        Me.Label3.Caption = "-"
        End If
        Me.Label5.Caption = "打印完毕请注意检查核对，谢谢！ O(∩_∩)O"