Excel中用VB脚本处理多表数据格式转换问题
2017-07-01 10:41
363 查看
Excel中用VB脚本处理多表数据格式转换问题
没学过VB,现学现卖O(∩_∩)O
Sub pldy() Dim a As Integer Dim b As Integer Dim K As Integer Dim L As Integer a = InputBox("请输入开始打印序号") b = InputBox("请输入结束打印序号") For i = a To b L = (((i + 3) \ 4) - 1) * 7 + 2 If i Mod 4 = 0 Then K = 11 ElseIf i Mod 4 = 3 Then K = 8 ElseIf i Mod 4 = 2 Then K = 5 ElseIf i Mod 4 = 1 Then K = 2 End If 'MsgBox ("i=" & i & Chr(13) & Chr(10) + "L=" & L & Chr(13) & Chr(10) + "K=" & K)' Sheets("标签打印").Cells(L, K) = Sheets("资产明细").Range("d" & i + 1) Sheets("标签打印").Cells(L + 1, K) = Sheets("资产明细").Range("b" & i + 1) Sheets("标签打印").Cells(L + 2, K) = Sheets("资产明细").Range("i" & i + 1) Sheets("标签打印").Cells(L + 3, K) = Sheets("资产明细").Range("k" & i + 1) Sheets("标签打印").Cells(L + 4, K) = Sheets("资产明细").Range("g" & i + 1) If Int(i / 36) = (i / 36) Then ActiveSheet.PrintOut End If Next i End Sub
没学过VB,现学现卖O(∩_∩)O
相关文章推荐
- 用Excel打开csv文件时,如何处理数字内容展现会自动转换格式的问题
- 用Excel打开csv文件时,如何处理数字内容展现会自动转换格式的问题
- 用Excel打开csv文件时,如何处理数字内容展现会自动转换格式的问题
- dbf转换到excel,改数据后---转txt 然后又foxpro导入为dbf格式,但是有点问题!
- Excel问题处理,如何实现数据表的单元格数值的动态变化。
- Java读取Excel数据并转换成Json格式
- VB 表格导出Excel 自动处理‘0’的问题
- fastJson在java后台转换json格式数据探究(二)--处理数组/List/Map
- 关于jsp页面转换成excel格式下载遇到问题及解决
- Web页面的数据导出excel时的格式问题
- Web页面的数据导出excel时的格式问题
- fmri数据分析图像格式及转换问题——基于spm讨论
- 使用ADO.net转换数据到Excel格式并提供下载
- 小猫统计导入excel数据用于批量证书打印时,时间数据格式的规范化处理
- .net解决数据导出excel时的格式问题
- 关于如何处理JSONObject.fromObject(Object obj)无法转换特殊日期(java.sql.Date,java.sql.Timestamp)格式的问题。
- 解决处理后台返回json数据格式问题
- EXCEL中用数据透视表统计数据时,由于数据格式问题导致的统计不准确。
- fastJson在java后台转换json格式数据探究(二)--处理数组/List/Map
- excel日期格式数据通过软件导入到数据库中显示数值的问题