文章分类 - Excel Vba
摘要：Excel VBA属性、方法、事件大全——Part1（Complete List of Excel VBA attribute/method and event） VBA调试了不下十遍，但是，能得到这么完整的列表，绝对是值得的。不学好VBA，都有点对不起这么好的资料了，哈哈。 Attribute/M
阅读全文
摘要：Excel疑难千寻千解丛书(三)Excel2010 VBA编程与实践.pdf Sub 让图片适应单元格() Dim sh As Shape Dim sSheet As Worksheet '源工作表 Set sSheet = Worksheets("Sheet1") For Each sh In s
阅读全文
摘要：http://club.excelhome.net/thread-940744-1-1.html 2. Find方法的语法[语法]<单元格区域>.Find (What，[After]，[LookIn]，[LookAt]，[SearchOrder]，[SearchDirection]，[MatchCa
阅读全文
摘要：RemoveDuplicates后边必须跟参数否则不起作用 ActiveSheet.Range("G21:R36").RemoveDuplicates Columns:=12, Header:=xlYes 其中Columns参数指定要删除重复项的列，如果是1的话，那么第一列中重复项所在行都会被删除，
阅读全文
摘要：1、Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为 1 2
阅读全文
摘要：这是一个学习VBA编程的学习笔记。 一. 介绍 二. 使用手册 2.1. 如何在Excel2010中开始使用VBA？ 2.2. 如何使用VBA编辑器进行编程？ 三. 语法说明 3.1 数据类型 3.2 变量和常量的定义 3.3 数组 3.4 过程语句 3.5 过程和函数 3.6 补充 四. 具体实例
阅读全文
摘要：先贴一段网上找的excel的各种事件 工作簿对象事件一览表当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据透视表更改时，将引发工作簿事件。工作簿上的事件在默认情况下是可用的。若要查看工作簿的事件过程，请用鼠标右键单击处于还原状态或最小化状态的工作簿窗口标题栏，再单击快捷菜单上的“查看代码”。
阅读全文
摘要：VBA中的函数Timer用法 第1.40例 Timer 函数一、题目： 要求编写一段代码，运用 Timer 函数来计算本代码运行所化的时间。二、代码：Sub 示例_1_040() Dim t, i&, a t = Timer For i = 1 To 1000000 a = a + i Next i
阅读全文
摘要：下面提供三种方式下载远程文件， Sub test() Dim H, S Set H = CreateObject("Microsoft.XMLHTTP") H.Open "GET", http://www.163.com/test.exe, False '文件网址 H.send Set S = Cr
阅读全文
摘要：1、作用 在消息框中显示信息，并等待用户单击按钮，可返回单击的按钮值(比如“确定”或者“取消”)。通常用作显示变量值的一种方式。2、语法 MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context]) 参数说明： (1)Prompt，必需的参数，为字符串，作为
阅读全文
摘要：第一讲：录制宏及for循环 for循环: sub shihsi() dim i as integer for i = 1 to 100 step 2 (设置步长) range("a"&i) = i next end sub 一些概念： 方法：表示动作的操作叫做方法 属性：表示固有的属性，如有多少个单
阅读全文
摘要：对for循环再次升级，使用for each： Sub shishi() Dim i As Integer For i = 1 To 10 Range("a" & i) = i Next End Sub 同等效果for each 的做法，此处这个for each 针对的是单元格，也可以是表等 Sub
阅读全文
摘要：选择单元格的几种方式： [a1].select cell(2,3).select #参数 行 列 range("a1").select range("a1") =1 默认是 range("a1").value = 1 为属性赋值 两者还是有 区别的 比如安装单元格a1的值去点击对应的工作表 shee
阅读全文
摘要：with语句的使用 Sub test() Sheet2.Range("a1") = 6 Sheet2.Range("a2") = 16 Sheet2.Range("a3") = 26 '等效 With Sheets .Range("a1") = 6 .Range("a2") = 16 .Range(
阅读全文
摘要：在VBA中如何使用excel中的函数 这样Application.WorksheetFunction. “.”后面就能找到在excel中常用的函数 代码 Sub tongji() Dim k, l, m As Integer For i = 2 To Sheets.Count k = k + App
阅读全文
摘要：自定义函数 在VBA中自定义函数 使用如下 function 函数名 （输入的参数） Function zmj(str As String) zmj = str / 6.4 + str * 2 + 8 End Function VBA中有个很好用的函数split 分割 可以通过自定义函数将其写成公式
阅读全文
摘要：如何将对象赋值给变量 Sub test() Dim sht As Worksheet sht = Sheets.Add '这里会报错的 Set sht = Sheets.Add ‘将对象赋值给变量 需要加上set sht.Name = "4月" End Sub 例子：创建表 以sheet1的单元格内
阅读全文
摘要：从例子中了解什么是数组 ：在vba里数组就是一组变量 Sub ss1() Dim i, k t = Timer '这个是从今天0点开始已经过了多少秒的时间 For i = 2 To 200000 If Range("g" & i) = Range("n5") Then '每一次取值都要到range(
阅读全文
摘要：1，字典：就是一个数组 只有两列 作用：去重复 使用字典首先得勾选工具中的 然后才可以使用 Sub test2() Dim dic As New Dictionary dic.Add "张三", 3000 dic.Add "李四", 2000 dic("李四") = 8000 Range("a10"
阅读全文
摘要：公有与私有 Private Sub test() 'privete私有的，这有在这个模块下可以被调用，相反为 public公有的 MsgBox "aaa" End Sub Sub test1() Call test End Sub 还有一个小知识点 Dim i As Integer ‘将i 定义在外
阅读全文
