0
在行If infl > (fc - WC(j)) * dz(j) Then
我不斷收到錯誤「類型不匹配」,它突出顯示行中的-
。我現在知道什麼會導致這個錯誤?Excel VBA類型不匹配
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是一個數組,但我想從數組中逐個減去個別數字。你對我將如何修改代碼有任何建議嗎? – user1977802 2013-02-14 22:26:23
yep ...看起來像一個錯字...你可能會考慮擴大你的變量名(除了迭代器),以便更容易看到那種錯誤 – andrew 2013-02-14 22:26:41
如果我用fc替換所有fc(i)我不再得到錯誤。謝謝 – user1977802 2013-02-14 22:34:52