- 博客(81)
- 资源 (5)
- 收藏
- 关注
RSS订阅原创 VBA常用代码
392、 将一列已文本保存的数字转换为数字Sub txtToNumber()Application.ScreenUpdating = FalseFor Each Rng In Range(“D2:D” & Range(“d65536”).End(xlUp).Row)If VBA.IsNumeric(Rng) ThenRange(Rng.Address) = Rng + 0End...
2020-02-17 23:15:35
969
原创 VBA入门到进阶常用知识代码总结80
第80集 封装函数与COM加载宏389、 用VB开发自定义函数我们可以用VB编写自定义函数，然后封装成dll文件，最后在excel中使用该自定义函数，具体步骤如下：封装可以在工作表中使用的自定义函数和79集一样，只是加载时多了一个步骤1 创建步骤省略,下面是要封装的自定义函数Function OnlyCount(rg As Excel.Range)Dim d As ObjectDim...
2020-02-17 23:12:55
817
原创 VBA入门到进阶常用知识代码总结79
第79集 VBA代码的封装384、 DLL文件简述1、什么是DLL文件DLL是Dynamic Link Library 的缩写形式，DLL是一个包含可由多个程序同时使用的代码和数据的库，DLL不是可执行文件。动态链接提供了一种方法，使进程可以调用不属于其可执行代码的函数。函数的可执行代码位于一个 DLL 中，该 DLL 包含一个或多个已被编译、链接并与使用它们的进程分开存储的函数。DLL 还...
2020-02-17 23:11:41
469
原创 VBA入门到进阶常用知识代码总结77
第77集 API基础367、 API概述API（Application Programming Interface,应用程序编程接口）是一些预先定义的函数,目的是提供应用程序与开发人员基于某软件或硬件的以访问一组例程的能力，而又无需访问源码，或理解内部工作机制的细节。368、 API函数有什么作用？Windows的行为是通过API函数的调用完成的，通过它可以控制windows部件的外观和...
2020-02-17 23:00:33
2059
原创 VBA入门到进阶常用知识代码总结76
第76集 IE与网络操作363、 网络资源下载Private Declare PtrSafe Function URLDownloadToFile Lib “urlmon” Alias “URLDownloadToFileA” (ByVal pCaller As LongLong, ByVal szURL As String, ByVal szFileName As String, ByVal...
2020-02-17 22:56:58
398
原创 VBA入门到进阶常用知识代码总结75
第75集 综合实例-查询功能模块359、 入库明细查询Sub 入库明细查询()Dim mydata As New Data查询Dim sql As Stringsql = “Select * from Ruku”mydata.执行筛选 sql, “a2”End SubSub 入库明细查询2()Dim mydata As New Data查询Dim sql As Strings...
2020-02-17 22:55:59
625
原创 VBA入门到进阶常用知识代码总结74
第74集 SLQ+ADO综合实例358、 入库、出库系统类模块中：Function 筛选结果(sq As String)Dim conn As New ConnectionDim rst As New Recordsetconn.Open “provider=Microsoft.ACE.OLEDB.12.0;data source=” & ThisWorkbook.Path &...
2020-02-17 22:53:57
377
原创 VBA入门到进阶常用知识代码总结73
第73集 SQL高级查询技术357、 多表合并汇总Union all，Union多表合并类模块中：Sub 执行筛选(sq, Rg As String)Dim conn As New ConnectionWith ActiveSheet 'Sheets(“sheet1”).Range(Rg).Resize(100, 7) = “”conn.Open “provider=Microso...
2020-02-17 22:52:59
362
原创 VBA入门到进阶常用知识代码总结72
第72集 SQL语言基础354、 按条件筛选类模块中：Property Get Excel数据库()Excel数据库 = “provider= Microsoft.ACE.OLEDB.12.0;extended properties=excel 8.0;data source=” & ThisWorkbook.path & “/Database/CangKu.xls”En...
2020-02-17 22:51:52
219
原创 VBA入门到进阶常用知识代码总结71
第71集 数据库的基本操作347、 基本概念1、 怎么样才能操作数据库？使用ADO建立和数据库的连接，然后用ADO对象和sql语言对数据库进行操作。2、 SQL是什么?SQL（Structured Query Language)是一种查询语言，可以查询、更新数据库中的数据。3、 SQL可以查询哪些数据库?SQL是一种通用的查询语言,可以查询EXCEL,ACCESS,SQL SERVE...
2020-02-17 22:50:44
465
原创 VBA入门到进阶常用知识代码总结70
第70集 类的封装可以对一些常用功能进行封装，方便合作开发。344、 封装宏代码1、插入类模块：功能库Sub 公式变数值(rg As Range)rg = rg.ValueEnd SubSub 自定义格式变数值(rg As Range)rg = rg.TextEnd SubSub 表达式变公式(rg As Range)rg = “=” & rg.ValueEnd S...
2020-02-17 22:47:17
743
原创 VBA入门到进阶常用知识代码总结69
第69集 类模块事件340、 按钮事件Dim mycombar(1 To 6) As New CombarclassPrivate Sub UserForm_Initialize()Dim x As IntegerFor x = 1 To 6Set mycombar(x).com = Me.Controls(“CommandButton” & x)Next xEnd Sub...
2020-02-17 22:46:20
442
原创 VBA入门到进阶常用知识代码总结68
第68集 类模块入门330、 什么是类类，相同的事物划成的一个类别。象人类，鸟类等。在VBA中可以创建类的模块就是类模块。331、 类模块有什么用类就象一个设计好的模板，它生产的产品大小、形状，它所具体的功能已设置完成，当需要这类产品时，我们只需要把材料放进模板，就可以马上生产出一个和模板有相同特征、功能的产品。对于同类的产品可以通过循环批量操作，不必一个个的设置。具体的作用有以下几方...
2020-02-17 22:44:57
417
原创 VBA入门到进阶常用知识代码总结67
第67集 代码操作代码325、 VBE相关基本知识VBE对象是根对象，表示在VBA编辑器中存在的所有对象的最上层对象。VBAproject对象: VBE编辑器中的工程VBComponents对象：表示工程中所有的部件集合，包括Excel对象、窗体、模块、类模块。CodeModule 对象：表示部件中相关的代码操作VBE需要做的工作1 设置信任excel2003中，工具–宏--安全性...
2020-02-17 22:43:18
715
原创 VBA入门到进阶常用知识代码总结66
第66集 Excel功能区设置（二）----Excel2007或更高版本315、 XML语言XML语言是区分大小写的。316、 添加Tab标签 '根语句，固定的 ‘功能区块 ’标签集合 ‘添加一个标签，在插入选项卡之前 ‘ 结束语句317、 添加分组318、 添加按钮'Callback fo...
2020-02-17 22:41:46
317
原创 VBA入门到进阶常用知识代码总结65
第65集 Excel功能区设置（一）----Excel2007或更高版本314、 利用Custom UI Editor自定义功能区命令步骤：① 安装Custom UI Editor软件；② 打开软件，选择需要自定义功能区的Excel文件；③ 选择Insert，插入2007或2010的Custom UI Part，并在右边编写代码；④ 编写完成代码后，点击按钮Validate，检查语法；...
2020-02-17 22:38:57
227
原创 VBA入门到进阶常用知识代码总结64
第64集 Excel命令栏设置(二)309、 在指定的命令栏中添加命令单元格右键菜单添加一个名为“我的命令”的命令Dim mycom As CommandBarComboBoxSub tiancom()On Error Resume NextDim myBAR As CommandBarButtonApplication.CommandBars(“CELL”).Controls(“我...
2020-02-17 22:38:06
527
原创 VBA入门到进阶常用知识代码总结63
第63集 Excel命令栏设置(一)301、 命令栏、命令相关知识Excel里所有命令栏的集合: CommandBars一 表示方法1 CommandBars(index)可以按序号表示excel中命令栏2 CommandBars(命令栏名称) 也可以表示某一个命令栏 二 命令栏中的命令集合Controls 1 CommandBars(index).Controls(in...
2020-02-17 22:37:13
372
原创 VBA入门到进阶常用知识代码总结62
第62集 窗体综合实例300、 实现出库单输入并记录Option Explicit'1 添加日期控件: 略'2 出库单号码设置Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) '出库单号码强制输入，否则不允许离开If TextBox2.Text = “” ThenCancel = True '取消离开操...
2020-02-17 22:36:06
714
原创 VBA入门到进阶常用知识代码总结61
第61集 日期和进度条295、 注意事项注意：64位office无法加载该控件，32位可以运行。296、 常用的日期控件有2个，一个是DTPicker，另一个是Calendar。附加控件中选择Microsoft Dtae and Time Picker Control和日历控件 12.0。DTPicker设置日期格式是，月份要大写。如：yyyy-MM-dd297、 注册日历控件Su...
2020-02-17 22:34:58
498
原创 VBA入门到进阶常用知识代码总结60
第60集 treeview控件287、 注意事项注意：64位office无法加载该控件，32位可以运行。288、 基础知识treeview控件添加节点的ADD方法Treeview1.Nodes.Add(上一级节点的索引值,是否为子节点,节点的索引值,节点上显示的文字,图标的索引号,选取节点时的图标)一级节点的索引值和创建节点的位置为空。则表示创建是的顶级节点。索引值不能为数字，为st...
2020-02-17 22:33:34
531
原创 VBA入门到进阶常用知识代码总结59
第59集 listview控件275、 注意事项注意：64位office无法加载该控件，32位可以运行。276、 基础知识① ColumnHeaderers：列标题，添加列标题的方法：ListView1.ColumnHeaders.Add 列数, key, 标题, 宽度，对齐方式，显示的图标lvwColumnCenter居中对齐，lvwColumnLeft左对齐，lvwColumnR...
2020-02-17 22:32:03
1030
原创 VBA入门到进阶常用知识代码总结58
第58集 单选复选、框架和多页271、 单选复选、框架爱好按钮的代码：Private Sub CommandButton1_Click()Dim sr As StringIf CheckBox1.Value = True Then sr = sr & " " & CheckBox1.CaptionIf CheckBox2.Value = True Then sr = ...
2020-02-17 22:27:58
659
原创 VBA入门到进阶常用知识代码总结57
第57集 列表和组合框268、 列表框和组合框列表框更占位置，但显示明显，组合框占位置少，但显示不明显。269、 组合框常用设置显示多列内容ColumnCount属性可以设置显示的列数TextColumn选取多列时显示N列的内容BoundColumn属性可以指定返回第N列的值Private Sub CommandButton1_Click()商品.RowSource = “...
2020-02-17 22:25:27
550
原创 VBA入门到进阶常用知识代码总结56
第56集 文字框263、 显示相关设置一 显示1、多行显示MultiLine 属性值为true时，可以多行显示文本2、文本框对齐左右对齐可以用TextAlign对齐，但上下对齐则没有相应的属性设置3、密码样式可以设置passwordChar属性来隐藏输入的内容4、行列超过宽度或高度时添加滚动条ScrollBars 属性可以设置垂直和水平滚动条5、强制换行符号EnterKey...
2020-02-17 22:23:25
761
原创 VBA入门到进阶常用知识代码总结55
第55集 标签、按钮259、 标签设置1、自动适应字体大小AutoSize的属性设置为true，可以自动调整大小以完全显示文字。2、背景透明BackStyle值：0为透明，1为不透明。3、文字对齐TextAlign属性：1左对齐，2居中对齐，3右对齐。4、字体的自动换行WordWrap属性：如果为True则自动换行(默认)。260、 按钮设置一 按钮显示1、鼠标放在按钮上时...
2020-02-17 22:22:21
904
原创 VBA入门到进阶常用知识代码总结54
第54集 窗体事件254、 窗体初始化事件当窗体出现之前运行的程序。常用语变量初始化等设置。Private Sub UserForm_Initialize()MsgBox Me.CaptionEnd Sub255、 窗体关闭前的事件Cancel：值为>0的值时禁止关闭动作的发生CloseMode：关闭的模式，0点击关闭按钮，1是使用unload关闭。Private Sub ...
2020-02-17 22:21:39
775
原创 VBA入门到进阶常用知识代码总结53
第53集 窗体与控件基础251、 窗体的使用1、窗体的插入和启用插入菜单 --用户窗体工程窗口中右键 --插入 - -用户窗体2、窗体的运行手工点运行按钮 (快捷键F5)用代码执行Sub 显示窗体()入库单.ShowEnd Sub3、窗体的关闭手工点关闭按钮用代码执行关闭详见窗体4、窗体的显示设置A、窗体的标题设置Captain的值B、窗体的背景色设置Back...
2020-02-17 22:21:05
753
原创 VBA入门到进阶常用知识代码总结52
第52集 Txt文件的读取246、 读取txt文件内容方法Input：从文件中读取指定数量的字符Input #：把数据读出放在变量里，变量用逗号分隔Line Input #：取出完整的一行247、 Input函数读取Input 函数只用于以 Input 或 Binary 方式打开的文件Input 函数返回它所读出的所有字符，包括逗号、回车符、空白列、换行符、引号和前导空格等Sub ...
2020-02-17 22:20:24
631
原创 VBA入门到进阶常用知识代码总结51
第51集 Txt文件的写入237、 Open命令Open 文件名 for 打开方式 as 文件编号打开方式:Input：只能读，不能写Append：允许读也允许写，如果存在文件就追加记录，如果没有就新建文件Output：可以读，也可以写。但总会把原来的同名文件删除，再新建一个238、 向文件中写入数据write #：向文件中写入值，值用引号引起来。如果想在同一行中继续写入，可以在前...
2020-02-17 22:17:51
391
原创 VBA入门到进阶常用知识代码总结50
第50集 文件压缩与解压227、 Shell函数Shell执行一个可执行文件.返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。语法Shell(“可执行程序的路径 文件名或命令行”,窗口的显示方式)Sub 用绘图程序打开图片()Dim myshmysh = Shell("mspaint.exe " & ThisWork...
2020-02-17 22:05:17
2399
原创 VBA入门到进阶常用知识代码总结49
第49集 文件夹遍历225、 父子转换法遍历所有文件夹及子文件夹、子文件Sub 父子转换法演示程序()Dim 父亲(1 To 10000) '存放所有文件夹名称及其路径Dim f, i, k, f2, f3, xDim arr1(1 To 100000, 1 To 1) '存放查找到的所有文件Dim q As Integer父亲(1) = ThisWorkbook.path &...
2020-02-17 22:03:21
370
原创 VBA入门到进阶常用知识代码总结47
第47集 程序优化与提速205、 减少对象的调用调用对象是非常非常的耗费资源的，所以一定要尽可能的少调用对象。包括：工作簿、工作表、单元格以及外引用对象。Sub 在循环中调用单元格()Dim x As Integer, kDim tt = TimerFor x = 1 To 20000k = [a1]Next xDebug.Print Timer - tEnd SubSu...
2020-02-17 22:00:14
435
原创 VBA入门到进阶常用知识代码总结48
第48集 VBA文件夹操作216、 判断文件夹是否存在Dir函数的第二个参数是vbdirectory时可以返回路径下的指定文件和文件夹，如果结果为""，则表示不存在。Dir 函数返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。Dir[(pathname[, attributes])]Sub w1()If Dir(Thi...
2020-02-17 21:59:42
613
原创 VBA入门到进阶常用知识代码总结46
第46集 组合之递归算法203、 递归基础1 什么是递归？递归就是自已调用自已。2 用递归有什么好处？简化代码，让程序更简捷。特别是在循环层数不定的情况下可以大大简单代码。3 递归有什么坏处？因为递归在使用时会产生大量储存临时信息的“栈”（按先进先出储存信息），所以运行效果比较低，所以一般不建议使用递归设计程序。204、 示例计算4的阶乘 (4 * 3 * 2 * 1 = 24)...
2020-02-17 21:54:23
1299
原创 VBA入门到进阶常用知识代码总结45
第45集 随机抽取201、 移形换位法（效率最高）Sub 移形换位演示程序()Dim arrDim x As Integer, num As Integer, k As Integer, srTemp As StringRange(“c1:c10”) = “”Range(“a1:a10”) = Application.Transpose(Array(“A”, “B”, “C”, “D”...
2020-02-17 21:52:21
234
原创 VBA入门到进阶常用知识代码总结44
第44集 图片与图形处理198、 Shape对象的类型和属性该对象代表工作表或图形工作表上的所有图形,它是sheets和chart的子对象（属性）。Sheet1.ShapesSub t2()On Error Resume NextDim ms As Shapek = 1For Each ms In Sheet1.Shapesk = k + 1Cells(k, 1) = ms.Na...
2020-02-17 21:51:42
1062
原创 VBA入门到进阶常用知识代码总结43
第43集 日期与时间专辑189、 返回当前日期、时间（指本机系统设置的日期和时间）Sub t1()Debug.Print Date '返回当前日期Debug.Print Time '返回当前时间Debug.Print Now '返回当前日期+时间End Sub190、 格式化显示日期Format函数Sub t2()Debug.Print Format(Now, “yyyy-mm...
2020-02-17 21:50:23
467
原创 VBA入门到进阶常用知识代码总结42
第42集 数据类型与转换180、 数据类型综述在VBA中的数据类型有整数、文本、对象等类型。这些不同的类型有着特定的作用，在进行运算时也会占用不同大小的内存，所以我们在编写程序时为了提高运行效率，一般都要定义数据的类型。181、 数据类型检查-判断是否为空TypeName函数：返回一个 String，提供有关变量的信息语法：TypeName(varname)必要的 varname 参...
2020-02-17 21:49:09
531
模拟四则运算.zip
2020-02-14
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人