六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

Excel记录表格被打印次数的VBA代码

Admin | 2009-9-16 11:40:03 | ReadNums | 7496 | 标签 六合开奖结果现场直播 | 打印本页
     

  以下内容是记录Excel表格被打印次数的VBA源代码!

  条件:

  ①使用A1单元格作为统计打印次数的数据;

  ②在表格中添加一个按钮控件,标题文字是“打印”;

  此按钮控件的代码如下:

  Private Sub CommandButton1_Click()
  Dim i, PrintC, x As Integer
  Dim CountN As String
 
  PrintC = InputBox("打印份数") '弹出输入对话框 

  For i = 1 To PrintC '循环
      ActiveSheet.PrintOut '打印工作表
      CountN = Cells(2, 1) '从第1行,第1列的单元格中取得流水号
      x = CInt(Right(CountN, 5)) '取流水号的右边5位,转换为整数,如果流水号变了,改动数位就可以
      x = x + 1 '流水号+1
      Select Case Len(CStr(x)) '用0补足不到5位的号码
        Case 1
          CountN = Left(CountN, 2) & "0000" & CStr(x)
        Case 2
          CountN = Left(CountN, 2) & "000" & CStr(x)
        Case 3
          CountN = Left(CountN, 2) & "00" & CStr(x)
        Case 4
          CountN = Left(CountN, 2) & "0" & CStr(x)
        Case 5
          CountN = Left(CountN, 2) & "" & CStr(x)
      End Select
      Cells(2, 1) = CountN '改变工作表里的流水号
    Next
End Sub


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日