2,462
社区成员
发帖
与我相关
我的任务
分享
Private Sub 基于颗粒数计算过滤器精度()
Dim i As Integer
Dim X, X1, X2, B1, B2 As Double
If Range("D25").Value > 5 Then
Range("E4").Value = "<" & Range("I6")
Else
For i = 1 To 8
If Range("D" & "25+i") >= 5 Then
X1 = Range("I" & "5+i").Value
X2 = Range("J" & "5+i").Value
B1 = Range("D" & "24+i").Value
B2 = Range("D" & "25+i").Value
Exit For
Next i
X = (X1 - X2) * Log(5 / B1) / Log(B1 / B2) + X1
Range("E4").Value = X
End If
If i = 8 Then
Range("E4").Value = ">" & Range("J13")
End If
End Sub
For i = 1 To 8
If Range("D" & "25+i") >= 5 Then
X1 = Range("I" & "5+i").Value
X2 = Range("J" & "5+i").Value
B1 = Range("D" & "24+i").Value
B2 = Range("D" & "25+i").Value
Exit For
End If
Next i
If Range("D25").Value > 5 Then
Range("E4").Value = "<" & Range("I6")
Else
For i = 1 To 8
If Range("D" & "25+i") >= 5 Then
X1 = Range("I" & "5+i").Value
X2 = Range("J" & "5+i").Value
B1 = Range("D" & "24+i").Value
B2 = Range("D" & "25+i").Value
Exit For
X = (X1 - X2) * Log(5 / B1) / Log(B1 / B2) + X1
Range("E4").Value = X
End if
Next i
End If
If Range("D25").Value > 5 Then
Range("E4").Value = "<" & Range("I6")
Else
For i = 1 To 8
If Range("D" & "25+i") >= 5 Then
X1 = Range("I" & "5+i").Value
X2 = Range("J" & "5+i").Value
B1 = Range("D" & "24+i").Value
B2 = Range("D" & "25+i").Value
Exit For
X = (X1 - X2) * Log(5 / B1) / Log(B1 / B2) + X1
Range("E4").Value = X
End If
Next i