[英]Excel VBA Type Mismatch
在行中If infl > (fc - WC(j)) * dz(j) Then
我不断收到错误“类型不匹配”,并在行中突出显示-
。 我现在知道什么会导致此错误?
Option Explicit
Dim dz() As Double
Dim WC() As Double
Dim fc() As Double
Dim NL, i As Integer
Dim sumdrain As Double
Dim infl As Double
Sub infilt()
Dim j As Integer
j = 1
While (infl > 0) And (j <= NL)
If infl > (fc - WC(j)) * dz(j) Then
infl = infl - (fc - WC(j)) * dz(j)
WC(j) = fc
Else
WC(j) = WC(j) + infl / dz(j): infl = 0
End If
j = j + 1
Wend
If infl > 0 Then
sumdrain = sumdrain + infl
infl = 0
End If
End Sub
fc
是一个数组。 您不能从中减去。 您可能是说fc(something)
。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.