这个纯粹是自用排版的，为了设置指定的单元格区域按照按指定颜色间隔填充，增加表格的可读性。如下图这样。功能构思：1）编写一段宏代码，在工具栏生成一个按钮，点击运行。2）用一个窗体（模式设为0，确保窗体运行的时候同时可以操作工作表），三个按钮，按钮1选择第一种颜色，按钮2选择第二种颜色，按钮3执行，按钮1~2选择...
Private Sub CommandButton1_Click() tsb_sourcesheetname = "sheet1" tsb_tablename = "工程量透视表" tsb_sheetname = "数据统计" tsb_headname = "灯具全名称" tsb_sum = "数量" '...
ActiveSheet.Range(“$h$4:$h$104”).RemoveDuplicates Columns:=1, Header:=xlNo1）range范围2）columns表示只在第一列内容，如果是2则表示是1，2列内容3）header表示是否包含标题
直接用代码构造函数：'正则表达式替换文本Function replaceme(ByVal numx) As String Dim regx As&nbs...
第二套数据的分解思路第二套数据采用的跟第一套数据不同的方式，相比较而言，第二套数据的记录更详细，但是占据的字节空间也偏大。按照作者原有的思路是这样说的：一共设置24位，其中高位24位设置为备用，始终为0，23-18共6为设置为农历春节偏移同年元旦的天数，17-14共5位设置位闰月记录，如果无闰月则记录为0，1...
农历与阳历的转换农历的日期需要推算，其与阳历之间没有什么必然的联系。现有的所有农历阳历的工具软件网页等等应该都是基于对预先存储的农历数据库进行查找，匹配出对应阳历日期的农历数据，从而实现农历的结果输出。现在还没有任何公式可以将农历与阳历直接进行公式转换。电脑手机上农历的换算一般都是遵循这样的步骤：譬如要查询2...
前言这篇文章有什么实用价值？没有什么价值！因为查询农历的工具途径设备等等太多，而且excel是得到结果效率最低速度最慢的一种。但是写这些代码的过程中，对农历历法的算法兴趣渐浓，另外代码里面也涉及一些以前未曾留意的vba方面的知识点，有必要存留下来，做个备忘。这篇文章的内容并不是解释如何推算农历的，而是在exc...
ilaoyao 2020.09.23 编制工程算量报价中的一个效率低下的表象就是同专业不同工程在过程中一直在进行大量重复效率低下的工作内容，调整格式，布局页面，输入相同的结构行内容，耗费了大量时间而完成的成果往往跟其他工程的区别仅仅在量与价格上区别，...
实测貌似采用for循环的比while循环的效率更快一些。思路起始都是一样，读取指定单元格范围的文字，逐一对字符进行判断，从而设置指定的颜色代码一：for循环 Sub colorcode01() '************************************* '下面这段为以前的...
删除空白行'删除指定单元格范围记录中有空行的 '该操作实际上是查找并定位Ctlr+G空白单元格的，在实际使用上如果单元格空白则删除整行的情况 '（适用于某列中查询空白单元格则删除整行的操作） Range("B2:B30").Select Selection.SpecialCells(x...