Excel VBA Текст на номер

Question

Я программирую немного и легко добавляю клиентский код. Но когда я добавляю клиента, он дает мне эту небольшую ошибку, где я не могу избавиться. Возможно, это будет легкое решение. Вот мой код:

Private Sub btn_Toevoegen_Click() 
    Dim laatsteKlantNummer As Integer 

Range("B4:B13").End(xlDown).Select 
laatsteKlantNummer = ActiveCell.Value 
ActiveCell.Offset(1, 0).Value = txtKlant 
ActiveCell.Offset(1, 1).Value = txtNaam 
ActiveCell.Offset(1, 2).Value = txtAdres 
ActiveCell.Offset(1, 3).Value = txtWoonplaats 
ActiveCell.Offset(1, 4).Value = txtContact 
Me.Hide 
Range("B4:B13").Sort Key1:=Range("B4:B13"), Order1:=xlAscending 
End Sub 

Этот код работает правильно, но дело происходит, когда он помещает его в листе первенствовать она помещена в виде текста, а не число. Поэтому он дает мне ошибку: «Номер хранится как текст». После этого я могу щелкнуть преобразование в число. Например :(http://i.imgur.com/mfMnGFI.png) Но можно ли его закодировать, а не нажимать на него все время?

Answer 1

Я не уверен, на какой линии вы получите эту ошибку, но, к примеру, если это его одна:

ActiveCell.Offset(1, 4).Value = txtContact 

Вы можете добавить это «новообращенного» его в номер:

ActiveCell.Offset(1, 4).Value = txtContact + 0