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

佛山小老鼠

together5577 发表于 2013-11-15 17:46
第四个错误：Sub 筛选()
     Range("A1:C100").AutoFilter field:=3, Criterial:="佛山小老鼠"
End Sub ...

谢谢参入,解释在37楼

banjinjiu

第二个错误，没有错误。
我在A1—A5单元格输入的是，25，38，5，9，8；B1—B5输入=XFD1(A1)……=XFD1(A5)，B1—B5得到1—5。楼主是否认为XFD1最后一个是数字1和英文l的区别。

xgy0214dxy

感谢老鼠老师，{:soso_e176:}

佛山小老鼠

banjinjiu 发表于 2013-11-16 16:11
第二个错误，没有错误。
我在A1—A5单元格输入的是，25，38，5，9，8；B1—B5输入=XFD1(A1)……=XFD1(A5)， ...

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

函数名和单元格名称一样了，所以你的函数返回一个错误错

chenhx1981

谢谢，占楼后慢慢看！

叱咤风云丫头

果断占个楼层，坐地板悄悄学习！
感谢偶 E 路上的启蒙老师：老鼠老师辛苦分享成果！！！

{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}

佛山小老鼠

总共10层楼,此帖已写完,不明白的地方,同学们,在后面跟帖提问

dengjq2000

赞！
又出新著了-原创，我等VBA文盲，超莱鸟级，不知能否看得懂？

oyh1971

dengjq2000 发表于 2013-11-21 13:51
赞！
又出新著了-原创，我等VBA文盲，超莱鸟级，不知能否看得懂？

Option Explicit是强制对模块内的所有变量进行声明，而XFD1？

佛山小老鼠

oyh1971 发表于 2013-11-24 21:02
Option Explicit是强制对模块内的所有变量进行声明，而XFD1？

XFD1是一个单元格名称,像A1单元格一样,不能用它来做函数名称,会返回一个错误值