Excel中用VB脚本处理多表数据格式转换问题-阿里云开发者社区

开发者社区> 技术小阿哥> 正文

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

简介:
+关注继续查看

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


wKiom1lXDGaiZYT3AADfL3Q-rQM133.png-wh_50

wKioL1lXDGjyhArdAACrzTRXGeE744.png-wh_50


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub pldy()
Dim As Integer
Dim As Integer
Dim As Integer
Dim As Integer
a = InputBox("请输入开始打印序号")
b = InputBox("请输入结束打印序号")
For i = a To b
L = (((i + 3) \ 4) - 1) * 7 + 2
If Mod 4 = 0 Then
K = 11
ElseIf Mod 4 = 3 Then
K = 8
ElseIf Mod 4 = 2 Then
K = 5
ElseIf 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



本文转自 leizhimin 51CTO博客,原文链接:http://blog.51cto.com/lavasoft/1943631,如需转载请自行联系原作者

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
表格存储 SQL 数据类型详解
本文主要介绍 Tablestore SQL中的数据类型与 MySQL 数据类型之间的映射关系。 ​ ## 背景介绍 ### Tablestore 数据类型 Tablestore 中的数据类型支持如下表所示,其中主键列支持的数据类型包括String、Integer和Binary,属性列支持的数据类型包括String、Integer、Double、Boolean和Binary。 - 主键列支持的数
46 0
MaxCompute数据仓库在更新插入、直接加载、全量历史表三大算法中的数据转换实践
2018“MaxCompute开发者交流”钉钉群直播分享,由阿里云数据技术专家彬甫带来以“MaxCompute数据仓库数据转换实践”为题的演讲。本文首先介绍了MaxCompute的数据架构和流程,其次介绍了ETL算法中的三大算法,即更新插入算法、直接加载算法、全量历史表算法,再次介绍了在OLTP系统中怎样处理NULL值,最后对ETL相关知识进行了详细地介绍。
4752 0
PowerDesigner PDM表数据信息用表格展现
原文http://www.cnblogs.com/whitewolf/archive/2010/05/04/1726992.html       在前些日子,同事问我能不能把PowerDesigner的PDM 表信息表格来展现出来,如下面格式, 字段名 ...
643 0
《懒人Shell脚本》之三——微博分类信息获取与格式化
1、需求: 获取微博网站ctg1_4188#”>http://d.weibo.com/102803_ctg1_4188-_ctg1_4188# 社会类媒体的名称信息。 构造成json格式,用于echart格式化显示。
33 0
大数据表格处理
http://ecomfe.github.io/echarts/doc/slide/whyEcharts.
535 0
带你读《Java程序设计与计算思维》之二:认识数据处理与表达式
程序设计的过程就是一种计算思维的表现,《Java程序设计与计算思维》结合Java程序设计语言的教学特点,遵循计算思维的方式,图解重要概念,通过大量的范例程序讲解和上机编程实践来指导读者活用Java程序语法,兼顾培养计算思维和学习面向对象程序设计的双目标。
497 0
C#读取Excel表格中数据并返回datatable
在软件开发的过程中,经常用到从excel表格中读取数据作为数据源,以下整理了一个有效的读取excel表格的方法。   DataTable GetDataTable(string tableName,string leftTopCel,string rightbutCel) ...
1035 0
将execel表格的数据导入到mysql数据库
在开发中经常会将现成的execel表格导入到数据库里,否则一个个字段插入填写,太浪费时间,效率很低。本文主要是讲如果将execel表格导入到mysql数据库,希望对各位有所帮助。
984 0
Thinkphp5.0 PHPExcel 数据表格导出导入
1、先在github里面下载PHPexcel这个类库 或者通过以下链接下载PHPexcel类库。 http://www.php.cn/xiazai/leiku/1491 2、解压之后把它复制到extend里面 控制器代码如下: /** * Created by PhpStorm.
1794 0
13694
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
《2021云上架构与运维峰会演讲合集》
立即下载
《零基础CSS入门教程》
立即下载
《零基础HTML入门教程》
立即下载