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

WYS67

lss001 发表于 2020-3-2 12:53
'模块1代码>>>
Public a1, b1, c1, d1
Function GBDW(Optional a = "", Optional b = "", Optional c ...

非常感谢老师编写代码！反复测试后，觉得如果第二、三参数的运算规则修改成下面这样，用途会更广泛，功能也会更强大！
修改L18:L19的运算规则如下：

2.最大行号--可以指定大于或等于开始行号的任意行号为指定的数据区域下限，【如上边截图所示，指定I1为30，K1为10,I1为J，则光标应该限定在J10:J30范围内，点击J4，光标应该定位在最后数据行J24的下一行J25单元格中】如省略则代表本工作表的最大行号【OFFICE2007以后为1048576行】。
3.开始行号--特指数据区域的首行改为按指定的单元格为区域上限【【如上边截图所示，指定I1为30，K1为10,I1为J，则光标应该限定在J10:J30范围内，点击I4，光标应该定位在K1指定的I10单元格里】，如果省略此参数，则默认为公式所在单元格的下一行。


要求：所有参数必须既可调用单元格地址【即引用 I1:K2指定】，也可以第一~三参数直接指定数字，第四个参数可以直接指定英文列标或数字列标；第五个参数可以直接指定文本。

请老师帮助修改为盼。
最新求助的问题在31楼里。

WYS67

lss001 发表于 2020-3-2 12:53
'模块1代码>>>
Public a1, b1, c1, d1
Function GBDW(Optional a = "", Optional b = "", Optional c ...

30楼代码.zip (21.79 KB, 下载次数: 1)

2020-3-2 15:13 上传

点击文件名下载附件

WYS67

请老师们按照31楼要求修改30楼代码为盼。

lss001

WYS67 发表于 2020-3-2 17:29
请老师们按照31楼要求修改30楼代码为盼。

参考30楼更新代码与附件！！

WYS67

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

老师：发现修改I1:K1的最大行号和开始行号，或者让J5:J30没有空白后：

1.点击J4，按说光标应该定位在J31【最大行号的下一个单元格里】，但却定位在J25，这个不对；

2.点击I4，光标应定位在J5才对，但却定位在J10；

是不是还需要设置自动刷新啊？

WYS67

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

改变J列指定范围内的最后非空单元格位置后，或修改I1:K3的指定参数后，点击J4或I4，应该能够能够自动刷新，使光标定位到新的指定位置，

WYS67

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

改变J列指定范围内的最后非空单元格位置后，或修改I1:K3的指定参数后，点击J4或I4，应该能够能够自动刷新，使光标定位到新的指定位置。

YZC51

WYS67 发表于 2020-3-1 22:11
23~25楼的三个代码都可以实现我想要的功能，很强大，谢谢老师！只能明天再补送花花了！

没有关系的！！！

WYS67

YZC51 发表于 2020-3-1 21:07
再者
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$J$4" T ...

今天又没花了，明日接着补送。

lss001

WYS67 发表于 2020-3-2 20:31
今天又没花了，明日接着补送。

参考30楼更新代码与附件！！