所以这里记录几个之前工作中高频使用的小小小脚本。下面提到的工作簿，即单个的 .xlsx 或 .xls 文件，工作表就是文件里的 sheet 。1、自定义函数自定义一个 Countcolor()无情，知乎的代码块提供了几十种语言，就是没有VB…… Function Countcolor(arr As Range, c As Range)
Dim rng As Range
F
在VBA中，如何获取Excle的安装路径呢？请看以下代码：Sub 获取Excle的安装路径() MsgBox "Excle的安装路径为：" & Application.PathEnd Sub点击运行程序后，执行结果如下：点击下载附件
转载
2017-08-10 17:35:00
480阅读
2评论
使用VBA如何获取模板保存的路径呢？具体代码如下： 点击“运行程序”，效果图如下： 附件下载
转载
2017-08-10 16:30:00
557阅读
2评论
Auto CAD VBA画100个圆，代码如下。 Sub CreateCircles() Dim cc(0 To 2) As Double cc(0) = 100 cc(1) = 100 cc(2) = 0 For I = 1 To 1000 Step 10 Call ThisDrawing.ModelSpace.AddCircle...
转载
2011-03-19 20:47:00
465阅读
2评论
大家好，今日我们继续讲解VBA数组与字典解决方案，今日讲解第61讲内容：利用字典，将只出现一次的数据提取出来.字典可以应用于有很多的实际工作场景,可以利用的方法也很多.最为基本的要注意理解键和键值的概念,注意理解Keys 和items 本身就是数组，是一个一维数组，这非常关键。可能在概念讲解的时候大家很清晰，但是实战中就会有所迷茫，所以我在各种实际场景的模拟中尽可能的会结合常见理解中一些误区给大家
数组是包含相同数据类型的一组变量的集合，对数组中的单个变量引用通过数组索引下标进行。在内存中表现为一个连续的内存块，必须用Global或Dim语句来定义。定义规则如下：Dim 数组名([lower to ]upper [, [lower to ]upper, ….]) as type ;Lower缺省值为0。二维数组是按行列排列，如XYZ(行，列)。除了以上固定数组外，VBA 还有一种功能强大的动
' Imports 陈述式
' 匯入在所参考的专案和组件中定义的命名空间( Namespace ) 或程式设计项目。
Imports System.Runtime.InteropServices
' System.Runtime.InteropServices 命名空间
' 提供各种支援CO
文件Dir[(pathname[,attributes])] ；pathname 可选参数，用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到 pathname，则会返回零长度字符串 ("");attributes 可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略，则会返回匹配 pathname 但不包含属性的文件。 删除Kill pat
声明数组：名称、数据类型和数组大小1、通过起始和终止索引号定义数组大小 指定开始索引：Public | Dim 数组名称（a To b） As 数据类型， a和b为整数（不能是变量），分别表示数组的开始和终止索引号，可保存数据个个数（b-a+1）个 未指定开始索引：Public | Dim数组名称（a） As 数据类型 ，从0开始到a个元素Dim arr(1 To 100
系列文章前言有小伙伴向我反映到，本系列前面的章节主要还是在讲 pandas ，几乎与 xlwings 没有啥关系。本系列一直强调要善用各种工具，作为本系列的最后一节，那么这次就用一例子说明如何让Python结合Vba，直接在Excel中动态获取各种处理条件，输出结果。日后也会不定期分享 pandas 的处理案例，但不一定非要与 Excel 挂钩。比如直接结合 power bi 做处理分析。本文主要
转载
2023-09-21 22:41:22
51阅读
在制图过程中，我们往往需要得到dwg图纸上图片的路径，下面以MxCAD控件为例，讲解如何得到
原创
2022-07-20 17:39:18
149阅读
getSysVar function作用：得到系统变量.支持int,double,LPCTSTR,McGePoint3d,McGePoint2d类型变量。
原创
2022-07-21 17:21:01
131阅读
大家好，我是小z，也可以叫我阿粥~这次我们会介绍如何使用xlwings将Python和Excel两大数据工具进行集成，更便捷地处理日常工作。说起Excel，那绝对是数据处理领域王者般的存在，尽管已经诞生三十多年了，现在全球仍有7.5亿忠实用户，而作为网红语言的Python，也仅仅只有700万的开发人员。Excel是全世界最流行的编程语言。对，你没看错，自从微软引入了LAMBDA定义函数后，Exce
sub test() '定义过程名称 Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表 Dim cn As
转载
2023-10-24 09:30:43
0阅读
1.获取某一列数据有多少数量'获取C列的数据
c = Range("C65536").End(3).Row
'获取C列的数据数量，需要多加一列就在后面+1即可
c = Range("C65536").End(3).Row +12.选中当前工作表的某一列，或者行'需要在前面加 Worksheets("Sheet1").
'使用场景：如果你在A表执行的命令，如果不加 Worksheets("B
文件的日期时间分创建时间和修改时间，文件一旦创建，创建时间就定下不变了，所以日常应用中一般都是取修改时间，我的一个应用（生成二维码）中就是取这个时间判断图片文件是否重新生成。1、取文件的修改时间VBA有专门的函数FileDateTime，如下面的语句：PicName = ThisWorkbook.Path & "\YiCode.bmp"
t_now = Now()
tim1
主要用到函数说明：IMxDrawRasterImageDef::SourceFileName得到光栅文件名称。js代码实
原创
2022-07-20 17:57:16
140阅读
# Python获取VBA中图形类型
在VBA中，我们可以创建各种类型的图形来美化Excel表格或者报告。但是有时候我们需要通过Python来获取VBA中图形的类型，以便进一步分析或处理这些图形数据。在本文中，我们将介绍如何通过Python获取VBA中图形的类型，并附有代码示例。
## 1. VBA中图形类型介绍
VBA中的图形类型包括：矩形、圆形、直线、箭头、多边形等。每种类型的图形都有不
VBA 读写文件 处理文本文件 1、Open 语句语法：Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]其中access、lock、reclength为可选参数，一般不用。mode 指定打开文件的方式。有5种：Input：以输入方式打开，即读取方式。Output：以输出方式打开，即写入方式。
一直想着能通过程序直接指定各种数据的类型，但一直没有实现，因为以前实现起来比较麻烦，今天上午有了一点头绪，整理如下：通过在VBA中运行format函数与numberformat、numberformatlocal等，感觉如果涉及到日期型数据，用format函数方便些，如果涉及到比如小数点后取两位的情况用numberformatlocal属性更好些。关于如果转换日期型数据的格式，举例如下：Cells
