[已解决]求，临界值的对应参数的vba

759857387

看附件 Book10.rar (19.74 KB, 下载次数: 13)

2012-6-13 20:59 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-6-14 18:38

1. Sub test()
   
2.     Dim i As Integer
   
3.     Dim ar(1 To 101)
   
4.     Dim s, s1, s2
   
5.     s = Range("o4")
   
6.     For i = 1 To 101
   
7.         s1 = Application.Min(Range(Cells(i + 3, "n"), Cells(103, "n")))
   
8.         s2 = Application.Max(Range(Cells(i + 3, "m"), Cells(103, "m")))
   
9.         ar(i) = Round((s - s1) / (s2 - s1) * 100, 2)
   
10.         If i > 1 Then
    
11.             If ar(i) <> ar(i - 1) Then Exit For
    
12.         End If
    
13.     Next
    
14.     Range("s3") = 101 - (i - 1)
    
15. End Sub

复制代码

跳转到最佳答案楼层

那么的帅

看不懂。

Select

我函数不好，看不懂。
如果楼主能说明清楚R列怎么计算出的，解决可能性感觉还是比较大的

hrpotter

1. Sub test()
   
2.     Dim i As Integer
   
3.     Dim ar(1 To 101)
   
4.     Dim s, s1, s2
   
5.     s = Range("o4")
   
6.     For i = 1 To 101
   
7.         s1 = Application.Min(Range(Cells(i + 3, "n"), Cells(103, "n")))
   
8.         s2 = Application.Max(Range(Cells(i + 3, "m"), Cells(103, "m")))
   
9.         ar(i) = Round((s - s1) / (s2 - s1) * 100, 2)
   
10.     Next
    
11.     Range("r4").Resize(101, 1) = Application.Transpose(ar)
    
12. End Sub

复制代码

759857387

hrpotter 发表于 2012-6-14 17:54

老师结果在哪个单元格，我没有找到。

hrpotter

R列呀，不知道你要的结果是怎么样的？

759857387

hrpotter 发表于 2012-6-14 17:54

明白了，老师能否不要辅助列了，直接把计算结果放在S3单元格？

759857387

hrpotter 发表于 2012-6-14 17:54

只要计算出78（S26)，不要整个R列结果

hrpotter

78是怎么来的，根据A列吗？

759857387

hrpotter 发表于 2012-6-14 18:14
78是怎么来的，根据A列吗？

你看表R列（自上而下），13.34一直不变到R27有变化了，临界值是R26，对应的参数就是78
我只要78这个参数（也就是：临界值的对应参数）