Excel自定义“万能直线内查”函数在水文水资源工作中的运用.pdfVIP

一一一蝴算应机用一一一 《水资源研究》第31卷 第4期 (总第 117期)2010年 12月 Excel自定义 “万能直线内查”函数在水文 水资源工作中的运用 代 堂 刚 (云南省水文水资源局 昭通分局 ，云南 昭通 657000) 摘 要：通过对 Excel的认真学 习与实践，利用其脚本语言 VBA，编写 了自定义 “万能直线 内查”函数 ，将其运用 于实际工作，大大提高了工作效率 ，解决了工作 中诸 多直线 内查难题 。此函数在 Exce197、Excel2000、Excel 2003、Excel2007中测试通过 ，具有广泛的通用性。 关键 词：Excel；万能直线 内查函数 ；运 用实例 Excel虽然提供了丰富的内置 函数 ，可 以简便、快捷地进行 )， ，0))，Y， )) 术 ( 一Application．W0rksheetFunction．In— 各种数据运算 、处理、分析 ，但要满足实际工作 的需要还是很不 dex(Y，Application．WorksheetFunction．Match(Application．Work— 够 的，特别是在处理直线 内查时，Excel中虽然有 VLOOKUP、 sheetFunction．Lookup(，Y， )，：，0)))／(Application．Work— HLOOKUP、LOOKUP三个查找 函数 ，但均不能满足直线 内查需 sheetFunction．Index(Y，Application．WorksheetFunction．Match 求 。通过对 Excel的认真学习，利用其脚本语言VBA，编写了 自 (Application．WorksheetFunction．Lookup(，Y，：)， ，0)+I) 定义 “万能直线 内查”函数 ，并将其应用于实际工作 ，大大提高 一 Application．WorksheetFunction．Index(Y，Application．Workshe· 了工作效率。 etFunction．Match(Application．W0rksheetFuncti0n．Lookup(，Y， )，z，0))) 1 编写方法 End If 1．1 函数 的建立 End Function 函数中包含3个参数 ，也称 自变量 ： 表示 已知变量 ；Y表 打开 Excel电子表格依次点击菜单栏上 的 [工具 ][宏] 示已知变量所在 的数组 ；表示函数 (直线 内查值)所在 的数组。 [VisualBasic编辑器]进入 VBA语言编写界面 ，然后依次点击 此函数的适用条件是 自变量 所在数组 Y(数组)必须是升序排 菜单栏上 的[插入][模块]向界面 中插入模块 ，再点击模块文件 列。 夹中的模块 1，在模块 1中编写如下代码 ： PublicFunction万能直线 内查 (，Y，z) 1．2 函数的保存与加载 Ifx = ””Then 当函数编写好后应保存成 “MicrosoftOfficeExcel加载宏