VBA «Недопустимая ошибка квалификатора»

Question

Получение недопустимого квалификатора Ошибка в этом коде, понятия не имею, почему.

Dim WTotal As Integer 
WTotal = InputBox("Enter the amount of Wash") 
Dim Startpoint As Range 
Dim totalamount As Integer 

Sheets("Sheet2").Select 
Set Startpoint = ActiveSheet.Cells.Find(What:="Wash") 
Startpoint.Offset(1, 0).Select 
Range(Selection, Selection.End(xlDown)).Select 
totalamount = Selection.Count 

MsgBox "totalamount = " & totalamount.Value 

Эта часть показывает, как причину ошибки

MsgBox "totalamount =" & totalamount .Value

Answer 1

Просто удалить .Value из totalAmount.Value.

totalAmount - это переменная примитивного типа, а примитивные переменные не имеют методов.

Dim WTotal As Integer 
WTotal = InputBox("Enter the amount of Wash") 
Dim Startpoint As Range 
Dim totalamount As Integer 

Sheets("Sheet2").Select 
Set Startpoint = ActiveSheet.Cells.Find(What:="Wash") 
Startpoint.Offset(1, 0).Select 
Range(Selection, Selection.End(xlDown)).Select 
totalamount = Selection.Count 

MsgBox "totalamount = " & totalamount 

Answer 2

Totalamount - целое число - это не объект. Объект - это что-то вроде диапазона (то есть: листы (1) .Range («A1»)). Объекты имеют свойства, такие как свойство value. В этом случае все, что вам нужно, это

MsgBox "totalamount = " & totalamount