[已解决]VBA函数需要修正逻辑

金樽空对月

yearabc 发表于 2022-4-21 17:32
谢谢，意思是需要两个代码吗？没有衔接好，请谅解。没有弄明白。
而且我发现B列和I列非输入数据没有反应 ...

参考代码

1. Private Sub Worksheet_Activate()
   
2.    Set d = CreateObject("scripting.dictionary")
   
3.      With Sheet1
   
4.        R = Cells(Rows.Count, 2).End(xlUp).Row
   
5.        ar = Range("b1:b" & R)
   
6.         For ii = UBound(ar) To 5 Step -1
   
7.             If ar(ii, 1) = "" Then GoTo 100
   
8.         d.RemoveAll: n = 5
   
9.         For i = ii To 1 Step -1
   
10.           d(ar(i, 1)) = ""
    
11.           If d.Count = 5 Then .Cells(ii + 1, 3).Resize(1, 5) = d.keys: Exit For
    
12.           Next i
    
13. 100:
    
14.        Next ii
    
15.     End With
    
16. End Sub

复制代码

这代码只是运算B列的，如果想同时运算 I 列，把B列的代码做相应的修改，放在此工作表事件中运行即可。

yearabc

金樽空对月 发表于 2022-4-21 20:43
参考代码

这代码只是运算B列的，如果想同时运算 I 列，把B列的代码做相应的修改，放在此工作表事件中 ...

谢谢！还需要研究一段时间，好像不执行了

金樽空对月

yearabc 发表于 2022-4-22 17:00
谢谢！还需要研究一段时间，好像不执行了

不是不执行，你得先点到其它工作表内，然后再点回本工作表，程序才会执行。
另外，你说你的数据是用公式得到的，那公式得有源数据吧，那么源数据在哪个工作表内呢？

金樽空对月

yearabc 发表于 2022-4-22 17:00
谢谢！还需要研究一段时间，好像不执行了

详见附件，按钮也可用

yearabc

金樽空对月 发表于 2022-4-22 21:33
详见附件，按钮也可用

谢谢！感谢大师，就是这个目的。请问编码中的100,200,是什么意思，起什么作用，如果后面再添加同样数组，就要变为300递增吗？

金樽空对月

yearabc 发表于 2022-4-23 21:32
谢谢！感谢大师，就是这个目的。请问编码中的100,200,是什么意思，起什么作用，如果后面再添加同样数组， ...

不是你所理解的那样，那个只是给程序做个节点标签而已，用的上的时候才做，你可以用随意一个数字做为它的名称，就像声明变量一样。

yearabc

金樽空对月 发表于 2022-4-24 10:11
不是你所理解的那样，那个只是给程序做个节点标签而已，用的上的时候才做，你可以用随意一个数字做为它的 ...

谢谢，怎么才能只计算没有运算的部分，已经运算的就不用算呢？

金樽空对月

yearabc 发表于 2022-4-24 11:25
谢谢，怎么才能只计算没有运算的部分，已经运算的就不用算呢？

详见附件

yearabc

金樽空对月 发表于 2022-4-24 15:09
详见附件

谢谢老师，但是不是从黄线哪一行逐渐向下计算，中间回空行啊。

金樽空对月

yearabc 发表于 2022-4-24 20:26
谢谢老师，但是不是从黄线哪一行逐渐向下计算，中间回空行啊。

中间空行是因为运算添加的数据不足5，所以是空行。假如要把中间的也继续向上延伸查找够5个的话，那你后来的这个要求就完全没必要了。全部重算一次，也不会改变上面原来的结果，对于电脑来说就是多算了一些数据而已，快慢对于人来说也感觉不出来的。