VBA Long - Как да използвате Excel VBA тип данни с примери

Съдържание:

Anonim

VBA Long

В старите времена, когато паметта беше наистина скъпа, трябваше да управляваме, използвайки Integers за числа. Но след еволюцията на технологиите, в картината се появи нуждата от по-голяма числова променлива. С помощта на променлива Integer можехме да съхраняваме числата от -32768 до +32768. Но сега имаме променлива LONG, която се използва за съхраняване и използване на числата от всеки диапазон и всяка дължина. За дълъг и продължителен код се препоръчва да използвате променливата Long.

Как да използвате Excel VBA Long?

Ще научим как да използваме VBA Long с няколко примера в excel.

Можете да изтеглите този шаблон на VBA Long Excel тук - VBA Long Excel шаблон

VBA Long - Пример №1

В този пример ще видим основна употреба на това как VBA Long може да работи за номера. За целта ни трябва модул.

Стъпка 1: Отидете до прозореца на VBA и от списъка с менюто Вмъкване изберете Модул, както е показано по-долу.

Стъпка 2: След като направим това, ще получим празна страница на Модул. Сега там напишете подкатегорията на всяко име, но по-добре би трябвало в името на изпълнена функция, като VBA Long.

Код:

 Sub VBALong1 () Край Sub 

Стъпка 3: Сега дефинирайте размер DIM като A или всяка друга азбука и буква може да се използва.

Код:

 Sub VBALong1 () Dim A End Sub 

Стъпка 4: И присвойте променливата Long на размер А.

Код:

 Sub VBALong1 () Dim A As Long End Sub 

Стъпка 5: Сега ще присвоим число, нека помислим за двуцифрено число, например 10, както е показано по-долу.

Код:

 Sub VBALong1 () Dim A As Long A = 10 End Sub 

Стъпка 6: Сега ще използваме поле за съобщения, за да отпечатаме стойността, съхранена в променлива Long с размер А.

Код:

 Sub VBALong1 () Dim A As Long A = 10 MsgBox A End Sub 

Стъпка 7: Сега компилирайте написания код и го стартирайте, като кликнете върху бутона за възпроизвеждане.

Както можем да видим стойността, запаметена в измерение A, сега се отпечатва в поле за съобщения. Това показва, че променливата дълга кабина се използва и за нискоцифрени номера.

VBA Long - Пример №2

В този пример ще номерираме с няколко цифри в него. Използваме ок. 9 до 10 цифрена цифра, за да се разбере дали променливата Long работи по същия начин, както при двуцифрено число. За това:

Стъпка 1: Отворете нов модул отново и добавете подкатегория в името на последователно VBA Long name, както е показано по-долу.

Код:

 Sub VBALong2 () Край Sub 

Стъпка 2: Сега дефинирайте размер DIM като A или може да се използва всяка друга азбука или дума.

Код:

 Sub VBALong2 () Dim A End Sub 

Стъпка 3: След това ще присвоим променлива функция Long на измерение A.

Код:

 Sub VBALong2 () Dim A As Long End Sub 

Стъпка 4: Сега присвойте числова стойност на измерение A с произволна дължина. За тестване помислете за 9 до 10 цифрен номер или всяка комбинация. Ние сме разгледали 123123123 за него, както е показано по-долу.

Код:

 Sub VBALong2 () Dim A As Long A = 123123123 End Sub 

Стъпка 5: Сега ще използваме полето за съобщения, за да отпечатаме съхранени стойности в А, както е показано по-долу.

Код:

 Sub VBALong2 () Dim A As Long A = 123123123 MsgBox A End Sub 

Стъпка 6: Сега ще компилираме и стартираме кода. Ще видим, дори една дълга цифрова стойност се отпечатва в поле за съобщения.

VBA Long - Пример №3

В този пример ще видим дали променлива функция Long може да се използва за отрицателни числа или не. За това ще е необходим нов модул. Отворете нов модул

Стъпка 1: Поставете подкатегория във всяко име или по-добре в името на VBA Long, както е показано по-долу.

Код:

 Sub VBALong3 () Край Sub 

Стъпка 2: Помислете за същия размер DIM A и му присвойте функцията Long, както е показано по-долу.

Код:

 Sub VBALong3 () Dim A As Long End Sub 

Стъпка 3: Сега ще използваме същия номер, както направихме в предишния пример, който е 123123123 и ще му дадем отрицателен знак. И присвойте този номер на Дълго измерение А, както е показано по-долу.

Код:

 Sub VBALong3 () Dim A As Long A = -123123123 Край Sub 

Стъпка 4: И най-сетне използвайте поле за съобщения, за да отпечатате стойността, съхранена в измерение А.

Код:

 Sub VBALong3 () Dim A As Long A = -123123123 MsgBox A End Sub 

Стъпка 5: Компилирайте кода и го стартирайте след това. Ще видим, дори и номерът дългия и отрицателен, но все пак VBA Long го е отпечатал без никаква грешка.

VBA Long - Пример №4

В този пример ще видим дали можем да използваме десетични числа с VBA Long или не. За това се нуждаем от модул.

Стъпка 1: Отворете нов модул, създайте подкатегорията за VBA Long, както е показано по-долу. Можете да запазите последователността на кода, както направихме по-долу.

Код:

 Sub VBALong4 () Край Sub 

Стъпка 2: Сега ще използваме същия размер DIM като A като този в горните примери.

Код:

 Sub VBALong4 () Dim A End Sub 

Стъпка 3: Сега задайте тази величина на Long, както е показано по-долу.

Код:

 Sub VBALong4 () Dim A As Long End Sub 

Стъпка 4: Сега използваме същите числа, както сме използвали в горния пример, но тук ще използваме десетична цифра. Така 123.123123 ще бъде числото тук, както е показано по-долу.

Код:

 Sub VBALong4 () Dim A As Long A = 123.123123 Край Sub 

Стъпка 5: Най-накрая можем да използваме полето за съобщения, за да отпечатаме стойността, съхранена в А, както е показано по-долу.

Код:

 Sub VBALong4 () Dim A As Long A = 123.123123 MsgBox A End Sub 

Стъпка 6: Сега компилирайте кода и стартирайте. Ще видим, че VBA Long е върнал само цели числа, които са преди десетични, както е показано по-долу.

Това показва, че VBA Long не може да се използва за десетични числа. Той ще даде всяко цяло или цяло число в замяна.

VBA Long - Пример №5

В този пример ще видим дали можем да използваме VBA Long за произведения, азбуки или тест или не. Отворете модул

Стъпка 1: Напишете подкатегория от функции за VBA Long или в друго предпочитано име, както е показано по-долу.

Код:

 Sub VBALong5 () Край Sub 

Стъпка 2: В следващия ред на кода използвайте размер DIM A толкова дълго, колкото е показано по-долу.

Код:

 Sub VBALong5 () Dim A As Long End Sub 

Стъпка 3: Сега присвойте всеки текст или дума на дефинирано измерение A в обърнати запетаи. Тук сме използвали VBA Long като текст.

Код:

 Sub VBALong5 () Dim A As Long A = „VBA Long“ End Sub 

Стъпка 4: Сега използвайте полето за съобщения, за да отпечатате, за да съхранявате стойност в размер А, както е показано по-долу.

Код:

 Sub VBALong5 () Dim A As Long A = "VBA Long" MsgBox A End Sub 

Стъпка 5: След като приключите с кодирането, компилирайте кода или стартирайте директно. Ще видим поле за съобщение за грешка със съобщение за грешка „Грешка по време на изпълнение 13 - Несъответствие с тип“.

Това означава, че има несъответствие на използваната променлива и стойности, съхранявани в нея и това не се поддържа. Следователно, показва, че VBA Long не поддържа текст и азбуки.

Плюсове на VBA Long

  • Всяка цифрова стойност на дължината може да се използва във функция Long.
  • Long in VBA прави използването за номер безплатно от всякакви ограничения.

Неща, които трябва да запомните

  • Long не може да се използва за текстове и десетични числа.
  • За десетичен номер се предпочита използването на Double over Long и Integer.
  • Ако дължината на кода е кратка, няма нужда да компилирате данните стъпка по стъпка.
  • Не забравяйте да запазите файла като Macro Enable Excel формат, така че създаденият код да остане в безопасност.

Препоръчителни статии

Това е ръководство за VBA Long. Тук сме обсъдили как да използвате Excel VBA Long заедно с практически примери и шаблон за Excel, който можете да изтегляте. Можете да разгледате и другите ни предложени статии -

  1. Работа с VBA Active Cell
  2. Изтриване на ред в VBA
  3. Как да използвате Excel VBA Transpose?
  4. Как да поправите грешка 1004 при използване на VBA