[原创]★Vlookup扩展自定义函数★sy

shuiyuan · 发表于 2005-5-27 15:13

'******************************************** '* Vloolup扩展函数myVlookup * '* 查找值和结果可以在任意列（包括第一列） * '* ExcelHome by shuiyuan * '* 2005-5-27 * '******************************************** ' Function syVlookup(LookData As Range, iColIndex As Integer, LookArea As Range, ColIndex As Integer) Dim i%, iRowMax% Application.Volatile With LookArea iRowMax = .Rows.Count For i = 1 To iRowMax If .Cells(i, iColIndex) = LookData Then syVlookup = .Cells(i, ColIndex) Exit Function End If Next End With syVlookup = "#Value!" End Function

inCfYRTr.zip (8.62 KB, 下载次数: 566)

zz5151353 · 发表于 2005-5-27 15:17

不錯,謝謝隨緣兄提供分享 !!!

yigepure · 发表于 2005-5-27 20:19

不错.谢谢分享

shuiyuan · 发表于 2005-5-31 07:42

好像大家不太喜欢自定义函数。

我觉得，自定义函数可以改善内部函数，适应性更好，把各种自定义函数搜集到一个加载宏中就更有意义了，它可以明显提高工作效率

UNARTHUR · 发表于 2005-5-31 09:16

不错！但是建议不要定义成integer,否则range范围超过32768行失效

plxmm · 发表于 2005-5-31 11:36

偶还未领悟到shuiyuan大师的精髓哦，先瞧瞧...

shuiyuan · 发表于 2005-5-31 12:51

以下是引用UNARTHUR在2005-5-31 9:16:00的发言：
不错！但是建议不要定义成integer,否则range范围超过32768行失效

谢谢关心。

改为Double就可以了

金蛇狂舞 · 发表于 2005-6-27 12:48

第一次接触自定义函数

whlwm · 发表于 2005-6-27 13:09

现在的水平还不敢自定义函数，向各位学习。

yyykj · 发表于 2005-7-11 15:35

谢谢,真是太太谢谢了,楼主真是牛

		自动登录	找回密码
密码			免费注册

[原创]★Vlookup扩展自定义函数★sy

最新热点 /1