VBA值錯誤

Question

我對VBA相當陌生。基本上，我的代碼試圖根據區域列中的最大值輸出分類，該列有幾個類別。邏輯似乎是正確的，但我繼續獲得#VALUE！錯誤。任何幫助將非常感激！

Public Function luclass(NAPS As Double) As String 
Dim lastrow As Long 
Dim c As Range, rng As Range 
Dim maxclass As String 
Dim maxshape As Double 
    With ThisWorkbook.Worksheets("LandUseClass2") 
    lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row 
    maxclass = "Blank" 
    maxshape = 0 
    For Each c In .Range("B2:B650" & lastrow) 
      If c.Value = NAPS Then 
       If .Range("F" & c.Row).Value > maxshape Then 
        .Range("C" & c.Row).Text = maxclass 
       End If 
      End If 
    Next c 
    End With 
    luclass = maxclass 
End Function 

Answer 1

1. 變化.Range("B2:B650" & lastrow)到.Range("B2:B" & lastrow)
2. 變化.Range("C" & c.Row).Text = maxclass到.Range("C" & c.Row).Value = maxclass爲.text是一個只讀屬性。

由於您正在嘗試寫入函數中的範圍，因此您會收到#Value錯誤。

使用Sub代替Function或解釋究竟是什麼，你綁實現，我們將採取它在那裏形成:)

Public Sub luclass(NAPS As Double)