VBA Active Cell

"Активна клетка" означава специфичната клетка, която е активна в текущия активен работен лист. Например, ако в лист 2 е избрана клетка B4 означава, че активната клетка е B4 в лист 2. В VBA използваме референция на активна клетка, за да променим свойствата или стойностите на активната клетка. ИЛИ използваме тази функция в определени ситуации, когато трябва да направим някои промени в активната клетка при някои определени условия, които отговарят на изискванията.

Активната клетка е свойство в VBA. Използваме го в различни ситуации във VBA. Можем да присвояваме стойности на активна клетка с помощта на VBA Active Cell функция или да извлечем адреса на активната клетка. Какво върнаха тези функции? Функцията активна клетка връща свойството диапазон на активната клетка в активния работен лист. Както е обяснено в горното изявление в дефиницията, ако лист 2 е активен и клетка В4 е активна клетка, активната функция на клетката в VBA ще изведе свойствата на обхвата на клетката В4 в лист 2.

Синтаксис на активната клетка в Excel VBA

По-долу е синтаксисът на Active Cell в Excel VBA

Синтаксисът се използва за присвояване на определена стойност на активната клетка.

 Activecell.Value = „“

Синтаксисът ще избере стойността или свойството на активната клетка в активния работен лист.

 Application.Activecell

Ако трябва да променим шрифта на активната клетка, тогава синтаксисът ще бъде както следва

 Activecell.Font. (Шрифта, който искаме) = True

Можем също да покажем редовете и колоната на активната клетка, използвайки следния синтаксис

 Application.Activecell

Нека използваме горния синтаксис, обяснен в няколко примера и да научим как да играем с активните клетки.

Забележка: За да използвате VBA, уверете се, че е активиран разделът на програмист от раздела File от раздела с опции.

Примери за Excel VBA Active Cell

По-долу са различните примери за VBA Active Cell в Excel:

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

VBA Active Cell - Пример №1

В този пример искаме да променим стойността на текущата клетка с нещо клетка. Например в лист 1, изберете клетка A2 и вмъкнете стойност като ANAND и искаме да променим стойността за тази активна клетка като ARAN.

Следвайте стъпките по-долу, за да използвате VBA Active Cell в Excel.

Стъпка 1: Отидете в раздела за програмисти и кликнете върху Visual Basic, за да отворите VB редактор.

Стъпка 2: Щракнете върху раздела Вмъкване и щракнете върху модули, за да вмъкнете нов модул.

Стъпка 3: Декларирайте подфункция, за да започнете да пишете кода.

Код:

 Sub Sample () Край Sub

Стъпка 4: Активирайте работния лист 1 с помощта на функцията по-долу.

Код:

 Sub Sample () Работни листове () Sheet1 ". Активирайте End Sub

Стъпка 5: Можем да проверим, че в клетка A2 в лист 1 имаме стойността като ANAND и тя е активната клетка.

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

Код:

 Подпроболни работни листове () Sheet1 ". Активирайте ActiveCell.Value =" ARAN "End Sub

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

Можем да видим, че стойността в клетка A2 е променена.

VBA Active Cell - Пример №2

Сега смениха Стойността на активната клетка от ANAND в ARAN. Как да покажем текущата стойност на активната клетка? Това ще научим в този пример.

Следвайте стъпките по-долу, за да използвате VBA Active Cell в Excel.

Стъпка 1: Отидете в раздела на програмиста и щракнете върху Visual Basic, за да отворите VB редактор.

Стъпка 2: В същия модул декларирайте подфункция, за да започнете да пишете кода.

Код:

 Sub Sample1 () Край Sub

Стъпка 3: Активирайте работния лист 1 със следния код.

Код:

 Sub Sample1 () работни листове ("Sheet1"). Активирайте крайния Sub

Стъпка 4: Сега нека да изберем активната клетка със следния код.

Код:

 Sub Sample1 () работни листове ("Sheet1"). Активиране на Set selectedCell = Application.ActiveCell End Sub

Стъпка 5: Сега нека да покажем стойността на избраната клетка със следния код.

Код:

 Sub Sample1 () Работни листове ("Sheet1"). Активиране на Set selectedCell = Application.ActiveCell MsgBox selectedCell.Value End Sub

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

Активната клетка беше A2 и има стойността като ARAN, така че показаното свойство е ARAN.

VBA Active Cell - Пример №3

Нека променим шрифта на клетката A2, която беше избраната клетка. Нека направим шрифта като СМЪЛТ. Първоначално няма избран шрифт.

За това следвайте стъпките по-долу, за да използвате VBA Active Cell в Excel.

Стъпка 1: Отидете в раздела на програмиста и щракнете върху Visual Basic, за да отворите VB редактор.

Стъпка 2: В същия модул декларирайте подфункция, за да започнете да пишете кода.

Код:

 Sub Sample2 () Край Sub

Стъпка 3: Нека първо активираме работния лист, за да използваме активната клетка.

Код:

 Sub Sample2 () работни листове ("Sheet1"). Активирайте End Sub

Стъпка 4: Нека променим шрифта на избраната клетка със следния код.

Код:

 Sub Sample2 () работни листове ("Sheet1"). Активирайте ActiveCell.Font.Bold = True End Sub

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

Шрифтът на активната клетка се променя на СМЪЛТ.

VBA Active Cell - Пример №4

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

За това следвайте стъпките по-долу, за да използвате VBA Active Cell в Excel.

Стъпка 1: Отидете в раздела на програмиста и щракнете върху Visual Basic, за да отворите редактора на VB.

Стъпка 2: В същия модул декларирайте подфункция, за да започнете да пишете кода.

Код:

 Sub Sample3 () Край Sub

Стъпка 3: Нека първо активираме работния лист, за да използваме активните свойства на клетката.

Код:

 Sub Sample3 () работни листове ("Sheet1"). Активирайте End Sub

Стъпка 4: Сега избираме активната клетка със следния код.

Код:

 Sub Sample3 () работни листове ("Sheet1"). Активиране на Set selectedCell = Application.ActiveCell End Sub

Стъпка 5: Сега можем да покажем текущия ред на активната клетка със следния код.

Код:

 Sub Sample3 () работни листове ("Sheet1"). Активиране на Set selectedCell = Application.ActiveCell MsgBox selectedCell.Row End Sub

Стъпка 6: Можем също да получим текущата колона на активната клетка чрез следния код.

Код:

 Sub Sample3 () работни листове ("Sheet1"). Активиране на Set selectedCell = Application.ActiveCell MsgBox selectedCell.Row MsgBox selectedCell.Column End Sub

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

Горният резултат беше редът на активната клетка. Натиснете OK, за да видите колоната на активната клетка.

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

Има няколко неща, които трябва да запомним за Active cell в VBA:

  • Активната клетка е текущата активна или избрана клетка във всеки работен лист.
  • Можем да показваме или променяме свойствата на активния адрес на клетката в VBA.
  • За да използваме свойствата на активната клетка, първо трябва да активираме текущия работен лист.

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

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

  1. Използване на VBA IFError в Excel
  2. Как да използвате екраните за замразяване на Excel?
  3. Уроци по VBA Paste
  4. Персонализирайте и използвайте лентата на състоянието в Excel

Категория:

VBA