列数据转行数据的实现方式

jjb201

2023.11.22
现在实现了数据写入，但有个bug，当输入的连续打印的记录数小于每页数量，或连续记录数不是每页数量的倍数，则最后一页无法正常输出，直接跳过了生成PDF文件的循环语句

PS：附件文档已更新，在已有的代码上修改，谢谢






2023.11.21
源数据在“目录”表格中

日常需要打印报告，报告生成页在“打印页面”；
需要实现如下功能：
先设置需要开始打印的产品编号，再确认需要打印产品的数量，然后确认每页需要打印的产品数量，自动算出共需要打印多少页（已通过函数实现）
点打印按钮后，将输入的起始编号自动填充到打印页面的B2列，然后自动将目录中B2对应编号下面的多条记录的编号分别填充到C2\D2\E2\F2\G2列
第一页打印出来后，自动依次将剩余的编号再填充B2\C2\D2\E2\F2\G2，如此循环直至需要打印的数量全部输出结束

3190496160

按不动哎，比如，编号2，在目录中只有一行数据的呀，哪里找对应编号下面的多条记录的编号呢？？？？

jjb201

3190496160 发表于 2023-11-21 09:12
按不动哎，比如，编号2，在目录中只有一行数据的呀，哪里找对应编号下面的多条记录的编号呢？？？？

挨个填充，相当于在B2填写目录中第一行的产品编号，C2行填写第二行的产品编号，依次下去，到G2填写第6行的产品编号，这一页就输出打印，然后接着在B2中填写第7行的编号，C2填写第8行的编号，直至所有需要打印的记录打印完成

jjb201

借助AI工具和网上查找的代码：
Sub 按钮1_Click()
startSourceRow = 1  '原始数据的起始行
endSourceRow = 11  '原始数据的结束行

eachWidth = 4   '多行多列数据中每行数据的最大列数
startRow = 1    '多行多列数据的起始行
StartCol = 3    '多行多列数据的起始列

currRow = startRow  'currRow为当前运行到的多行多列数据的行数
currCol = StartCol  'currCol为当前运行到的多行多列数据的列数
With Sheet1
For i = startSourceRow To endSourceRow Step 1

     Sheets("Sheet2").Cells(currRow, currCol).Value = Range("A" & i).Value    '将原始列中的数据赋值给多行多列区域中的单元格
    currCol = currCol + 1
    If i Mod eachWidth = 0 Then '如果当前运行到的行数刚好是eachWidth的倍数则进行换行
        currRow = currRow
        currCol = StartCol
    End If

Next i
End With
End Sub



有2个问题，1是按钮放在sheet1上时，运行宏可以在sheet2中生成数据，但按钮放在sheet2表中时，点击没反应，加了个with sheet1，不知道是不是位置放的不对还是其他问题，还是没有数据；
2、当需要打印的总数/每页打印数目不是整除的时候，最后一页的时候，会将本应该空着的列写入了本次循环的第一条、第二条等数据

cl136

jjb201

顶起来！！有人指定下问题点吗

jjb201

3190496160 发表于 2023-11-21 09:12
按不动哎，比如，编号2，在目录中只有一行数据的呀，哪里找对应编号下面的多条记录的编号呢？？？？

摸索了下，现在可以实现循环取数了，现在还有一个bug，如果连续输出记录小于5，或者大于5但不是5的倍数的时候，最后一页没有输出打印，可否帮忙修改下代码，谢谢！

已现在这个附件为准！

jjb201

循环写入数据可以了，现在有一个问题，就是连续打印的数量小于每页数量或者连续打印的数量不是每页数量的整数倍时，最后一页没有输出，请人帮忙修改下代码，谢谢

现在每页为5个记录

以附件的表格为准，谢谢，静候佳音！

shimakaze

你现在是 每次5个数据填完就导出PDF, 如果你的序号都是连续的，可以在for循环下加个计数变量，当变量数和你 总需打印行数相同时 也加入 导出PDF那个语句判断里