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

WYS67

lss001 发表于 2020-3-2 20:48
参考30楼更新代码与附件！！

打开下载附件，点击I4，J4时光标可以按照I1:K3指定定位；
然后，对I1,K1指定的参数进行反复修改，验证后发现，点击I4，光标每次都可以定位到新指定的位置；但点击I4时，光标还是不能按I1修改后的最大行号，跳至应该定位的指定位置【见下边截图所示】：

WYS67

lss001 发表于 2020-3-2 20:48
参考30楼更新代码与附件！！

只能在从30楼下载附件后，对最大行号I1指定的行号，只在第一次修改时可以刷新内容，然后就不行了；即使关闭工作簿后再次打开，在I1里重新输入其它数字，仍然不会刷新最大行号的指定内容。

lss001

WYS67 发表于 2020-3-2 21:20
只能在从30楼下载附件后，对最大行号I1指定的行号，只在第一次修改时可以刷新内容，然后就不行了；即使关 ...

参考30楼更新代码与附件！把第2行改一改！

WYS67

lss001 发表于 2020-3-2 21:29
参考30楼更新代码与附件！把第2行改一改！

经测试，最大行号的问题已解决。只是当开始行号被指定在没有数据的空白单元格【如指定K1的开始行号为5，但J5为空白时】时，弹出错误提示，怎样屏蔽掉这个错误提示，让光标仍然按K1指定，定位在J5里？

lss001

WYS67 发表于 2020-3-2 21:49
经测试，最大行号的问题已解决。只是当开始行号被指定在没有数据的空白单元格【如指定K1的开始行号为 ...

参考30楼更新代码与附件！增加红色行代码！

WYS67

lss001 发表于 2020-3-2 22:03
参考30楼更新代码与附件！增加红色行代码！

完全正确，真的好强大！谢谢老师！！！

WYS67

lss001 发表于 2020-3-2 22:03
参考30楼更新代码与附件！增加红色行代码！

老师，弱弱问一句【以前没遇到过这种情况】：把'模块1代码和ThisWorkbook的代码一起粘贴进一个专门的工作簿，和其它许多自定义函数一起加载宏，不会影响ThisWorkbook里的代码的正确运行吧？

lss001

WYS67 发表于 2020-3-2 22:17
老师，弱弱问一句【以前没遇到过这种情况】：把'模块1代码和ThisWorkbook的代码一起粘贴进一个专门的工作 ...

加载后，引用工作簿ThisWorkbook需要运行加载文件过程ThisWorkbook.Workbook_SheetChange
Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.Run "xxx.xlam'!ThisWorkbook.Workbook_SheetChange", Sh, Target
End Sub

lss001

以上内容为需要使用加载项工作薄ThisWorkbook代码！其中XXX为加载项工作薄名称！

WYS67

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

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