请会VBA的朋友帮我做个准考证，问题己在三坛老窖老师帮助下己在18楼解决了，谢谢

三坛老窖

givenyang 发表于 2016-8-29 08:57
老师，设置模板的宏无法打开，指定宏里没有这个名称，请问该如何处理呢

1、将下面代码粘贴到模板工作表模块中
Private Sub Worksheet_Deactivate()
    Me.Visible = xlSheetHidden
End Sub
2、将下面代码粘贴到公共模块1中
Sub 设置模板()
    Worksheets("模板").Visible = xlSheetVisible
    Worksheets("模板").Activate
End Sub
3、给按钮【设置模板】指定宏

tajingji

三坛老窖老师，看了您前面的帖子受益匪浅，我参照您的代码改成了我需要的形式，但是现在有些问题想再请教您，关于您那个代码中的offest（0, 2）还有后面那些offest的函数，您所设的基点单元格是哪一个呢，感谢！因为我的照片和文字内容在一行显示，所以跟现在这个有些区别，我找不到这个基点，麻烦您了，再次感谢！
准考证2003 - 副本.rar (347.71 KB, 下载次数: 21)

2017-5-17 09:22 上传

点击文件名下载附件

我现在改完点生成准考证的时候，没有任何数据读取过来呢

三坛老窖

tajingji 发表于 2017-5-16 16:45
三坛老窖老师，看了您前面的帖子受益匪浅，我参照您的代码改成了我需要的形式，但是现在有些问题想再请教您 ...

你说的offset（0，2）是指调用 贴照片 过程所用的第一个参数 rng.Offset(0, 2).Resize(1, 2)中的offset（0，2）吧。它的基点单元格时rng，rng的具体位置是由上面的If……elseif语句计算得到的。例如第一页中的四张准考证中的第一张，rng=A3；第二张，I3；第三张，A17；第四张，I17。

tajingji

三坛老窖 发表于 2017-5-17 08:54
你说的offset（0，2）是指调用 贴照片 过程所用的第一个参数 rng.Offset(0, 2).Resize(1, 2)中的offset（ ...

谢谢三坛老窖老师，我就是这么算的位置，可改完参数后，点生成准考证号的时候没有任何数据生成呢，我这找了半天也没找到问题在哪，还望您抽空帮我看看那个文档指点一下，万分感谢！
我的照片的位置是一个区域，不是一个单元格，这个有影响吗？

三坛老窖

tajingji 发表于 2017-5-17 09:25
谢谢三坛老窖老师，我就是这么算的位置，可改完参数后，点生成准考证号的时候没有任何数据生成呢，我这找 ...

你将入口过程代码修改后出现了多处错误，将该过程用如下代码替代：

Sub 自动生成准考证()
   
    Dim i&, iRow&, PageCount&, iCount&, arr
    Dim rng As Range
    Dim pbProgBar As FProgressBar
   
    Application.ScreenUpdating = False
   
    iRow = Range("A" & Rows.Count).End(xlUp).Row

    arr = Range("A3:N" & iRow)
   
    删除准考证
   
    PageCount = Application.RoundUp((iRow - 4), 0) / 4
        
    Worksheets("自动生成准考证").Select
   
    If PageCount < 1 Then
        MsgBox "没有数据！", vbCritical, "提示"
    Else  ‘ if PageCount>=SHOW_COUNT then
        使用进程条生成准考证 arr, PageCount
    End If
        
    Application.ScreenUpdating = True
    MsgBox "自动生成准考证执行完毕，请校对！", vbInformation, "提示"
End Sub

改用上面代码后将有照片和数据输出，但位置和格式都有问题，你可根据输出的位置和格式修改你的模板或代码。

tajingji

三坛老窖 发表于 2017-5-17 11:03
你将入口过程代码修改后出现了多处错误，将该过程用如下代码替代：

Sub 自动生成准考证()

三坛老师，iRow = Range("A" & Rows.Count).End(xlUp).Row

    arr = Range("A3:N" & iRow)

我要打印的数据是从第二列开始的我给改成了iRow = Range("B" & Rows.Count).End(xlUp).Row

    arr = Range("A3:N" & iRow)

还有这一句PageCount = Application.RoundUp((iRow - 4) / 4, 0)　中我给改成了PageCount = Application.RoundUp((iRow - 2)/ 4, 0) 　因为是从第三行数据开始的
另外我改完后每次运行的时候　　这句话Sub 使用进程条生成准考证(ByRef arrData, ByVal PageCount As Long)　都会提示　子过程或函数未定义
准考证2003 - 副本.rar (348.3 KB, 下载次数: 19)

2017-5-17 17:28 上传

点击文件名下载附件

三坛老窖

tajingji 发表于 2017-5-17 15:22
三坛老师，iRow = Range("A" & Rows.Count).End(xlUp).Row

    arr = Range("A3:N" & iRow)

问题在红圈中！

tajingji

三坛老窖 发表于 2017-5-17 20:45
问题在红圈中！

太感谢您了，我这晕的只看代码了，就没注意我自己标的这些备注。
按您的提醒改完后已经可以正常运行了，再次感谢，祝您生活愉快！

洞房不败

三坛老窖 发表于 2012-1-4 20:49
在2003下做的，这个应该能行。
----------------------------------------------------------------

请三坛老师看下我的这个批量打印，也是出现了第二页格式不对的问题，不知道如何解决 http://club.excelhome.net/thread-1400676-1-1.html

312312

非常感谢学习学习一下