VBA取得EXCEL表格中的行数和列数请注意不要使用Columus等关键字作为变量，例如"Columus = ActiveSheet.UsedRange.Columns.Count"！初学EXCEL宏的童鞋，总是很想知道表格中含有数据的行数和列数，尤其是行数和列数不确定的情况下。这样可以避免很多的错误，并且可以提高效率。但每次用到的时候到网上查找时，总是给了很多无用的答案，往往找不到想要的结果。笔
AutoCAD VBA标注圆弧长度，代码如下。 Public Sub DimArcLeng() Dim Arc As AcadArc Dim Pnt As Variant Err.Clear On Error Resume Next ThisDrawing.Utility.GetEntity Arc, Pnt, "请选择圆弧：" I...
转载
2011-03-19 19:24:00
162阅读
2评论
需求：有一个导入EXCEL模板，需要判断excel里某列的字符串长度，本来用条件格式做的，但是条件格式会被CTRL+V给覆盖导致不起作用，所以用VBA来实现，代码如下。需要校验的是F列(校验是不是等于12位长度
原创
2022-02-23 17:45:37
1790阅读
计算多段线的长度，代码如下。 Sub PolyLineLength() Dim Pnt As Variant Dim Ent As AcadEntity On Error Resume Next Do ThisDrawing.Utility.GetEntity Ent, Pnt, "选择多段线：" If Err Then...
转载
2011-03-18 18:13:00
292阅读
2评论
VBA 类模块学习1 问题背景2 创建自己的对象3 属性过程4 创建集合4.1 `Collection` 对象创建集合4.2 在类模块中创建集合5 封装 本文中，大部分内容源于书籍《Excel 2007 VBA 参考大全》，ISBN：9787115311696。感谢原书第一作者及译者。 工作表模块、图表工作表模块、工作簿模块和用户窗体模块都是类模块。不过，这些模块都是特定类型的类
阅文时长 | 0.06分钟 字数统计 | 100字符主要内容 | 1、引言&背景 2、解决方案 3、声明与参考资料
原创
2022-11-22 10:12:06
102阅读
大家好，我是东哥。经常给大家推荐好用的数据分析工具，也收到了铁子们的各种好评。这次也不例外，我要再推荐一个，而且是个爆款神器。Excel和Jupyter Notebok都是我每天必用的工具，而且两个工具经常协同工作，一直以来工作效率也还算不错。但说实在，毕竟是两个工具，使用的时候肯定会有一些切换的成本。最近，在逛GitHub突然发现了一款神器「PyXLL-Jupyter」，它可以完美将Jupyte
2.1.8 Function过程，也就是我们经常提到的函数过程。对于函数，我给出了一个更为确切的定义，这个定义我在各个平台上均有发表和阐述，我给出的定义如下：如果对于唯一性输入值value，输出(或者return)的值也具有唯一性(这种输入或者输出的值没有个数的限制)，那么具有这种变化关系的输入和输出关系，就称为输出是输入的函数.而Function函数过程就是特别强调的这种输入和输出的
VB控件和对象：ScriptControl 控件3. ScriptControl 控件 Microsoft Script Control 控件可以创建运行任何 ActiveX(R) scripting 引擎，例如 Microsoft(R) Visual Basic (R) Scripting Edition 或Microsoft(R) JScript(TM) 的
转载
2023-08-21 17:25:01
639阅读
range().resize(x,y) 方法语法Range(i,j).resize(行数,列数) resize(x,y) 表示的区域，x是行，往下。Y是列，往右。重新定位出来的区域 resize() 得出的是一个区域范围！！！因为X 是表示行数，必须大于0因为Y是表示列数，必须大于0resize(x,y)可以为负数吗？比如 resize(-1
Sub 宏1() ' ' 宏1 宏 ' ' Range("E3:E33").Select Selection.Copy tyear = 2010 tmonth = 1 For startIndex = 3 To 2701 Step 31 '2436 Range("E" & startIndex).Se...
转载
2018-03-22 03:26:00
614阅读
2评论
在编写代码时，常需要依据指定内容在指定区域查找符合条件的单元格，这时就需要用查找的方法。在工作表中，可以执行【编辑】／【查找】命令查找指定的单元格，同样也可以利用在公式中使用Match 等函数对单元格进行查找。工具/原料 Excel 2013一、Find查找 1单元格范围.Fing. （查找内容，查找开始位置，搜‘索范围，单元格区配γ 搜索方式，搜索类别，区分大小写，区分全／半
VBA术语这些术语将在很多的模块中使用，因此理解其中的每一个术语都很重要。模块模块是编写代码的区域。如下图中，这是一个新的工作簿，因此没有任何模块。要插入模块，请导航到插入 -> 模块。当插入模块之后，就会有一个名称为“模块1”的模块被创建了。插入模块完成之后，就可以在模块中编写VBA代码，代码写在一个过程(Sub)中。 一个过程/子过程是一系列的VBA语句，指示要做什么工作。程序/过程程序
如果需要制作如图1所示的产品目录，因为所需图片的尺寸通常并非完全一致，所以除了插入图片，还需要调整图片的尺寸以适应"图片"列单元格的大小。使用VBA可以快速完成这一系列繁杂的操作，示例代码如下。Sub InsertPictures()
Dim lngRow As Long
Dim objShape As Shape
Dim objTargetCell As Range
1. 在工具栏中将"开发工具"菜单调出来，点击VBA script或者快捷键ALT+F11, 打开编程窗口 1. 下拉列表：选中要处理的单元格 数据 数据验证(数据有效性) 序列 输入示例:1,2,3 1. function和sub最大区别在两点 1.function可以返回值，sub则不可以返回值
转载
2017-05-24 08:47:00
821阅读
2评论
ThisWorkbook 返回一个 Workbook 对象，该对象代表当前宏代码运行的工作簿 Screenupdating Application的一个属性，是Boolean 数据类型，意思是屏幕窗口刷新是否打开,Application.Screenupdating=False，意思是屏幕窗口刷新关闭，可以加快程序运行，加在程序开头；Application.Screenupdating=True，意思是屏幕窗口刷新打开，加在程序结尾。以上两句应在程序调试好之后再添加。 VBA程序一般需要在开头结尾加上Screenupdating控制语句,以加快程序运行 Calculation Applica.
转载
2010-04-09 10:13:00
672阅读
2评论
'1、工作簿（Workbooks） ' Workbooks（N）第N个工作簿 ' Workbooks ("工作簿名") ' ActiveWorkbook 活动工作簿 ' ThisWorkBook '代码所在工作簿 '2、工作表（Worksheets） 'Sheets(N) 第N个工作表 'Sheets("工作表名") 'Sh
变量和常量命名规则必须以字母开头不能包含空格、句点(.)、感叹号(!)或字符@，&，$，#长度不能超过 255 个字符不能使用 Visual Basic 保留关键字变量变量语法变量在使用前必须声明即定义变量。Dim variable_name As variable_type数据类型在程序编写中,定义一个变量的数据类型,首先是表示它的存储形式。
其次是通知编译程序使用变量的数据
一 数组 array1.1 什么是数组？具体的例子以这个语句为例子arr1=array(1, 2, 3)左边：变量名=数组名 右边：数组，集合，多个元素集合，多个数据集合，右边的单个内容，1,2,3 是数组的元素/下标变量每个元素存储时，会标记1个（看不见的 ）index 索引 下标 1.2 什么是数组，抽象的定义：数组也是变量，是一种可存储多个数据的特殊变量VBA或其他语言里
辨析Empty，Null和Nothing在VBA中变量一般都是强类型的，即总声明成Integer，Long，Single，Double，String或Date等类型，这些强类型的值毋需考虑Empty、Null和Nothing。有时我们需要定义一种能包含所有类型的变量，这种类型就是Variant，它是一种特殊的数据类型，可以包含数值、字符串或日期数据，还包含自定义类型、对象（Object）和特殊数值
