После числа vba excel

SoftIce, вашу мысль понял, но если

, то ведь понятно

Собственно в тех же целях, что и после переменной — указать тип данных.

1
2

Const A0 As Double = 0
'равнозначно 'Const A0# = 0

Таблицу типов/символов выложил для инфо. Копипастом только знак неправильно вставился — $
Другой вопрос, что ТС не знал, что VBA автоматом целое число, если не указан тип, помечает как Integer (если оно влезает в этот тип). И при арифметики и прочих операциях нужно это иметь ввиду, как вы и отметили.
Но все это вопрос преобразования типов данных интерпретатором. Я ответил именно на «# после числа».

Добавлено через 1 час 22 минуты
Хм, старею. Для VBA (x64), cимволом объявления типаLongLong является крышка (^).

1

MsgBox 2000000^ * 2000000^

сожрет. Без крышек Overflow. По аналогии с Integer.

Вот еще одна пользовательская функция, которая будет возвращать все цифры после определенной строки (префикс). В аргументах вы указываете строку для обработки и префикс для использования. Вы также можете указать, должен ли префикс быть чувствительным к регистру. По умолчанию он НЕ учитывает регистр, но это легко изменить.

UDF использует регулярные выражения для обработки текста. Сначала мы удаляем все, вплоть до префикса. Затем мы удаляем все не-цифры в остатке.

===================================

Option Explicit
Function DigitsAfter(sInput, sPrefix, Optional MatchCase As Boolean = False) As String
    Dim re As Object
    Dim S As String
    Dim sPatPrefix As String
    Const sPat As String = "D"

'Intialize Regex engine
Set re = CreateObject("vbscript.regexp")
With re
    .Global = True
    .ignorecase = Not MatchCase
End With

'Generate the digit prefix
re.Pattern = "(.)"
sPatPrefix = ".*" & re.Replace(sPrefix, "$1")

'Remove characters up to and including the prefix
re.Pattern = sPatPrefix
    If re.test(sInput) = False Then

'Exit if prefix not in string
        DigitsAfter = "Digit Prefix not in String"
        Exit Function

'now remove all the non-digits that are left
    Else
        S = re.Replace(sInput, "")
        re.Pattern = sPat
        DigitsAfter = re.Replace(S, "")
    End If
End Function

=====================================

Вот короткая процедура, показывающая, как ее можно использовать в большем макросе:

======================================

Option Explicit
Sub TestDigitFunction()
    Const S As String = "abc12x97J*24AAA123"

    MsgBox S & vbLf & DigitsAfter(S, "J*")

End Sub

======================================

Главная » Функции VBA »

28 Апрель 2011              129171 просмотров

• ABS() — эта функция возвращает абсолютное значение переданного ей числа (то же число, но без знака). Например, ABS(3) и ABS(-3) вернут одно и то же значение 3.
• Int(), Fix() и Round()позволяют по разному округлять числа:
  • Int() возвращает ближайшее меньшее целое;
  • Fix() отбрасывает дробную часть;
  • Round() округляет до указанного количества знаков после запятой.

  Однако Round может вернуть не совсем ожидаемый результат, т.к. функция применяет финансовое округление. По правилам данного округления если за последней к округлению цифрой стоит 5, то округляемую цифру увеличивают в том случае, если она нечетная и уменьшают, если четная.
  Математическое же округление всегда округляет цифру в большую сторону, если за ней идет цифра 5 и выше, и отбрасывает остаток если 4 и меньше.
  Т.е. если мы выполним такую строку кода

  то результатом будет 2,5, хотя предполагалось получить 2,51. Поэтому порой для округления лучше использовать Format:

      MsgBox Format(2.505, "#,##0.00")

  но в этом случае мы получим не число в чистом виде, а текст. И если нужно именно число, то придется производить дополнительные преобразования:

      MsgBox CDbl(Format(2.505, "#,##0.00"))

  Так же, для математического округления, можно использовать и такой вариант:

      MsgBox Application.Round(2.505, 2)

  Но здесь стоит учитывать, что это не чистый VB и этот метод сработает только в Excel, т.к. по сути мы обращаемся к встроенной в Excel функции округления ОКРУГЛ(ROUND), которая применяет именно математическое округление.

• Rnd и команда Randomize используются для получения случайных значений (очень удобно для генерации имен файлов и в других ситуациях). Перед вызовом функции Rnd() необходимо выполнить команду Randomize для инициализации генератора случайных чисел.

      Dim lRundNum As Long, lMinNum As Long, lMaxNum As Long
      lMinNum = 1: lMaxNum = 100
      Randomize
      lRundNum = Int(lMinNum + (Rnd() * lMaxNum))
      MsgBox lRundNum

• Sgn() — позволяет вернуть информацию о знаке числа. Возвращает 1, если число положительное, -1, если отрицательное и 0, если проверяемое число равно 0.
• Mod() — Делит два числа и возвращает только остаток. Например, выражение 8 Mod 3 вернет число 2, т.к. без остатка(в виде дроби у результата деления) 8 делится на 3 только до 2-х(8 / 3 = 2,66666666666667).
  При этом функция Mod учитывает и знак числа — если первое число или оба числа отрицательные, то результатом будет отрицательное число. Если же отрицательное только второе число — то результат будет положительным числом.
  При попытке получить остаток при делении чисел с плавающей запятой результат может быть не тем, который ожидается, потому что перед выполнением деления оба числа округляются по математическим законам(5 и выше до большего, 4 и ниже — до меньшего). Например, выражение 8 Mod 3.5 вернет 0, а выражение 8 Mod 3.4 — 2.