我是小旋风

摘要： Shapes大家族： 首先认识一下，在VBA里他们都叫shapes 示例：计算有多少个shape Sub test() MsgBox Sheet1.Shapes.Count End Sub shape属性 Sub test() Dim shp As Shape For Each shp In She 阅读全文

摘要： 使用ADO连接外部excel数据源 补充小知识：在不打开文件的情况下，抓取数据 1）打开数据-现有连接-浏览更多，然后导入你要导的数据，就能在不打开该文件的条件下，进行透视，操作等。 然后就是通过VBA来实现这个小功能 Sub test1() MsgBox "叫""张三""的那个人" '想要输出：叫 阅读全文

摘要： msgbox的用法： 它有多个参数，但常用的就前两个。详情如下表。其实它就是个vba函数 显示全部为(vba.interation.msgbox) 参数，主要用前两个 示例 Sub test() Dim i As Integer i = MsgBox("您好吗", 1 + 48) '它有返回值，对应 阅读全文

摘要： Active控件的在设计模式下才能更改，进行操作：按钮主要用到的属性有 caption "按钮什么名字"；visible“按钮是否可见” enable“按钮是否可编辑” 这三个属性值，其余都比较简单常用 Sub test() Sheet1.CommandButton1.Caption = "结束" 阅读全文

摘要： 从例子中了解什么是数组 ：在vba里数组就是一组变量 Sub ss1() Dim i, k t = Timer '这个是从今天0点开始已经过了多少秒的时间 For i = 2 To 200000 If Range("g" & i) = Range("n5") Then '每一次取值都要到range( 阅读全文

摘要： 如何将对象赋值给变量 Sub test() Dim sht As Worksheet sht = Sheets.Add '这里会报错的 Set sht = Sheets.Add ‘将对象赋值给变量 需要加上set sht.Name = "4月" End Sub 例子：创建表 以sheet1的单元格内 阅读全文

摘要： 自定义函数 在VBA中自定义函数 使用如下 function 函数名 （输入的参数） Function zmj(str As String) zmj = str / 6.4 + str * 2 + 8 End Function VBA中有个很好用的函数split 分割 可以通过自定义函数将其写成公式 阅读全文

摘要： 在VBA中如何使用excel中的函数 这样Application.WorksheetFunction. “.”后面就能找到在excel中常用的函数 代码 Sub tongji() Dim k, l, m As Integer For i = 2 To Sheets.Count k = k + App 阅读全文

摘要： with语句的使用 Sub test() Sheet2.Range("a1") = 6 Sheet2.Range("a2") = 16 Sheet2.Range("a3") = 26 '等效 With Sheets .Range("a1") = 6 .Range("a2") = 16 .Range( 阅读全文

摘要： 选择单元格的几种方式： [a1].select cell(2,3).select #参数 行 列 range("a1").select range("a1") =1 默认是 range("a1").value = 1 为属性赋值 两者还是有 区别的 比如安装单元格a1的值去点击对应的工作表 shee 阅读全文