码迷,mamicode.com
首页 > 其他好文 > 详细

Excel中用VB脚本处理多表数据格式转换问题

时间:2017-07-01 13:46:22      阅读:184      评论:0      收藏:0      [点我收藏+]

标签:excel   vba   

Excel中用VB脚本处理多表数据格式转换问题


技术分享

技术分享


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

本文出自 “熔 岩” 博客,请务必保留此出处http://lavasoft.blog.51cto.com/62575/1943631

Excel中用VB脚本处理多表数据格式转换问题

标签:excel   vba   

原文地址:http://lavasoft.blog.51cto.com/62575/1943631

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!