Активна клетка в Excel VBA
Активна клетка е избраната в момента клетка в работен лист, активната клетка в VBA може да се използва като препратка за преместване в друга клетка или промяна на свойствата на същата активна клетка или справка за клетките, предоставена от активната клетка, активната клетка в VBA може да бъде достъпен чрез метода application.property с ключовата дума активна клетка.
За да работите ефективно с VBA кодиране, е важно да разберете концепцията за свойствата на обект и клетка в VBA. В тези концепции има още една концепция, която трябва да разгледате, която е „VBA Active Cell“.
В Excel има милиони клетки и със сигурност се съмнявате коя е Активна клетка. Например погледнете изображението по-долу.
В горната една снимка имаме много клетки. За да намерите коя е активна клетка, е много просто, която и клетка да е избрана в момента. В VBA се нарича „Активна клетка“.
Ако вашата активна клетка не се вижда във вашия прозорец, погледнете полето за име, тя ще ви покаже адреса на активната клетка. В горното изображение адресът на активната клетка е B3.
Дори когато множеството клетки са избрани като диапазон от клетки, независимо в каква се намира първата клетка, селекцията се превръща в активна клетка. Например погледнете изображението по-долу.
# 1 - Препратки в Excel VBA
В нашите по-ранни статии видяхме как да препращаме към клетките във VBA. Чрез свойството Active Cell можем да се позовем на клетката.
Например, ако искаме да изберем клетката А1 и да вмъкнем стойността „Здравей“, можем да я запишем по два начина. По-долу е посочен начинът за избор на клетката и вмъкване на стойността с помощта на обекта VBA “RANGE”
Код:
Sub ActiveCell_Example1 () Диапазон ("A1"). Изберете диапазон ("A1"). Value = "Hello" End Sub
Това първо ще избере клетка А1 „ Обхват (“ А1 ”). Изберете ”
След това ще вмъкне стойността „Здравейте“ в клетка А1 Диапазон („А1“). Стойност = „Здравейте“
Сега ще премахна линията Range („A1“). Стойност = „Здравейте“ и използвайте свойството Active Cell, за да вмъкнете стойност.
Код:
Sub ActiveCell_Example1 () Диапазон ("A1"). Изберете ActiveCell.Value = "Здравейте" Край на Sub
По същия начин, първо, той ще избере клетка А1 „ Обхват (“ А1 ”). Изберете ”
Но тук съм използвал ActiveCell.Value = "Здравей" вместо Обхват ("A1"). Стойност = "Здравей"
Причината, поради която използвах свойството Active Cell, защото в момента, в който избера клетка A1, тя се превръща в активна клетка. Така че можем да използваме свойството Active Cell на Excel VBA, за да вмъкнем стойността.
# 2 - Активен клетъчен адрес, стойност, ред и номер на колона
За да го разберем още по-добре, нека покажем адреса на активната клетка в полето за съобщения. Сега погледнете изображението по-долу.
В горното изображение активната клетка е „B3“, а стойността е 55. Нека напишем код във VBA, за да получим адреса на активната клетка.
Код:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Адрес Край Sub
Изпълнете този код с помощта на клавиша F5 или ръчно. След това ще покаже адреса на активната клетка в поле за съобщение.
Изход:
По същия начин, долният код ще покаже стойността на активната клетка.
Код:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Value Край Sub
Изход:
Кодът по-долу ще покаже номера на реда на активната клетка.
Код:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Row End Sub
Изход:
Кодът по-долу ще покаже номера на колоната на активната клетка.
Код:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Column End Sub
Изход:
# 3 - Параметри на активна клетка в Excel VBA
Свойството активна клетка също има параметри. След въвеждане на свойството, ActiveCell отваря скоби, за да види параметрите.
Използвайки този параметър, можем да се позовем и на друга клетка.
Например ActiveCell (1,1) означава която и клетка да е активна. Ако искате да се придвижите надолу с един ред надолу, можете да използвате ActiveCell (2,1). Тук 2 не означава да се движите надолу с два реда, а само с един ред надолу. По същия начин, ако искате да преместите една колона надясно, това е кодът ActiveCell (2,2)
Например погледнете изображението по-долу.
В горното изображение активната клетка е А2. За да вмъкнете стойност в активната клетка, напишете този код.
Код:
ActiveCell.Value = “Hiiii” или ActiveCell (1,1) .Value = “Hiiii”
Стартирайте този код ръчно или чрез клавиша F5. Това ще вмъкне стойността „Hiiii“ в клетката.
Сега, ако искате да вмъкнете същата стойност в долната клетка, можете да използвате този код.
Код:
ActiveCell (2,1) .Value = “Hiiii”
Това ще вмъкне стойността в клетката под активната клетка.
Ако искате да вмъкнете стойността в едната колона точно в този момент, можете да използвате този код.
Код:
ActiveCell (1,2). Стойност = “Hiiii”
Това ще вмъкне “Hiiii” в следващата клетка на колоната на активната клетка.
По този начин можем да препращаме към клетките в VBA, като използваме свойството Active Cell.
Надявам се да ви е харесало. Благодаря за отделеното време с нас.
Можете да изтеглите шаблона на VBA Active Cell Excel тук: - VBA Active Cell Template
