VBA+EXCEL
JC30年的业余程序员
世界即程序,程序即数学
展开
-
VBA 读取WORD表格中的内容并写入到EXCEL中
读取WORD表格中的内容并写入到EXCEL中原创 2020-09-28 14:27:20 · 10853 阅读 · 0 评论 -
模拟二进制进位、字符串的子系列
数组模拟二进制进位,并输出字符串的子系列。原创 2022-01-21 09:08:27 · 452 阅读 · 0 评论 -
VBA+EXCEL单元格相对位置表达 及EXCEL的舍入误差问题
若已知某单元格及另外一个单元格的相对它的位置,则可以采用如下的表达方法:cells(i,j).offset(0,3)=“单元格内容” 。 SheetA.Cells(i, sC) = zCD SheetA.Cells(i, sC).Offset(0, 5) = sLB & "类"十进制 1/3=0.3333333333333,无穷无尽。EXCEL数值有二进制存储也存在“除不尽的问题”,用有限的位数表达无限的循环小数,必然会产生舍入误差。如a=2.3 表达成了 b=2.1999999999原创 2021-11-23 15:59:18 · 709 阅读 · 0 评论 -
VBA like 内容中含通配符*,如何转义
若like后面的匹配模式中含有通配符本身,如星号* ,需要用 【*】表示如 “10~20*Ⅲ” 采用以下的表达式可以匹配到。 If ACol Like "*0[*]*" Then '' 包含通配符*的情况:[*] 表示 mL = Split(ACol, "*") sCD = mL(0) sLB = mL(1)...原创 2021-11-23 15:41:25 · 2570 阅读 · 0 评论 -
VBA打开一个EXCEL文件并在二个文件之间来回操作的代码
程序在一个EXCEL表中,设为SheetA,打开一个EXCEL文件后增加一个工作表,设为SheetB。还要用到一张基价表,设为SheetC,下面的代码展示了如何打开EXCEL文件,并进行三者之间的操作,希望给有此需求的人予帮助。对某张表进行操作,只需冠以词头SheetX即可。 Dim strDeskTop, LB, SD, CX As String ''类别,深度 标识 查询 Dim SheetA, SheetB, SheetC As Worksheet Dim ZBFileName原创 2020-09-02 14:20:58 · 2591 阅读 · 0 评论