佛山小老鼠带您走进VBA数组(菜鸟请进)

edo20

感谢楼主！{:soso_e163:}
谢谢！
学习。

weiyingde

佛山小老鼠 发表于 2013-11-13 00:20
数组里常用的函数
1.LBound 取得数组的上标这个用的比较少,因为上标默认的是0和1

1.LBound 取得数组的上标
2.Ubound取得数组的下标
老鼠版主，是不是说反了？

weiyingde

佛山小老鼠 发表于 2013-11-13 00:20
数组里常用的函数
1.LBound 取得数组的上标这个用的比较少,因为上标默认的是0和1

Sub Instr的用法()

附件里的代码：
arr1 = Sheets(6).UsedRange
要改为：
arr1 = Sheets("Instr").Range("A2:B" &Range(“B65536”).End(3).Row)
否则要报错。

weiyingde

佛山小老鼠 发表于 2013-11-13 00:22
多工作簿查询
先申请,这个代码速度是很慢的,没有用SQL和ADO结合起来那么快,如果工作簿不是很多可以接受,呵 ...

arr2(k, z - 1) = arr1(x, z) '把数组arr1满足条件装到数组arr2里
中应为：
arr2(k, z - 1) = arr1(j , z) '把数组arr1满足条件装到数组arr2里

一分硬币吖

感谢楼主的无私奉献，受教了！！

hbymasq

讲得非常好，学——呵呵

parkmoonsu

这几天要学些一下，谢谢

乐乐2006201505

第一个有错误的代码
Option Explicit
Sub test()
    Call 自已
End Sub
Sub 自己()
    msbgox "亲:您好!", 64, "问候"
End Sub

两处错误：1.call 后边不能用汉字，下一个过程名也不能用汉字；2.msbgox拼写错误，应为msgbox。

乐乐2006201505

第二个错误
是一个自定义函数，大家找出错误我也加财富10￥
Option Explicit
Function XFD1(Rg As Range)  '这个函数作用就是返回参数单元格的行号
    XFD1 = Rg.Row
End Function
函数不能出现数字，如本例中的1。

乐乐2006201505

第三个错误
Option Explicit
Sub 取左边的第一个数据再求和()
    Dim a%, b%, c%, s%
    a = 11
    b = 21
    c = 31
    s = Left(a, 1) + Left(b, 1) + Left(c, 1)
    MsgBox "求和结果是: " & s
End Sub
为什么结果是123，应该是6

第四个错误
Sub 筛选()
    Range("A1:C100").AutoFilter field:=3, Criterial:="佛山小老鼠"
End Sub

第三个把文本型数值改为数字即可。第四个把Criterial改为Criteria1即可，后边是数字1，不是字母l，但问题是这个筛选不是很好，开始我明明改为数字1了，还是有问题，不过最后终于解决了。