自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(10)
  • 收藏
  • 关注

原创 VBA-遍历文件及重命名-2

2. Dir()函数返回该路径下的所有文件(含扩展名) ,如果需要选择该目录下的某种格式文件,则需要用通配符筛选。Instr()返回值为找到字符串的位置,如果没有找到则返回0.

2024-11-11 11:32:50 444

原创 VBA-根据意见更新文件

将sheet1中的部分数据更新为sheet2的数据。

2022-11-30 21:42:42 394

原创 VBA—调用sheet2中数据给出sheet1计算结果

使用VBA自动计算数据。

2022-07-17 23:17:17 2172

原创 VBA—遍历EXCEL文件中的Sheet

遍历EXCEL文件中的Sheet。

2022-06-26 20:30:04 9508

原创 VBA-遍历文件及重命名-1

For filename revision.

2022-06-01 23:15:24 2187

原创 <学习笔记> VBA 第5~6节

第5节 变量 注:变量类型见 help—语言参考—变量类型 5.1 变量存活周期 (1)过程级变量:过程结束,变量值释放 (2)模块级变量:变量的值在本模块中保持,中作簿关闭时随时释放。 在模块最开始声明: Dim 变量 as 类型 (3)全局变量:在所有模块中都可以调用,值会保存到excel关闭时释放。 在任意模块最开始声明:Public 变量 as 类型。 第6节 公式与函数 (1)工作表函数 调用方法:Application.函数 (对象) (2)VBA函数 调用方法:VBA.

2022-03-21 18:19:06 701

原创 <学习笔记>VBA 第3~4节

第3节 判断语句 3.1 IF 语句 (1)单条件判断 If 判断条件 Then 执行语句 Else 执行语句 End If (2)多条件判断1 If 判断条件1 Then 执行语句 Elseif 判断条件2 Then 执行语句 Elseif 判断条件3 Then 执行语句 Else 执行语句 End if (3)多条件判断2 If 判断条件 And (or)判断条件 Then 执行语句 End if 3.2 Select 语句 (1)单条件判断 Select

2022-03-21 12:40:00 336

原创 <学习笔记> VBA 第1~2讲

第1节: 宏是一个过程。 第2节: 2.1 VBA语句 (1) 宏程序语句:运行可以完成一个功能 Sub test()’ 可以赋变量 range(a1)=100 End Sub (2) 函数程序语句:运行后可以返回一个值 Function shcount() ‘可以赋变量 shcount = Sheets.Count End Function (3) 在程序中应用的语句:用于调用程序 Sub test2() Call test '调用test函数 End Sub 注:VBA语

2022-03-21 10:31:34 479

原创 <学习笔记> VBA_Line List_01补充文件

1. Dir遍历文件/文件夹 Dir函数返回为字符串类型,格式: Dir[(pathname[, attributes])] 其中,pathname为文件或文件夹的路径;attribute用于确定返回的属性,当attribute为空时,默认为vbnomal,即返回pathname下文件名称字符串。 attribute属性参数如下,可以填写“常量”或“0”. 常量 值 说明 vbNormal 0 (默认)指定没有属性的文件。 vbReadOnly 1 指

2021-01-03 14:39:02 443 3

原创 <学习笔记> VBA_Line list_01

<学习笔记> VBA_Line list_01 1. 运行报错:"编译错误:用户定义类型未定义" 程序运行时,无法试别CAD Sub piping() Dim CAD As AcadApplication, doc As AcadDocument, textstyle As AcadTextStyle Dim ent As AcadEntity, Files As String, strfind(0 To 6) As String, m As Integer Dim Str, DwgN

2021-01-02 14:48:11 979

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除