繁体   English   中英

Excel VBA类型不匹配

[英]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.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM