Ошибка переполнения VBA-Excel из-за длинного типа данных

Question

Это может показаться слишком простым, но я так отчаянно.

Что мне нужно сделать, это получить последнее значение из столбца «D», который имеет

большое количество числа, напр. 987654321, код в порядке, если значение только двузначное. Я просто не могу определить проблему.

Dim lastRow As Long 
lastRow = Cells(Rows.Count, "D").End(xlUp).Value 
Sheets("Sheet1").TxtBox1.Value = lastRow 

Answer 1

Как я уже упоминал в своем комментарии, для такого большого количества вы должны объявить его двойным.

Dim lastRow As Double 

Кроме того, так как вы хотите, чтобы сохранить его в текстовом поле вы можете сделать 2 вещи

1. Объявить его как строку

2. хранить его непосредственно в текстовое поле.

   Option Explicit 
   
   Sub Sample1() 
       Dim lastRow As String 
   
       With Sheets("Sheet1") 
        lastRow = .Cells(.Rows.Count, "D").End(xlUp).Value 
        .TextBox1.Value = lastRow 
       End With 
   End Sub 
   
   Sub Sample2() 
       With Sheets("Sheet1") 
        .TextBox1.Value = .Cells(.Rows.Count, "D").End(xlUp).Value 
       End With 
   End Sub 
   

Answer 2

Длинные могут обрабатывать значения до 2.1B! Для любых больших значений лучше использовать Double вместо Long