Excel读取某一列的宏代码VBA代码源码及解说（详尽版）

背景

业务需要依据详细设计文档编写所有对应的页面

问题

工作量大，11张大表（几十上百字段）时间紧 3天完成

核心

有完整的表设计，可通过excel手动编辑完成。

新问题

普通字段没问题，可增加了字典后工作量骤然提升，这种特殊性让工作的难度和体量都给手工操作Excel带来了挑战

解决方案

通过代码实现手工操作excel的工作，也就是编写VBA宏

Sub detailPage()
'
' 沫沫金
' 生成居民健康档案浏览器页面，时间: 2017/08/17
'
Dim tri As Integer, td, tableName, nameC, valC, dicC, saveC As String
'
'配置区域：Config
'
'三列一行控制器记录仪
tri = 1
'表名列
tableName = LCase(Cells(1, "D"))
'label列
nameC = "A"
'值列
valC = "B"
'字典列
dicC = "C"
'存储列
saveC = "F"For n = 1 To [A65536].End(xlUp).Row'初始行内容td = ""'三列一行If tri = 1 Then td = "<tr>"'字段说明td = td + "<td width=''33%''><h3><i class=''ico ico_23''></i>" + Cells(n, nameC)'字典字段特殊处理If Cells(n, dicC) = "" Thentd = td + "</h3><p>${sessionScope.data." + tableName + "[index]." + LCase(Cells(n, valC)) + "}</p></td>"Elsetd = td + "</h3><p><dic:dic type=""" + Cells(n, dicC) + """ value=""${sessionScope.data." + tableName + "[index]." + LCase(Cells(n, valC)) + "}"" /></p></td>"End If'三列一行结束处理If tri = 3 Then td = td + "</tr>"'拼接一行，扔到空闲列统一拷贝Cells(n, saveC) = td'当前列记录tri = tri + 1'三列一行控制器If tri > 3 Then tri = 1
Next nMsgBox "恭喜你，详细信息生成成功。"
'
End Sub

启用宏，拷贝到代码区运行即可看到拼接结果。完全自定义拼接格式，百分百解放双手的工具。

下面，给java开发同伴重点说明下

if判断条件不用圆括号
条件判断等于一个等号
格式排版必须控制好
没有分号

以上，运行说明，在当前的sheet页Alt+F8运行上面的宏。生成完成会收到友情提醒，好了，愉快的VBA结束。

by.沫沫金

于2017-08-17 西安

Excel读取某一列的宏代码VBA代码源码及解说（详尽版）相关推荐

基于SSH的通讯网络电子计费系统毕业论文+任务书+开题报告+文献综述+外文翻译及原文+答辩PPT+代码清单+项目源码及数据库文件
下载地址:https://download.csdn.net/download/junkyio321/40671271 项目介绍: 基于SSH的通讯网络电子计费系统毕业论文+任务书+开题报告+文献综 ...
HTML在线颜色代码选取器源码
简介: HTML在线颜色代码选取器源码前端设计工具HTML在线颜色代码选取器源码,一共19种颜色不同灰度选取,鼠标点击即可实现复制颜色代码,可本地使用也可上传在线当小工具使用! 网盘下载地址: ht ...
生成对抗网络（GANs）的资料小结，另附：资源|17类对抗网络经典论文及开源代码（附源码）
1.GANs的一些资料链接 ************************************************** *********************************** ...
人体姿态估计(人体关键点检测)2D Pose训练代码和Android源码
人体姿态估计(人体关键点检测)2D Pose训练代码和Android源码目录人体姿态估计(人体关键点检测)2D Pose训练代码和Android源码 1.人体姿态估计2D Pose方法 2.人体姿 ...
win10,vs2015深度学习目标检测YOLOV5+deepsort C++多目标跟踪代码实现，源码注释，拿来即用。
打死不用CSDN,整改的太恶心了,发什么都审核不过,各种图片和链接不让发.人如果没有立场那还是人吗?不用CSDN并且博客园就很好! DeepSort纯C++ Yolov5[s,l,m系列],详细讲解- ...
为什么要重视低代码平台的源码？来看看这些好处
编者按:很多企业在面对低代码选型的时候,并不了解什么是源代码交付,本文引入低代码平台源代码的概念,介绍MyApps低代码平台提供的源代码究竟有什么用处. 一.为什么要重视源代码? 低代码平台的源代码是 ...
php 如何宏定义,[PHP] PHP源码常用代码中的宏定义
PHP源码常用代码宏定义: #define 宏名字符串 #表示这是一条预处理命令,所有的预处理命令都以#开头.define是预处理命令.宏名是标识符的一种,命名规则和标识符相同.字符串可以是常数.表 ...
python程序代码解析_Python源码分析3 – 词法分析器PyTokenizer
Introduction 上次我们分析了Python中执行程序可分为5个步骤: Tokenizer进行词法分析,把源程序分解为Token Parser根据Token创建CST CST被转换为AST A ...
python简单代码加法-CPython 源码中整数加法的实现
最近突然涌起兴趣去阅读 CPython 源码,网上也看了不少解析的文章,后来网上看到<Python源码剖析>评价不错,可惜现在已经绝版,只能从豆瓣阅读购买了一本电子书观摩 . 我从网上下载 ...

Excel读取某一列的宏代码VBA代码源码及解说（详尽版）

Excel读取某一列的宏代码VBA代码源码及解说（详尽版）相关推荐

最新文章

热门文章