定义名称中的位置取值如何实现

wht4451 · 发表于 2020-3-12 18:17

借用老师的图表，对于里面的定义名称中的位置取值是如何实现，麻烦各位老师指导一下，谢谢
图片.png

这里的数值部分

悠悠的炊烟 · 发表于 2020-3-12 19:36

主要是用到了一个函数Hyperlink，这个函数有一个神奇用法：当光标置于包含该函数的单元格上时能自动触发程序运行

wht4451 · 发表于 2020-3-12 20:14

悠悠的炊烟发表于 2020-3-12 19:36
主要是用到了一个函数Hyperlink，这个函数有一个神奇用法：当光标置于包含该函数的单元格上时能自动触发程 ...

是的，但上面的取值变动是如何实现的呢，谢谢

悠悠的炊烟 · 发表于 2020-3-12 22:42

Alt+F11打开该文件的VBE可见如下语句：
Function HL(d)
Range("国家") = d.Row
End Function
Function AHL(d)
Range("动物") = d.Column - 13
End Function
这是2个自定义函数，Range("国家")就是C2，Range("动物")是D2，
HL(d)中d是参数，HL(d)：取出作为参数的单元格的行号放到单元格C2中

wht4451 · 发表于 2020-3-13 13:17

悠悠的炊烟发表于 2020-3-12 22:42
Alt+F11打开该文件的VBE可见如下语句：
Function HL(d)
Range("国家") = d.Row

非常感谢

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