end1n9的专栏

之前偷懒，直接一行一行比对是否为空。工作需要，表格中有上万行数据，此方法就捉襟见肘了。。。上网研究了一下，调试成符合自己要求的代码，记录一下：Sub test() Dim num_row, num_col Dim arr ' 将数据区域内容整体写入数组 With Sheets("报警日志") ' 获取数据区域行列数 num_row = .UsedRange.Rows.Count num_col = .Use

1、直接上注册表，将以下内容保存为《GB.reg》，前提是你打开了显示后缀名，然后双击合并，重启计算机即可。Windows Registry Editor Version 5.00[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\DefaultColors\Standard]"Window"=dword:00caeace[HKEY_CURRENT_USER\Control Panel\Colors]"W

【CAD画单线图】1、AutoCAD 2014环境安装 https://www.bilibili.com/video/BV18B4y1P7i3/【CAD画单线图】2、加载脚本drawLine.dvb https://www.bilibili.com/video/BV1z5411w7RJ/【CAD画单线图】3、方位及画线段 https://www.bilibili.com/video/BV1ay4y1h7qq/【CAD画单线图】4、画设备 https://www.bilibili.com/video/B

同事需求，要提取单线图中的所有焊口编号和检测报告中的做比对。网上找了个有些麻烦，不能选取非文本，否则报错。于是修改代码如下。用法：1、打开cad文件2、在VB编辑器中复制以下代码，然后运行3、此时回到CAD，选取要提取的文本，如果都需要提取，则全选。 选取非文本时脚本会自动跳过。右键完成。4、结果保存在d:/output.txt文件内。Sub AcadGetText() Dim sset As AcadSelectionSet '声明定义选择集 Di.

Excel批量写Word脚本工具

由于工作需要，做了一些excel操作word的小工具。但是头疼的是，给多个同事用的话需要挨个儿手动加载word引用。于是乎，在网上找到了解决方案：http://www.exceloffice.net/archives/2065使用的是：object.AddFromGuid(guid,major,minor)As Reference我按照我的使用方式修改了一下：首先确定当前excel能否使用VBProject，如不能，提示解决方法：“Excel-文件-选项-信任中心-信任中心...

如下：

2020-02-13 在公司钉钉上直播了这个画单线图脚本的用法，个人感觉此脚本画单线图还是挺方便，于是分享出来。--附件：autoCAD2014及vba模块，脚本drawline_1.12，见网盘链接: https://pan.baidu.com/s/1A4iE2vJhSrffjTP7RG6HGg 提取码: vfkp--说明如下：...

如题。

在excel中使用字典时常出乎意料，后来发现是sheets().cells()表示的问题。当赋值的时候sheets().cells()默认相当于sheets().cells().value。而当其用作字典的键时，则其表示为单元格object。错误：d.Add Sheets("test").Cells(1, 1), "a"正确：d.Add Sheets("test").Cells(1, 1).Val...