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, който можете да изтегляте. Можете да разгледате и другите ни предложени статии -
- Работа с VBA Active Cell
- Изтриване на ред в VBA
- Как да използвате Excel VBA Transpose?
- Как да поправите грешка 1004 при използване на VBA