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).textとして.Range("C" & c.Row).Value = maxclassに変更.Range("C" & c.Row).Text = maxclass
.Range("B2:B" & lastrow)への読み取り専用プロパティです。

#Valueエラーは、関数内の範囲に書き込もうとしているために発生します。

代わりFunctionのSubを使用するか、正確にあなたが達成するために抱き合わせていると我々はそこに形成し、それを取るかを説明:)

Public Sub luclass(NAPS As Double)