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

时间: 2024-10-05 18:19:00

Excel中用VB脚本处理多表数据格式转换问题的相关文章

PDM与Excel利用VB脚本进行互导

1.基础样例表和数据 Excel数据表,样例中有两个sheet.样表及数据如下: sheet1=> 主题域 表注释 表英文名称 表中文名称 列名 列中文名称 列注释 数据类型 主键 是否为空 默认值 协议 order_info 订单信息表 STATIS_DATE 统计时间 varchar2(100) order_info 订单信息表 ORDR_GUID 订单GUID varchar2(101) Y order_info 订单信息表 CO_CD 公司代码 varchar2(102) order_i

Excel 中用 VBA 字典查找代替 VLOOKUP

从上一篇<PYTHON操作EXCEL>可以看到,Python 操作 Excel 已非常自如方便.但是 Python 和相关库毕竟是一个额外的依赖,若能从 Excel 自身解决此类问题,自然是更为易用. 1. VBA 中的哈希表 用 Python 的着眼点主要是 VLOOKUP 公式太慢了,所以关键是要找到一种更高效的算法或数据结构定位数据.VLOOKUP 要求对列进行排序,内部应该是对列内数据进行二分查找,算法上不好再优化了,那就只好更换一种数据结构.搜索了一下,VBA 提供了 Scripti

Excel中用VBA实现删除空行和空列

Excel中用VBA实现删除空行和空列 在exce中删除空行和空列的方法有很多,相对而言删除空行较为简单,只需进行筛选,将空白行筛选出来,删除即可,但要删除空列比较困难.因为你不能按列进行筛选删除.Excel中没有这 个功能.当然你可以用另外一种方法,就是按列进行排序将空白列排序在一起,然后删除,但这种方法面临着列的顺序被打乱的问题,吃力不讨好.本文将利用Excel中强大VBA功能来完成删 除空白行和列的方法. 步骤一.打开excel,按ALT+F11组合建,调出VBA程序窗口 步骤二.在插入菜

FineUI之使用SQL脚本从数据库表中生成相应的输入控件

在WEB开发时,经常需要依据数据库表中的字段建立相应的输入控件,来获取输入的数据.每次都需要按字段来敲,显然太低效,而且容易出错.这里提供一个SQL脚本生成相应输入控件的方法. USE DBDemo DECLARE @TEMP_TABLE_NAME NVARCHAR(512) DECLARE @WIDTH NVARCHAR(50) SET @TEMP_TABLE_NAME='Stuff' SET @WIDTH='200' SELECT '<f:'+TOKEN+' runat="server

qtp中vb脚本,经典收藏

1.在脚本运行过程中屏蔽鼠标键盘输入 SystemUtil.BlockInput '开始处 这里是你的脚本 SystemUtil.UnblockInput '结尾处 --------------------------------------- 补充关闭进程的方法:Systemutil.closeprocessbyname "GreenBrowser.exe" 2.检查页面对象是否可用 yanzheng=Browser("电子政务").Page("::::

System.Web.Optimization对脚本和样式表的压缩操作

1 是否允许样式表压缩 BundleTable.EnableOptimizations = true; 在MVC项目中的 BundleConfig操作中是微软已经给我们准备好的CSS和JS压缩,我们可以把模版页的样式表和脚本放入这个地方压缩(子页太多,所以另作压缩).这个配置文件在App_Start文件夹下,Global.asax在全局配置文件下,会启用这个配置文件,对EnableOptimizations设置后,可以允许压缩和不允许操作 1 bundles.Add(new StyleBundl

C#中实现excel文件批量导入access数据表中

一 .界面简单设计如下: 二 .代码如下: using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using System.Data.OleDb; using System.Data.S

window 平台下mysql主从的监控(window执行计划配合vb脚本)

(1)在window上安装ODBC(vb链接MySQL的驱动程序) 下载地址为:http://dev.mysql.com/downloads/connector/odbc/ 根据window系统选择相应版本即可. 我安装的是mysql-connector-odbc-5.3.4 如果在安装mysql-connector-odbc-5.3.4报错了, Error 1918.Error installing ODBC driver Mysql ODBC 5.3 ANSI Driver,ODBC err

基于SQL脚本将数据库表及字段提取为C#中的类

开发时,勉不了需要使用SQL直接与数据库交互,这时对于数据库中的表名及字段名会使用的比较多.如果每使用一次都复制一个,实在蛋疼. 所以就考虑将其做成const常量.但是数据库中的表和字段相当多,一个一个敲,不但累,还有可能敲错.要保证正确,最好的办法当然是使用工具或者脚本. 这里提供一个SQL脚本的实现. 原理:获取数据库的表--->遍历每个表中的字段--->生成数据 SQL代码 DECLARE @tableName VARCHAR(MAX) DECLARE @tableCount int D