Excel VBA функция на подстригване

Excel VBA Trim Function се използва за премахване на допълнителните интервали от всяка клетка или текст и ни дава изхода, който има стандарт по отношение на необходимите интервали. Функцията VBA Trim работи точно като функцията Excel Trim, а функцията Trim премахва допълнителните пространства по 3 начина;

  1. Пространства от началото на текста.
  2. Пространства от края на текста.
  3. Разстояния от средата на текста, ако се вижда повече от 1 допълнително пространство.

Това най-вече се случва, когато изтегляме данни от някакъв сървър, склад на данни или докато неправилно вмъкваме допълнителните пространства ръчно. Въпреки че можем лесно да виждаме интервалите в средата на текста, но интервалите в началото и в края на текста не могат да се видят лесно, докато и освен ако не преминем към режим на редактиране на тази конкретна клетка. Това може да направи VBA Marco.

Как да използвате Excel VBA функция на подстригване?

Ще обсъдим как да използвате VBA Trim Function, като използваме някои примери.

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

VBA функция на подстригване - пример №1

Тук имаме 3 клетки в екрана по-долу.

И всяка клетка има някои пространства, свързани с тях. Клетка A1 има интервали в края.

В клетка A2 има интервали в началото на текста.

А клетката A3 има място между текста, който е подчертан на екрана по-долу.

За подрязване на тези клетки ще използваме Excel VBA. За това натиснете клавишите Alt + F11 заедно или под раздела Developer кликнете върху Visual Basic, както е показано по-долу.

Това ще ни отведе до прозореца за кодиране на Visual Basic. Сега отидете в менюто Вмъкване от прозореца на VBA и изберете Модул, както е показано по-долу.

Това ще създаде нов модул, в който ще напишем код за подстригване. По-долу са стъпките за създаване и писане на код за подстригване:

  • Първо изберете променлива и определете диапазон. Тук сме избрали променливата „A“. Тази променлива може да бъде всичко.
  • Тъй като нашият набор от данни вече има някакъв текст или обект, тогава трябва да зададем диапазона за него. И за това ще използваме „ Избор “. Той автоматично ще избере данните в настоящия лист.

Код:

 Sub Trim_Data () Dim A As Range Set A = Selection End Sub

  • За избиране на всяка запълнена клетка на листа „За всеки“ е функцията, а функцията Value се използва за избор на стойността с избор на Trim (Cell) .

Код:

 Sub Trim_Data () Dim A като диапазон, зададен A = избор за всяка клетка в клетка.Value = WorksheetFunction.Trim (клетка) Next End Sub

С това завършваме работата по кодирането за създаване на макрос чрез VBA Trim. Сега нека приложим създадения код в някакъв раздел. За това отидете в менюто Вмъкване и под Илюстрации изберете Форми .

От тази опция Shapes създайте всякаква форма, като използвате формати и стилове на фигури.

Тук създадохме правоъгълна кутия и я нарекохме TRIM, както е показано по-долу.

Сега кликнете върху режима на проектиране в менюто на програмист и щракнете с десния бутон върху създадената кутия или форма. От десния бутон на мишката изберете списъка с менюта Присвояване на макрос, за да свържете създадения ни код, както е показано по-долу.

Ще получим прозореца Assign Marco, от там изберете вече създаден макро код, тук имаме Trim_Data и след това щракнете върху OK .

Сега изберете данните и кликнете върху бутона TRIM . Ще получим избраното подрязване и интервалите, които не се изискват, вече се премахват, както е показано по-долу.

VBA функция на подстригване - пример №2

VBA кодирането, показано по-горе, може да бъде написано по още един начин. В горния пример ние подрязахме само избраните данни. В това ще вмъкнем функцията в полето за съобщения, както и тя ще се покаже, след като данните са подрязани.

За това ще използваме същите данни, които сме използвали в пример 1. Следвайте същите стъпки, отворете раздела Developer r и кликнете върху Visual Basic .

След като направим това, ще получим прозореца Visual Basic. Сега отворете нов модул и започнете да кодирате на тази страница.

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

Код:

 Sub Trim_Data2 () Dim A като диапазон, зададен A = избор за всяка клетка в клетка.Value = WorksheetFunction.Trim (клетка) Dim B като низ B = отрязване („подрязване на готово“) MsgBox B Next End Sub

След като приключим с писането на кода, затворете прозорците на Visual Basic.

Сега отново отидете на раздела Developer и кликнете върху менюто Insert, както е показано по-долу. Ще получим падащо меню с различни форми на бутони, както е показано по-долу.

Сега изберете някоя от формите на бутоните и я нарисувайте навсякъде в работната си книга. От списъка на създадените макроси изберете необходимата опция. Тук сме избрали Trim_Data2, който създадохме за този пример и след това щракнете върху OK.

След това ще получим бутона, създаден на екрана.

Можем да наречем бутона според функцията, която ще изпълняваме. Нека го наречем TRIM според функция. Сега кликнете с десния бутон върху създадения TRIM бутон и изберете Присвояване на Марко. След като направим това, ще получим прозореца Assign Marco, както е показано по-долу. Сега изберете необходимия макрос и щракнете върху OK.

По този начин нашето кодиране на подстригване ще бъде присвоено на TRIM бутон. Сега за тестване първо изберете данните и след това щракнете върху този TRIM бутон.

Както можем да видим по-горе, тук нашите данни са орязани и можем да видим и съобщението на „ Подстригване завършено “.

Плюсове на Excel VBA функция на подстригване

  • Можем да отрежем огромни набори от данни в един кадър, без да проверяваме броя на допълнителните пространства, които клетките имат.
  • Кодирането на функцията за подстригване също е доста малко.
  • Има много по-малко или никакви шансове, че всяко допълнително пространство ще бъде спестено.

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

  • Винаги запазвайте файла като работен лист с активиран макрос. Правейки това, можем да използваме зададен макрос многократно.
  • Компилирайте кода, преди да го присвоите на който и да е бутон.
  • Показани са два различни начина за създаване на бутон и двата могат да се използват според нуждите или желанията на отделните хора.
  • Помислете да напишете VBA код, както е показано в пример-2, който ще даде и съобщението.

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

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

  1. VBA функция в Excel
  2. VBA VLOOKUP функция
  3. Ръководство за раздела за програмисти на Excel
  4. Как да създадете команден бутон за печат в Excel?

Категория:

VBA