Vba 函数中的数据类型错误
我得到了一个非常恼人的“这个公式中使用的值是错误的数据类型”错误，我一辈子都搞不清楚是什么导致了它Vba 函数中的数据类型错误,vba,excel,Vba,Excel,我得到了一个非常恼人的“这个公式中使用的值是错误的数据类型”错误，我一辈子都搞不清楚是什么导致了它 Public Function Cc(q As Double, ID As Double) As Double Dim YP As Double 'lb/100ft^2 Dim Fan600 As Single Dim Fan300 As Single Dim n As Double 'Flow behavior index Dim K As Dou
Public Function Cc(q As Double, ID As Double) As Double
Dim YP As Double 'lb/100ft^2
Dim Fan600 As Single
Dim Fan300 As Single
Dim n As Double 'Flow behavior index
Dim K As Double 'Consistency index
Dim Form As Worksheet
Set Form = ThisWorkbook.Worksheets("ECD Generator")
'=========================================================================================================
YP = Form.Cells(5, 10).Value
Fan600 = Form.Cells(6, 10).Value
Fan300 = Form.Cells(7, 10).Value
'=========================================================================================================
n = 3.32 * WorksheetFunction.Log10(Fan600 / Fan300)
K = 5.1 * Fan600 / (1022 ^ n)
Cc = 1 - (1 / (2 * n + 1)) * (YP / (YP + K * ((3 * n + 1) * q / (n * WorksheetFunction.Pi * (ID / 2) ^ 3)) ^ n))
End Function
在Excel 2013中运行此代码时，
Cc=…n = 3.32 * WorksheetFunction.Log10(Fan600 / Fan300)
K = 5.1 * Fan600 / (1022 ^ n)
'Add these temp variables to make the "Cc = ..." expression less complex.
Dim t1 As Double
t1 = 1 / (2 * n + 1)
Dim t2 As Double
t2 = n * WorksheetFunction.Pi * (ID / 2) ^ 3
Cc = 1 - t1 * (YP / (YP + K * ((3 * n + 1) * q / t2) ^ n))
'Cc = 1 - (1 / (2 * n + 1)) * (YP / (YP + K * ((3 * n + 1) * q / (n * WorksheetFunction.Pi * (ID / 2) ^ 3)) ^ n))
在Excel 2013中运行此代码时，
Cc=…n = 3.32 * WorksheetFunction.Log10(Fan600 / Fan300)
K = 5.1 * Fan600 / (1022 ^ n)
'Add these temp variables to make the "Cc = ..." expression less complex.
Dim t1 As Double
t1 = 1 / (2 * n + 1)
Dim t2 As Double
t2 = n * WorksheetFunction.Pi * (ID / 2) ^ 3
Cc = 1 - t1 * (YP / (YP + K * ((3 * n + 1) * q / t2) ^ n))
'Cc = 1 - (1 / (2 * n + 1)) * (YP / (YP + K * ((3 * n + 1) * q / (n * WorksheetFunction.Pi * (ID / 2) ^ 3)) ^ n))
根据您在注释中提供的值，我得到了一个不同的错误 16：表达太复杂了 可以找到有关此错误的信息。基本上，在一次计算中发生了太多的数学运算 为了解决这个问题，我将
CcCcCc = n * WorksheetFunction.Pi * (ID / 2) ^ 3
Cc = 1 - (1 / (2 * n + 1)) * (YP / (YP + K * ((3 * n + 1) * q / Cc) ^ n))
为了确认，这将用两行替换以
Cc=CcCcCc = n * WorksheetFunction.Pi * (ID / 2) ^ 3
Cc = 1 - (1 / (2 * n + 1)) * (YP / (YP + K * ((3 * n + 1) * q / Cc) ^ n))
为了确认，这将用两行替换以
Cc=n=3.32*WorksheetFunction.Log10（Fan600/Fan300）Log（Fan600/Fan300）/Log（10）n=3.32*工作表函数。Log10（Fan600/Fan300）单数WorksheetFunction.PiWorksheetFunction.Pi（）n=3.32*WorksheetFunction.Log10（Fan600/Fan300）Log（Fan600/Fan300）/Log（10）n=3.32*工作表函数。Log10（Fan600/Fan300）单数WorksheetFunction.PiWorksheetFunction.Pi（）