Excel VBA Вмъкване на ред

Тъй като в тази дума има две неща, едното е VBA, а другото е Insert Row. В това ще обясня как да вмъкна ред в Excel с помощта на VBA (Visual Basic за приложения).

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

Insert Row - Използва се за вмъкване на ред в Excel между друг ред с помощта на автоматизация, т.е. с едно щракване.

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

Има много начини, чрез които можем да вмъкваме редовете, използвайки VBA кодиране. Функцията, използвана за вмъкване на ред във VBA, е:

Range (). Row (). EntireRow.Insert

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

Да предположим шанса, че трябва да изместим колоните надолу, за да вмъкнем 3 нови реда между 3 и 4, за да вмъкнем нов липсващ запис. Вместо да вмъкваме ред един по един, ще автоматизираме това, за да вмъкнем всички 3 реда с едно щракване.

Как да вмъкнете редове в Excel VBA?

По-долу са различните примери за вмъкване на редове в Excel с помощта на VBA код.

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

Пример №1 - Използване на целия ред

Следвайте стъпките по-долу, за да вмъкнете редове в excel, използвайки VBA код.

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

Стъпка 2: След като се отвори раздела Developer, поставете бутон от групата Controls. Кликнете върху Вмъкване и изберете първата опция от ActiveX Controls. Както можете да видите, че командният бутон .

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

Стъпка 4: За да въведете функцията Вмъкване Кликнете с десния бутон върху бутона Comand, т.е. Вмъкнете 3 реда и щракнете върху View Code.

Стъпка 5: Когато кликнете върху кода View, се появява следният код.

Код:

 Private Sub CommandButton1_Click () End Sub

Стъпка 6: Трябва да напишем кода си от INSERT ROW. Както споменахме по-рано, трябва да използваме Rows.EntireRow функция с RANGE във VBA. В този код трябва да вмъкнем 3 между 3 -то и 4 -то .

Код:

 Частен диапазон Sub CommandButton1_Click () ("A3"). Редове ("3: 5"). EntireRow.Insert End Sub

В горния ред на кода A3 е колона, в която трябва да вмъкнем ред, а редове (3: 5) е, че трябва да вмъкнем 3 нови реда.

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

Пример №2 - Използване на номера на редове

По същия начин ще напишем код, за да вмъкнем 2 реда с едно натискане на бутон.

В това, ние трябва да споменем ред от начален ред до номер на крайния ред, използвайки RANGE, последван от INSERT, който ще вмъкне редовете.

Код:

 Частен диапазон Sub CommandButton2_Click () ("3: 4")

Когато щракнете върху бутона „Вмъкване на 2 реда“, виждаме, че 2 реда са поставени между 3 -ти и 4 -ти ред.

По подобен начин можем да персонализираме функцията си, за да вмъкнем колкото се може повече редове.

Пример №3 - Използване на активна клетка

Активна клетка означава клетката, която понастоящем е избрана. Ще използваме активна клетка за вмъкване на редове. Да приемем, че сме на клетка B3 и искаме да вмъкнем клетката над нея, ще използваме активно свойство на клетката. Ще използваме следния код за активната клетка.

Код:

 Private Sub CommandButton3_Click () ActiveCell.EntireRow.Insert End Sub

Когато кликнем върху бутона „Активна собственост на клетката“, виждаме, че една клетка се вмъква над избраната клетка. В горното сме избрали B5 и по-долу можем да видим, че един ред е вмъкнат над него.

Пример №4 - Използване на активна клетка с офсет

Да предположим, че искаме да вмъкнем ред след 3 реда от активната клетка, за това ще използваме OFFSET функцията. Да предположим, че сме в клетка B4 и трябва да вмъкнем ред след 2 реда, ще използваме този код.

Код:

 Private Sub CommandButton4_Click () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub

Когато щракнем върху бутона „Активна клетка с използване на офсет“, един ред се вмъква в В6.

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

  • Използва се за вмъкване на редове в Excel чрез автоматизирането му.
  • VBA Insert Row се използва с RANGE обект в VBA.
  • Преди работа активирайте „Активиране на всички макроси“ в настройките на макроса.

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

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

  1. Примери за VBA GetObject функция
  2. Excel Вмъкване на няколко реда (шаблон на Excel)
  3. Как да използвате VBA StrConv функция?
  4. Ръководство за Excel Insert Row пряк път

Категория:

VBA