摘要: Excel VBA属性、方法、事件大全——Part1(Complete List of Excel VBA attribute/method and event) VBA调试了不下十遍,但是,能得到这么完整的列表,绝对是值得的。不学好VBA,都有点对不起这么好的资料了,哈哈。 Attribute/M 阅读全文
posted @ 2023-04-16 16:02 快乐58 阅读(467) 评论(0) 推荐(0) 编辑
摘要: Excel疑难千寻千解丛书(三)Excel2010 VBA编程与实践.pdf Sub 让图片适应单元格() Dim sh As Shape Dim sSheet As Worksheet '源工作表 Set sSheet = Worksheets("Sheet1") For Each sh In s 阅读全文
posted @ 2023-04-16 00:42 快乐58 阅读(630) 评论(0) 推荐(0) 编辑
摘要: VBA 高级筛选 http://www.geren-jianli.com/n19719c34.aspx http://m.vccoo.com/v/4aej07_2 AdvancedFilter 函数介绍 阅读全文
posted @ 2023-04-16 00:40 快乐58 阅读(54) 评论(0) 推荐(0) 编辑
摘要: http://club.excelhome.net/thread-940744-1-1.html 2. Find方法的语法[语法]<单元格区域>.Find (What,[After],[LookIn],[LookAt],[SearchOrder],[SearchDirection],[MatchCa 阅读全文
posted @ 2023-04-16 00:36 快乐58 阅读(1192) 评论(0) 推荐(0) 编辑
摘要: RemoveDuplicates后边必须跟参数否则不起作用 ActiveSheet.Range("G21:R36").RemoveDuplicates Columns:=12, Header:=xlYes 其中Columns参数指定要删除重复项的列,如果是1的话,那么第一列中重复项所在行都会被删除, 阅读全文
posted @ 2023-04-16 00:35 快乐58 阅读(152) 评论(0) 推荐(0) 编辑
摘要: 1、Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为 1 2 阅读全文
posted @ 2023-04-16 00:33 快乐58 阅读(262) 评论(0) 推荐(0) 编辑
摘要: 这是一个学习VBA编程的学习笔记。 一. 介绍 二. 使用手册 2.1. 如何在Excel2010中开始使用VBA? 2.2. 如何使用VBA编辑器进行编程? 三. 语法说明 3.1 数据类型 3.2 变量和常量的定义 3.3 数组 3.4 过程语句 3.5 过程和函数 3.6 补充 四. 具体实例 阅读全文
posted @ 2023-04-16 00:31 快乐58 阅读(135) 评论(0) 推荐(0) 编辑
摘要: 先贴一段网上找的excel的各种事件 工作簿对象事件一览表当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据透视表更改时,将引发工作簿事件。工作簿上的事件在默认情况下是可用的。若要查看工作簿的事件过程,请用鼠标右键单击处于还原状态或最小化状态的工作簿窗口标题栏,再单击快捷菜单上的“查看代码”。 阅读全文
posted @ 2023-04-16 00:29 快乐58 阅读(158) 评论(0) 推荐(0) 编辑
摘要: 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 阅读全文
posted @ 2023-04-16 00:27 快乐58 阅读(589) 评论(0) 推荐(0) 编辑
摘要: 【导读】: 有时候我们在输入日期数据的时候,往往需要输入农历的日期,但已经输入的日期是公历的日期,那么该怎么转换呢? 接下来我们将为大家如何利用excel函数进行将公历日期转化为农历日期! 一、简单版 下表中B2单元格就是第一种情况,“2016-9-17”表示农历是九月十七日。 该公式是:=TEXT 阅读全文
posted @ 2023-04-16 00:17 快乐58 阅读(3778) 评论(0) 推荐(0) 编辑
摘要: 下面提供三种方式下载远程文件, 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 阅读全文
posted @ 2023-04-16 00:16 快乐58 阅读(261) 评论(0) 推荐(0) 编辑
摘要: 1、作用 在消息框中显示信息,并等待用户单击按钮,可返回单击的按钮值(比如“确定”或者“取消”)。通常用作显示变量值的一种方式。2、语法 MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context]) 参数说明: (1)Prompt,必需的参数,为字符串,作为 阅读全文
posted @ 2023-04-16 00:14 快乐58 阅读(819) 评论(0) 推荐(0) 编辑
摘要: 第一讲:录制宏及for循环 for循环: sub shihsi() dim i as integer for i = 1 to 100 step 2 (设置步长) range("a"&i) = i next end sub 一些概念: 方法:表示动作的操作叫做方法 属性:表示固有的属性,如有多少个单 阅读全文
posted @ 2023-04-16 00:11 快乐58 阅读(103) 评论(0) 推荐(0) 编辑
摘要: 对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 阅读全文
posted @ 2023-04-16 00:11 快乐58 阅读(87) 评论(0) 推荐(0) 编辑
摘要: 选择单元格的几种方式: [a1].select cell(2,3).select #参数 行 列 range("a1").select range("a1") =1 默认是 range("a1").value = 1 为属性赋值 两者还是有 区别的 比如安装单元格a1的值去点击对应的工作表 shee 阅读全文
posted @ 2023-04-16 00:09 快乐58 阅读(70) 评论(0) 推荐(0) 编辑
摘要: with语句的使用 Sub test() Sheet2.Range("a1") = 6 Sheet2.Range("a2") = 16 Sheet2.Range("a3") = 26 '等效 With Sheets .Range("a1") = 6 .Range("a2") = 16 .Range( 阅读全文
posted @ 2023-04-16 00:08 快乐58 阅读(775) 评论(0) 推荐(0) 编辑
摘要: 在VBA中如何使用excel中的函数 这样Application.WorksheetFunction. “.”后面就能找到在excel中常用的函数 代码 Sub tongji() Dim k, l, m As Integer For i = 2 To Sheets.Count k = k + App 阅读全文
posted @ 2023-04-16 00:08 快乐58 阅读(109) 评论(0) 推荐(0) 编辑
摘要: 自定义函数 在VBA中自定义函数 使用如下 function 函数名 (输入的参数) Function zmj(str As String) zmj = str / 6.4 + str * 2 + 8 End Function VBA中有个很好用的函数split 分割 可以通过自定义函数将其写成公式 阅读全文
posted @ 2023-04-16 00:07 快乐58 阅读(365) 评论(0) 推荐(0) 编辑
摘要: 如何将对象赋值给变量 Sub test() Dim sht As Worksheet sht = Sheets.Add '这里会报错的 Set sht = Sheets.Add ‘将对象赋值给变量 需要加上set sht.Name = "4月" End Sub 例子:创建表 以sheet1的单元格内 阅读全文
posted @ 2023-04-16 00:06 快乐58 阅读(101) 评论(0) 推荐(0) 编辑
摘要: 从例子中了解什么是数组 :在vba里数组就是一组变量 Sub ss1() Dim i, k t = Timer '这个是从今天0点开始已经过了多少秒的时间 For i = 2 To 200000 If Range("g" & i) = Range("n5") Then '每一次取值都要到range( 阅读全文
posted @ 2023-04-16 00:05 快乐58 阅读(157) 评论(0) 推荐(0) 编辑