Excel VBA中，請檢查此代碼，它不工作

Question

我得到這個錯誤信息：

編譯錯誤 結束如果無遮擋，如果

在最後結束

如果指令

請你分享與我你的答案。

比你提前。我非常感謝你的幫助。

  If rompeControl = "" Then 
      rompeControl = sheet_E.Range("H" & nf).Value 
      wkFecha = sheet_E.Range("G" & nf).Value 
      wkRuc = sheet_E.Range("J" & nf).Value 
      If (sheet_E.Range("J" & nf) > "90000000") Then nc = 99 
      Else 
      sheet_E.Range("R" & nf) = Len(sheet_E.Range("J" & nf)) 
      nc = sheet_E.Range("R" & nf).Value 
      End If 

      wkLocal = sheet_E.Range("N" & nf).Value 
      wkDebito = 0# 
      wkCredito = 0# 
      wkDebitoT = 0# 
      wkCreditoT = 0# 
      wkTipoId = "04" 
      wkTipoDoc = "18" 
     End If 

Answer 1

它應該是：

If (sheet_E.Range("J" & nf) > "90000000") Then 
    nc = 99 
Else 
    sheet_E.Range("R" & nf) = Len(sheet_E.Range("J" & nf)) 
    nc = sheet_E.Range("R" & nf).Value 
End If 

你可以把它像這樣If (sheet_E.Range("J" & nf) > "90000000") Then nc = 99只有在沒有其他的情況下。