单击公式所在单元格，光标就会自动定位到指定位置

lss001

WYS67 发表于 2020-3-3 00:55
我原先把所有的自定义函数粘贴在一个名为《自定义》工作簿的模块1~13里，现在：
1.在《自定义》中插入模 ...

参考30楼附件加载方法！

WYS67

lss001 发表于 2020-3-2 23:29
加载后，引用工作簿ThisWorkbook需要运行加载文件过程ThisWorkbook.Workbook_SheetChange
Sub Workbook_ ...

--------------------------------------------------

WYS67

lss001 发表于 2020-3-3 02:06
参考30附件加载方法！

老师：上面的A列，是您30楼贴出的代码；而B列是30楼附件中《函数控制单元格.xlam》里模块1和ThisWorkbook两个地方粘贴的代码。经比较后发现B列和A列的代码不一样，

应该以哪个为准？
经过反复测试，觉得30楼附件中《函数控制.xlsm》和《函数控制单元格.xlam》里的代码加载宏后运行平稳；而30楼贴出的代码，当修改开始行号K1指定为5时，就会弹出错误警告。

lss001

WYS67 发表于 2020-3-3 09:58
老师：上面的A列，是您30楼贴出的代码；而B列是30楼附件中《函数控制单元格.xlam》里模块1和ThisWork ...

只是格式不同，内容是一样的！

lss001

WYS67 发表于 2020-3-3 09:58
老师：上面的A列，是您30楼贴出的代码；而B列是30楼附件中《函数控制单元格.xlam》里模块1和ThisWork ...

有一行内容不同，后来加了一行容错代码！
On Error Resume Next

WYS67

lss001 发表于 2020-3-3 10:09
只是格式不同，内容是一样的！

老师，假如其它工作簿需要GBDW这个自定义函数，是不是都需要在该工作簿的ThisWorkbook里粘贴下面的代码？

Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.Run "'函数控制单元格.xlam'!ThisWorkbook.Workbook_SheetChange", Sh, Target
End Sub

WYS67

lss001 发表于 2020-3-3 10:18
有一行内容不同，后来加了一行容错代码！
On Error Resume Next

嗯。附件的代码里有 On Error Resume Next  这一句代码。但开头没有 Private

WYS67

lss001 发表于 2020-3-3 10:18
有一行内容不同，后来加了一行容错代码！
On Error Resume Next

如果把  GBDW 和其它自定义函数存放在同一个工作簿《自定义.xlsm》里，加载宏成《自定义.xlam》，那么，Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)前边需要不需要增加 Private  ？

lss001

WYS67 发表于 2020-3-3 10:39
如果把  GBDW 和其它自定义函数存放在同一个工作簿《自定义.xlsm》里，加载宏成《自定义.xlam》，那么，S ...

去掉会更通用些！

WYS67

lss001 发表于 2020-3-3 10:44
去掉会更通用些！

非常感谢老师不厌其烦的详细解释。经反复验证，您30楼附件里的代码加载宏后，可以完美运行！如果哪个工作簿需要GBDW这个自定义函数，只需在这个工作簿的ThisWorkbook里，粘贴进下面的代码即可！

Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.Run "'自定义.xlam'!ThisWorkbook.Workbook_SheetChange", Sh, Target
End Sub