Блог

Есть ли в VBA способ программно получить ограничения (минимальное значение, максимальное значение) числового типа ( Long например)?

Что-то вроде numeric_limits<long>::min() в C .

Нет, но в любом случае они имеют фиксированный размер, поэтому вы можете вывести их напрямую.

Вот некоторая информация об их размерах: http://msdn.microsoft.com/en-us/library/aa164754.aspx

Из статьи:

Целочисленные и длинные типы данных могут содержать как положительные, так и отрицательные значения. Разница между ними заключается в их размере: целочисленные переменные могут содержать значения от -32 768 до 32 767, в то время как длинные переменные могут варьироваться от -2 147 483 648 до 2 147 483 647. Традиционно программисты на VBA использовали целые числа для хранения небольших чисел, поскольку они требовали меньше памяти. Однако в последних версиях VBA преобразует все целочисленные значения в тип Long, даже если они объявлены как тип Integer . Таким образом, использование целочисленных переменных больше не дает преимущества в производительности; на самом деле, длинные переменные могут быть немного быстрее, потому что VBA не нужно их преобразовывать.

Я не думаю, что для этого есть функция. Я бы создал библиотеку постоянных значений для каждого типа чисел, тогда вы могли бы ссылаться на это.

Для платформы программирования с 32-разрядной артикуляцией: «Dim Item1 As Long», длина переменной составляет 32 бита. Это означает, что каждая длинная затемненная переменная является 32-разрядной. максимальное значение, которое он может содержать (положительное или отрицательное), составляет чуть более 2 миллиардов.

     Sub sumall() 
    Dim firstRow As long
   firstRow = 5
   Dim lastRow Aslong
   lastRow = 12
  Dim aRow As long
  Dim sumall As Variant
  Dim sumResult As Variant
  sumResult = 0
  Dim previousValue As Variant

  previousValue = -1
  For aRow = firstRow To lastRow
    If Cells(aRow, 2).Value <> previousValue Then
        sumResult = Cells(aRow, 2).Value
        previousValue = Cells(aRow, 2)
    End If
  Next aRow
sumall = sumResult
End Sub
 

Другим вариантом для tasc было бы использовать scriptingDictionary для получения только уникальных значений:

                 Sub sumall()
                Dim objDictionary As Object
                Dim firstRow As Long
                firstRow = 5
                Dim lastRow As Long
                lastRow = 12
                Dim aRow As Variant
                Dim varKey As Variant
                Dim sumResult As Variant


                Set objDictionary = CreateObject("Scripting.Dictionary")

                For aRow = firstRow To lastRow
                        If objDictionary.exists(Cells(aRow, 2).Value) = False Then
                        objDictionary.Add Cells(aRow, 2).Value, True
                        End If

                Next aRow
                sumResult = 0
                For Each varKey In objDictionary.keys
                sumResult = varKey   sumResult
                Next varKey

                End Sub
 

 Sub highlong()
Dim x As Long
On Error GoTo Prt
Do While True
   x = x   1
Loop
Prt:
   MsgBox (x)
End Sub
 

Что бы ни плавало в вашей лодке.