- 博客(40)
- 资源 (3)
- 收藏
- 关注
RSS订阅原创 VBA 类模块学习
VBA 类模块学习1 问题背景2 创建自己的对象3 属性过程4 创建集合4.1 `Collection` 对象创建集合4.2 在类模块中创建集合5 封装工作表模块、图表工作表模块、工作簿模块和用户窗体模块都是类模块。不过，这些模块都是特定类型的类模块，其行为与自己创建的类模块稍有不同。这些特定的模块专门设计来支持与它们相关联的对象，提供对该对象的事件过程的访问，并且如果不删除与之相关的对象，就不能删除相应的对象模块。1 问题背景创建一个 Employee 对象。希望在该对象中存储雇
2022-02-24 16:59:33
3898
原创 SQL学习笔记
SQL学习笔记联结内联结（等值联结）等值联结(equijion)内联结(inner join)自联结(self-join)自然联结(natural join)外联结(outer join)左外连接(Left Outer Jion)右外连接(Right Outer Jion)全外连接(Full Outer Jion)联结创建联结的方式非常简单，指定要联结的表和它们的联结方式即可（Table1.PRIMARY_KEY=Table2.FOREIGN_KEY ，即表1.主键=表2.外键）在创建联结时，实际上是
2022-02-05 20:35:22
642
原创 自定义的常用的公式、函数汇总
自定义的常用的公式、函数汇总 [不定期更新]快捷调用文件对话框快捷调用文件对话框介绍：以下定义了一个函数，方便调用文件对话框的操作。如果想查看具体的VBA中文件对话框的操作，请转到此文章查看 VBA 文件对话框函数语法：value GetFileDialogValue(Open_Save_selFile_selFloder [,InitialFileName] [,SortingFileType [,IndtxInStorting]] [,AllowMultiSelect] [,ExitOnCan
2022-01-19 16:58:51
463
原创 Python 操作数据库
Python 操作数据库连接对象游标对象连接对象获取链接对象，使用 connect() 函数。函数的常用参数及说明如下：参数说明dsn数据源名称，给出该参数表示数据库依赖user用户名password用户密码host主机名database数据库名称Connect() 函数返回链接对象。这个对象表示目前和数据库的会话，链接对象支持的方法如下：方法名说明close()关闭数据库连接commit()提交事务ro
2021-08-17 23:33:01
219
转载 SQL 基本语法学习_1
SQL 基本语法Select 语句SELECT DISTINCT 语句WHERE 子句AND & OR 运算符本文使用以下 RUNOOB 样本数据库中的 Websites 表进行学习idnameurlalexacountry1Googlehttps://www.google.cm/1USA2淘宝https://www.taobao.com/13CN3菜鸟教程http://www.runoob.com/4689CN4微博htt
2021-08-02 22:35:16
188
原创 Python 异常处理
异常处理异常概述异常处理语句try ··· excepttry ··· except ··· finallytry ··· except ··· else使用 raise 语句抛出异常程序调试异常概述异常就是程序运行的错误，以下是Python中常见的异常类型异常说明NameError尝试访问以下没有声明的变量IndexError索引超过定义范围引发的错误IndentationError缩进错误ValueError传值错误KeyError请求不存在的
2021-07-24 00:25:19
206
1
原创 Python 模块
Python 模块概述自定义模块创建模块使用 import 导入模块使用 from ··· import 导入模块模块搜素目录概述Python中模块主要分为：标注模块（库）、第三方模块（库）、自定义模块一个模块是一个扩展名为 *.py 的文件使用模块的优点：每个模块有特定的应用域，可以有效避免函数名和变量名冲突引用模块可以使文件更小且分工明确，更容易查找代码可以提高代码的可重用性可以有选择的使用自定义模块一般情况下模块包含以下几部分：函数变量类可执行代码创建模块模块应
2021-07-22 22:23:33
758
5
原创 Python 类的学习_2
Python 类的学习_2创建用于的计算的属性为属性添加安全保护机制继承的基本语法方法重写派生类中调用基类的 `__init__()` 方法创建用于的计算的属性property 属性 与 类属性和实例属性不同，差异点在于：类属性和实例属性，返回所存储的值，是静态的property 属性，在访问时将计算它的值并返回，是动态的，更类似于方法python 中，可以通过 @property 来把方法转换为属性，从而实现可以计算的属性，也把 @property 称作装饰器@property 方法创建的属
2021-07-20 21:59:36
222
原创 Python 类的学习_1
主要学习内容面向对象概述类的定义和使用属性继承面向对象概述面向对象，Object Oriented，简称 OO两个核心概念： 对象、类三个特性：封装、继承、多态对象
2021-07-15 23:57:27
134
原创 Python 正则表达式
Python 正则表达式学习Python 正则简介匹配字符串re.match()re.search()re.findall()拓展 re.finditer()替换字符串re.sub()repl 参数设置为函数分割字符串re.split()正则表达式 对象正则表达式 修饰符 - 可选标志Python 正则简介Python 自1.5版本起增加了re 模块，它提供 Perl 风格的正则表达式模式。re 模块使 Python 语言拥有全部的正则表达式功能。在Python 中使用 正则表达式前需要引用 re模
2021-07-03 10:01:49
123
2
原创 Python 格式化字符串
格式化字符串方法使用 % 操作符号使用字符串对象的 format() 方法方法一、 % (python早期版本中使用的方法) 语法： '%Format_String'%exp1. 第一部分 '%Format_String'，要指定的 格式 其中，Format_String 格式为 [-][+][0][.n]str参数可选/必需形式说明备注[-]可选-左对齐，在负数前加上 “负号”，正数前无符号[+]可选+右对齐，在负数前加上“负号”，正数
2021-07-02 00:03:27
344
1
原创 VBA 利用字典去重获取唯一值列表（案例为一维数组）
'===================================================================='利用字典去重，输入的参数为一个 一维数组，返回为一个起始下标为0的数组Function aGetOnlyList(aList) ’aList为一维数组 列表 Dim Dic, i% Set Dic = CreateObject("scripting.dictionary") '创建字典对象 For i = LBound(aList) To UBound
2021-06-27 16:17:34
1871
4
原创 VBA 变量的作用域及生命期 —— 未完成
变量声明关键词及其作用域关键词声明位置声明的变量类型作用域补充Public模块顶部全局变量当前工作簿及不同工作簿的模块之间/Public模块顶部全局变量当前工作簿模块之间需在模块顶部添加 Option Private ModulePrivate模块顶部模块级变量模块内的不同过程之间/Dim模块顶部模块级变量模块内的不同过程之间/Dim过程内部过程级变量过程内部/Const模块顶部模块级变量模块内部声明常
2021-06-27 10:22:08
160
原创 提取汉字拼音首字符
以下是测试模块Sub 测试() Dim str$ str = InputBox("请输入要识别的字符串") MsgBox str & "的拼音首字母为：" & vbCr & vbCr & getPY(str)End Sub以下是功能实现模块Function PinYin(str As String) As String Select Case Asc(str) Case -20319 To -20284: PinYin = "A"
2021-06-26 10:17:49
108
原创 VBA 图片属性如何在表格中插入图片
语法expression.AddPicture( FileName , LinkToFile , SaveWithDocument , Left , Top , Width , Height )expression 一个表示 Shapes 对象的变量。参数参数名称必需/可选数据类型FileName必需String要从中创建图片的文件LinkToFile必需MsoTriState要链接至的文件SaveWithDocument必需MsoTriStat
2021-05-30 21:15:00
2415
原创 VBA 自定义函数语法
VBA 自定义函数语法[Optional] [ByVal|ByRef] [ParamArray] varname[()] [As type] [=defaultvalue]关键词必须/可选说明备注Optional可选使用该关键词时表示参数可省略。省略关键词时，可以为其指定的一个默认值。ByValByRef可选按值传递； 按地址传递（默认）ParamArray可选声明数量不确定，但是据有相同性质的参数。 声明该类型参数时，必须放置于最后，并且只能作为一个
2021-05-30 01:33:36
639
原创 VBA 获取指定的文件目录下的指定关键词的文件列表
获取指定的文件目录下的指定关键词的文件列表获取指定文件夹下指定关键词的文件列表（不含子文件夹）获取指定文件夹下指定关键词的文件列表（含子文件夹）获取指定文件夹下指定关键词的文件列表（不含子文件夹）Function aGetFiles(sFolderPath As String, saKey) As Variant '参数：文件夹地址，文件名称关键词(数组) Dim aFiles(), lFilesCount As Long, sFileName As String, sKey as Varia
2021-05-02 17:14:24
825
原创 RibboX 控件及其属性
RibboX 控件及其属性常用控件常用控件容器常用容器属性常用控件控件类型描述<contorl …/>通用控件类型<button …/>按钮控件<editBox …/>文本框<checkbox …/>复选框"<labelControl …/>文本元素 本身没有任何操作，非典型用途是为相关按钮的列提供标题"<toggleButton …/>切换按钮 常用于组中，在多个可能
2021-04-30 09:30:09
135
原创 VBA 数据透视表的创建
方法读/写值类别默认值说明.ColumnGrand读/写BooleanTrue是否启用列汇总.RowGrand读/写BooleanTrue是否启用行汇总.HasAutoFormat读/写BooleanTrue数据透视表在刷新或移动域时自动设置格式.DisplayErrorString读/写BooleanFalse如果数据透视表在有错误的单元格中显示用户自定义的错误字符串，则该值为 True。.ErrorString返回...
2021-01-21 15:21:37
8554
1
原创 VBA中，正则表达式的元字符
正则表达式中的元字符特殊字符重复字符字符集通配符其它字符运算符优先级 正则表达式由若干个 分支 构成，分支之间用符号 | 相连。从逻辑上讲，分支之间是一种“或”的关系，一个字符串只要与正则表达式中的任何一个分支相匹配，这个字符串就与整个正则表达式相匹配。比如，“第三人称代词”可以用正则表达式表示为 他|她|它|他们|她们|它们 。特殊字符字符描述\将下一个字符标记为一个特殊字符、或一个原义字符、或一个 向后引用、或一个八进制转义符。例如，‘n’ 匹配字符 “n”。’\n’ 匹配
2021-01-08 14:32:06
1245
1
原创 VBA中，正则表达式的语法介绍
VBA 正则表达式 资料整理创建正则表达式1. 前期引用2. 后期引用正则表达式的属性与方法示例创建正则表达式正则表达式（Regular Expression），常被用来检验、替换符合某个模式(规则)的字符串，在代码中常缩写为 regexp。VBA中并没有直接提供正文表达式对象，需要借助 VBScript 的正则对象。1. 前期引用如果使用前期绑定，那么就需要在VBE中引用如下扩展库。2. 后期引用也可以使用后期绑定的方式创建正则对象，代码如下。Set objRegEx = CreateO
2021-01-01 15:12:21
2251
2
原创 Dir 遍历获取文件夹中的文件地址
Sub 遍历获取文件夹的文件地址() Dim ferP, fp As String 'FolderPath,FilePath Dim i As Long Dim fpA() 'filePathArray ferP = ThisWorkbook.path '定义 ferP = 当前文件所在文...
2019-09-09 22:55:15
820
原创 Excel 插件使用教程
目录1. 插件介绍2. 插件安装3. 图片 选项卡3.1 正常插入图片3.2 插入图片3.3导入列表3.4 导入图片3.5 整理图片3.6 裁剪3.7 删除图片数据汇总第一、二步 选择文件与确认模板数据汇总详解 1. 单行数据 2. 单列汇总 3. 多行汇总 4. 多列汇总文件生成目录删除...
2019-09-07 20:30:00
2426
原创 inputBox 与 Application.inputBox 的用法与区别。
在输入对话框在VBA中有两种形式，分别是：InputBoxExpression.InputBox二者在大致功能上基本相同，个人认为二者重点差异为：后者有 Type 参数，可以限制输入类型，同时可以引用单元格 ；二者输入时， 空值、取消 的返回值不同。二者语法分别如下：InputBox ( prompt, [title], [default], [xpos], [ypos], ...
2019-08-29 16:50:25
4751
2
原创 对工作表图片进行批量裁剪
以下代码，执行以下动作：以当前选中的图片作为样本，获取图片的裁剪尺寸及边框颜色，然后对当前工作表的全部图片进行相同尺寸的裁剪并设置同样颜色的边框。Sub 批量裁剪图片( ) Dim T, B, L, R As Double Dim shpRng As ShapeRange Dim shp As Shape If TypeName(Selection) = "Pictur...
2019-08-27 14:14:07
2108
原创 ## Microsoft Office 开发人员中心 中的参考文件 ##
Microsoft Office 开发人员中心 中的参考文件1. 有关 Office 对象模型中的枚举的文档。
2019-08-27 11:56:09
602
原创 获取图片所在单元格地址
核心代码 dim shp as Shape Shp.TopLeftCell.Address 如下代码会在图片所在的左上角的首个单元格位置填写 “√”Sub GetPicRngAddress() Dim shp As Shape, ad$ For Each shp In ActiveSheet.Shapes ad = shp.TopLeftCell.Address ...
2019-08-27 11:47:44
1442
原创 图片的裁剪
通过对PictureFormat 对象（微软链接）的以下属性的设置可以裁剪图片或者获取图片的裁剪值。裁剪单位为**“磅”**属性裁剪方向读/写CropTop从上方读/写CropBottom从下方读/写CropLeft从左方读/写CropRight从右方读/写以下代码可以从各个方向裁剪图片10磅 Set myDocument = Wo...
2019-08-27 10:54:59
351
原创 功能区 RibbonX 的 OpenXML 架构元素
文章目录customUIcustomUI 的相关属性customUI元素的子对象ribbon元素ribbon元素的子对象tabs（选项卡容器）tab（选项卡）内置的选项卡自定义选项卡group（组）元素内置组在编写自定义 Office 界面的XML时，总是以customUI元素开始，紧接着是Ribbon元素。下面我们将详细介绍customUI元素、Ribbon元素，以及tabs、tab和grou...
2019-08-27 00:27:01
796
原创 VBA 判断InputBox输入空白内容还是点击了取消的方法
方法介绍，利用 StrPtr() 函数。StrPtr：返回真正的UNICODE字符串缓冲区的地址直接上代码Option ExplicitSub 测试() Dim Key As String Key = InputBox("请输入关键词", "这是一个测试") If StrPtr(Key) = 0 Then MsgBox "点击了取消" ElseIf StrPtr...
2019-08-26 09:58:25
5938
原创 ## 细品 RibbonX 系列目录 ##
以下资料链接整理自 狂蟒之林的博客其声明资料整理自论坛以下完整版下载地址：http://download.csdn.net/download/nodeman/10264659细品RibbonX(1)：MS Office界面发展简史细品RibbonX(2)：认识Office的新界面—功能区(Ribbon)细品RibbonX(3)：认识快速访问工具栏(QAT)细品RibbonX(4)：...
2019-08-23 17:03:40
795
转载 有效的功能区设计
文章目录考虑RibbonX元素的易访问性和明显性使用工具提示（tooltip）使用已有的Office功能使用 Office 菜单使用上下文选项卡集（Contextual Tabsets）重利用微型工具栏（MiniToolbar）定义有效的RibbonX设计有效地使用名字考虑选项卡中项目的数量从用户的角度看待组使用正确的控件提供用户提示有效地使用功能隐藏理解 XML 连接关系考虑RibbonX元素...
2019-08-22 19:47:37
404
原创 初识RibbonX
文章目录RibbonX是什么RibbonX代码认识RibbonX的关键元素选项卡（Tabs）组（Groups）控件（Controls）RibbonX是什么在早期版本的Office中，CommandBars对象模型能使开发者在他们的自定义Office应用程序中创建丰富的解决方案。Microsoft在充分了解传统用户界面定制的优缺点后，在Office 2007及之后版本用户界面扩展中引入了一种创新...
2019-08-22 18:53:28
1163
原创 Excel 功能区界面组成简介
功能区界面组成简介选项卡（Tab）组（Group）按钮（Button）单击按钮（Button)切换按钮（ToggleButtons）拆分按钮（SplitButtons）复选框（CheckBox）编辑框（editBox）组合框（comboBox）下拉控件（dropDown）辅助元素标签控件（LabelControl）分隔条（Separator）盒（Box）菜单分隔条（menuSeparator）上下...
2019-08-22 18:17:35
2795
原创 ## Excel功能区 学习资料目录 ##
本人在学校的时候莫然对VBA提起兴趣，经常逃课的我突然就喜欢上了它。抱着一本书，带上电脑，每天去图书馆看着晦涩的代码，一行一行的敲，也是那时开始真正学会了盲打，哈哈哈~~~~。毕业之后，找了做了几份工作，最终找到了现在这份自己不喜欢但工资却能勉强度日的工作，一做就是两年多。因为工作关系，经常需要整理许多数据，刚好下学校的时候一通半解的VBA派上了用处。再后来，开始有了制作一些试用的加载宏插件可...
2019-08-21 00:08:19
322
原创 VBA 更新自定义安装的加载宏文件版本
Sub 安装加载宏() Dim fName As String Dim fnO, fnN, fpnN As String 'FileNameOld FileNameNew FilePathNameNew Dim fnOA 'FileNameOldArr Dim iA 'iArr If MsgBox("本程序将安装自制选项卡 —— My_Tool。是否安装？", v...
2019-08-19 10:59:54
719
原创 自定义功能区IRibbonUI对象丢失的处理办法
问题描述在自定义功能区时，当定义的功能区按钮运行宏被中断时，会发生功能区Ribbon变量丢失，从而导致自定义的功能区按钮失效报错或者功能区不能正常刷新。我刚开始接触设计自定义功能区时，遇到这种情况让我很是头疼，我起初都不知道发生了什么，为什么会报错，后来经过反复的尝试搜索关键词及反复调试，终于找到问题所在。但是解决问题也是让人头疼的一件事情，后来偶然搜到一贴，让我找到了一种全新的思路，作为一...
2019-08-14 14:14:53
1542
3
原创 VBA 文件对话框
[本文转载自 office开发者中心——Application.FileDialog 属性 (Excel)]语法： expression.FileDialog(fileDialogType ) expression，一个代表 Application 对象的变量。 通常写作 Application.filedialog(fileDialogType)参数名称必需/可选数据...
2019-08-13 20:31:11
4524
转载 VBA 字典方法及属性介绍
字典对象相当于一种联合数组，它是由具有唯一性的关键字（Key）和它的项（Item）联合组成VBA字典有6个方法Add , Keys, Items, Exists, Remove, RemoveAllVBA字典有4个属性Count , Key, Item, CompareModeSub dictest() Dim d As Object '声明字典对象，亦可通过声明变体型变量完成声明 &g...
2019-08-13 20:05:34
10059
原创 VBA 利用字典去重
Sub 利用字典去重() Dim aOld, aNew, Dic '声明数组、字典 Dim i As Long Dim sOld, sNew As String '声明字符串 Set Dic = CreateObject("scripting.dictionary") '创建字典 sOld = "a b c 1 2 1 a c d" '旧字符 aOl...
2019-08-13 17:58:47
6920
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人