Как да използваме VBA, за да зададем променлива от обхвата за избор в Excel (5 метода)

Hugh West

16-10-2023 Макроси & Excel VBA
  • Споделя Това
Hugh West

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

Изтегляне на работна тетрадка за практика

VBA за задаване на обхват в Selection.xlsm

5 начина за използване на VBA за задаване на променлива от обхвата за избор в Excel

1. Задаване на променлива за обхват за избор на обхват чрез Excel VBA

Можем да изберем диапазон чрез диапазон на настройка в VBA . Да предположим, че искаме да изберем клетки B5:C8 . Нека преминем към процедурата по-долу.

Стъпки:

  • За да напишете код в VBA, първо отворете Раздел Разработчик и след това изберете Visual Basic .

След това ще се отвори нов прозорец на Microsoft Visual Basic за приложения .

  • Сега отворете Вмъкване на >> изберете Модул

.

  • Въведете следния код в Модул VBA . 
 Sub RangeSelect() Dim Rng1 As Range Worksheets("selectRange").Activate Set Rng1 = Range("B5:C8") Rng1.Select End Sub

Тук ние задаване на на диапазон B5:C8 като Rng1 . Избираме го по Метод на обхвата на VBA Имайте предвид, че трябва да активиране на нашия Excel лист така че активирахме selectRange лист.

  • Сега се върнете в лист и стартирайте Macro .

  • След това ще видите диапазон B5:C8 избрани автоматично.

По този начин можете да зададете желаната променлива за обхвата за избор с помощта на VBA .

Прочетете още: Excel VBA: Получаване на обхват от клетки със стойности (7 примера)

2. Използване на VBA за форматиране на клетки чрез задаване на променлива за обхвата

Да предположим, че нашият набор от данни изглежда като следното изображение.

Искаме да направим заглавие смели и AutoFit на колони . Можем да направим това чрез VBA . Нека видим как можем да направим това.

Стъпки:

  • Първо, отворете Visual Basic и въведете следния код в Модул VBA (за да видите как да отворите Visual Basic и Модул VBA , моля, посетете Раздел 1 ). 
 Sub SetRange() Dim xyz As Range Set xyz = Range("B4:C4") xyz.Font.Bold = True xyz.Select Worksheets("autofit").Columns("B:C").AutoFit End Sub

Тук задаваме диапазон B4:C4 като xyz . След това използвахме Bold метод, за да направите шрифтове в клетка B4 и C4 удебелен шрифт . Ние също така монтирахме колони B и C като използвате AutoFit метод.

  • Сега се върнете към лист и стартирайте Macro която е наречена SetRange .

След това ще видите ясно имената в колони и заглавия станете удебелен шрифт и е избран.

Като следвате този път, можете формат клетки и AutoFit настройка на колоните променливи от обхвата в VBA .

Подобни четива

  • Как да използваме VBA за всеки ред в диапазон в Excel
  • Как да използвате VBA за избор на обхват от активна клетка в Excel (3 метода)
  • Макрос на Excel: Сортиране на няколко колони с динамичен обхват (4 метода)

3. Копиране на обхват чрез задаване на избор на променлива във VBA

Да предположим, че искаме да копираме B6:C9 чрез задаване на променлива за обхвата към изберете . Нека обсъдим процедурата по-долу.

Стъпки:

  • Първо, отворете Visual Basic и въведете следния код в Модул VBA (за да видите как да отворите Visual Basic и Модул VBA , моля, посетете Раздел 1 ). 
 Sub CopyRange() Dim cpy As Range Set cpy = Range("B6:C9") cpy.Copy End Sub

Тук просто копирахме диапазон B6:C9 като използвате Копие метод на VBA . Определяме диапазон B6:C9 като cpy .

  • Сега се върнете към лист и стартирайте Макроси . CopyRange тъй като това е името на текущата ви Macro .

Ще видите диапазон B6:C9 се копира.

Можете да поставите това обхват навсякъде в Excel лист като натиснете CTRL + V . Вмъкнах обхват чрез B12 към C15 .

Прилагайки този метод, можете да копие a обхват чрез задаване на променлива за обхвата за избор в Excel VBA .

Прочетете още: Excel VBA: Копиране на динамичен обхват в друга работна книга

4. Форматиране на клетките с цвят чрез задаване на променлива на обхвата за избор

Да предположим, че искаме да оцветим 8. и 10. редове от набора от данни с зелен . Нека следваме описанието по-долу.

Стъпки:

  • Първо, отворете Visual Basic и въведете следния код в Модул VBA (за да видите как да отворите Visual Basic и Модул VBA , моля, посетете Раздел 1 ). 
 Sub ColorRange() Dim color As Worksheet Dim x1 As Range Dim x2 As Range Set color = ActiveSheet Set x1 = Range("B8:C8") Set x2 = Range("B10:C10") x1.Cells.Interior.ColorIndex = 4 x2.Cells.Interior.ColorIndex = 4 End Sub

Тук определяме нашите диапазон B8:C8 и B10:C10 като x1 и x2 съответно. цвят Excel Лист като ActiveSheet и оцветихме желаните от нас диапазони от свойство ColorIndex .

  • Сега се върнете към лист и стартирайте Макроси . ColorRange тъй като това е името на текущия Macro .

След това ще видите желания диапазони пълни с зелен цвят.

Така можете да форматирате клетките с цвят чрез задаване на променлива за обхвата за подбор.

Прочетете още: Как да използвате диапазон с променливи ред и колона с Excel VBA

Подобни четива

  • VBA за преминаване през редове и колони в диапазон в Excel (5 примера)
  • Excel VBA за циклично преминаване през диапазона до празната клетка (4 примера)
  • Как да конвертирате диапазон в масив в Excel VBA (3 начина)

5. Изтриване на редове чрез задаване на променлива за обхват във VBA

Да предположим, че искаме да изтрием 8. и 10. редове от набора от данни с зелен . Нека следваме описанието по-долу.

Стъпки:

  • Първо, отворете Visual Basic и въведете следния код в Модул VBA (за да видите как да отворите Visual Basic и Модул VBA , моля, посетете Раздел 1 ). 
 Sub ColorRange() Dim color As Worksheet Dim x1 As Range Dim x2 As Range Set color = ActiveSheet Set x1 = Range("B8:C8") Set x2 = Range("B10:C10") x1.Cells.Interior.ColorIndex = 4 x2.Cells.Interior.ColorIndex = 4 End Sub

Сайтът диапазони които искаме да изтрием, са B8:C8 и B10:C10 . Нарекохме ги x1 и x2 съответно. След това просто ги изтрихме чрез Изтриване на метод.

  • Сега се върнете към лист и стартирайте Макроси . DeleteRange тъй като това е името на текущата ви Macro .

След това ще видите диапазони B8:C8 и B10:C10 са изчезнали.

Следвайки този подход, можете да изтриете редове чрез задаване на променливи от обхвата за подбор.

Практически раздел

На следващото изображение ще намерите набора от данни, с който работихме в тази статия, за да можете да се упражнявате сами.

Заключение

Накратко, статията се фокусира изцяло върху някои приложения за определяне на променлива за обхвата за избор от Excel VBA . Описахме някои съвсем основни методи. Ако имате други идеи или мнения, любезно ги оставете в полето за коментари. Това ще ми помогне да обогатя следващите си статии

Предишна публикация Как да използвате SUMIFS, когато клетките не са равни на няколко текста
Следваща публикация Как да конвертирате число в дата в Excel (6 лесни начина)

Хю Уест е опитен обучител и анализатор на Excel с над 10 години опит в индустрията. Има бакалавърска степен по счетоводство и финанси и магистърска степен по бизнес администрация. Хю има страст към преподаването и е разработил уникален подход на преподаване, който е лесен за следване и разбиране. Неговите експертни познания по Excel са помогнали на хиляди студенти и професионалисти по целия свят да подобрят уменията си и да постигнат отлични резултати в кариерата си. Чрез своя блог Хю споделя знанията си със света, като предлага безплатни уроци за Excel и онлайн обучение, за да помогне на хората и фирмите да достигнат пълния си потенциал.