Избиране на диапазон на Excel VBA

В някои случаи може да искате потребителят да избере диапазон на Excel VBA, докато се показва диалогов прозорец. Пример за този тип избор на диапазон на Excel VBA се появява в диалоговия прозорец Създаване на таблица, който се показва, когато изберете Начало → Вмъкване → Таблици → Таблица. Диалоговият прозорец Създаване на таблица има контрола за избор на диапазон, която съдържа предположението на Excel относно диапазона, който трябва да се преобразува, но можете да използвате тази контрола, за да промените диапазона, като изберете клетки в работния лист.

За да разрешите избор на диапазон на Excel VBA във вашия диалогов прозорец, добавете контрола RefEdit. Следният пример показва диалогов прозорец с адреса на диапазона на текущия регион, показан в контрола RefEdit. Текущият регион е блокът от непразни клетки, който съдържа активната клетка. Потребителят може да приеме или промени този диапазон. Когато потребителят щракне OK, процедурата прави диапазона удебелен.

Избиране на диапазон на Excel VBA

Този диалогов прозорец позволява на потребителя да избере диапазон.

Този пример за Excel VBA предполага следното:

  • Имате UserForm с име UserForm1.
  • Потребителският формуляр съдържа контрола CommandButton с име OKButton.
  • Потребителският формуляр съдържа контрола CommandButton с име CancelButton.
  • Потребителският формуляр съдържа контрола RefEdit с име RefEdit1.

Кодът се съхранява във VBA модул и се показва тук. Този код прави две неща: инициализира диалоговия прозорец, като присвоява адреса на текущия регион на контролата RefEdit и показва UserForm.

Поддебели клетки()
' Излезте, ако работният лист не е активен
  Ако TypeName(ActiveSheet) <> "Worksheet" След това излезте от Sub

' Изберете текущия регион
  ActiveCell.CurrentRegion.Select

' Инициализирайте контролата RefEdit
  UserForm1.RefEdit1.Text = Избор.Адрес

' Показване на диалоговия прозорец
  UserForm1.Show
Край под

Следната процедура се изпълнява при щракване върху бутона OK. Тази процедура извършва някои прости проверки на грешки, за да се увери, че диапазонът, посочен в контролата RefEdit, е валиден.

Частен под OKButton_Click()
  При грешка GoTo BadRange
  Диапазон(RefEdit1.Text).Font.Bold = Вярно
  Изтеглете UserForm1
  Изход Sub
BadRange:
  MsgBox "Посоченият диапазон не е валиден."
Край под

Ако възникне грешка в Excel VBA (най-вероятно невалидна спецификация на диапазон в контролата RefEdit), кодът прескача към етикета BadRange и се показва поле за съобщение. Диалоговият прозорец остава отворен, така че потребителят може да избере друг диапазон.

Ако получаването на избран от потребителя диапазон е единствената функция, изпълнявана от вашия UserForm, можете да опростите нещата, като използвате метода Application InputBox.


Как да блокирате Microsoft Word да отваря файлове в режим само за четене в Windows

Как да блокирате Microsoft Word да отваря файлове в режим само за четене в Windows

Как да блокирам Microsoft Word да отваря файлове в режим само за четене в Windows Microsoft Word отваря файлове в режим само за четене, което прави невъзможно редактирането им? Не се притеснявайте, методите са по-долу

Как да коригирате неправилно отпечатване на документи на Microsoft Word

Как да коригирате неправилно отпечатване на документи на Microsoft Word

Как да коригирате грешки при отпечатването на неправилни документи на Microsoft Word Грешките при отпечатването на документи на Word с променени шрифтове, разхвърляни абзаци, липсващ текст или изгубено съдържание са доста чести. Въпреки това недейте

Изтрийте рисунки с писалка и маркер на вашите слайдове на PowerPoint

Изтрийте рисунки с писалка и маркер на вашите слайдове на PowerPoint

Ако сте използвали писалката или маркера, за да рисувате върху слайдовете на PowerPoint по време на презентация, можете да запазите чертежите за следващата презентация или да ги изтриете, така че следващия път, когато го покажете, да започнете с чисти слайдове на PowerPoint. Следвайте тези инструкции, за да изтриете чертежи с писалка и маркери: Изтриване на линии една в […]

Съдържание на библиотеката за стилове в SharePoint 2010

Съдържание на библиотеката за стилове в SharePoint 2010

Библиотеката със стилове съдържа CSS файлове, файлове с разширяем език на стиловия език (XSL) и изображения, използвани от предварително дефинирани главни страници, оформления на страници и контроли в SharePoint 2010. За да намерите CSS файлове в библиотеката със стилове на сайт за публикуване: Изберете Действия на сайта→Преглед Цялото съдържание на сайта. Появява се съдържанието на сайта. Библиотеката Style се намира в […]

Форматирайте числата в хиляди и милиони в отчети на Excel

Форматирайте числата в хиляди и милиони в отчети на Excel

Не затрупвайте аудиторията си с огромни числа. В Microsoft Excel можете да подобрите четливостта на вашите табла за управление и отчети, като форматирате числата си така, че да се показват в хиляди или милиони.

Как да споделяте и следвате сайтове на SharePoint

Как да споделяте и следвате сайтове на SharePoint

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

Как да конвертирате дати в юлиански формати в Excel

Как да конвертирате дати в юлиански формати в Excel

Юлианските дати често се използват в производствени среди като времеви печат и бърза справка за партиден номер. Този тип кодиране на дата позволява на търговците на дребно, потребителите и обслужващите агенти да идентифицират кога е произведен продуктът и по този начин възрастта на продукта. Юлианските дати се използват и в програмирането, военните и астрономията. Различно […]

Как да създадете уеб приложение на Access

Как да създадете уеб приложение на Access

Можете да създадете уеб приложение в Access 2016. И така, какво всъщност е уеб приложение? Е, уеб означава, че е онлайн, а приложението е просто съкращение от „приложение“. Персонализирано уеб приложение е онлайн приложение за база данни, достъпно от облака с помощта на браузър. Вие създавате и поддържате уеб приложението в настолната версия […]

Лента за бързо стартиране в SharePoint 2010

Лента за бързо стартиране в SharePoint 2010

Повечето страници в SharePoint 2010 показват списък с връзки за навигация в лентата за бързо стартиране в лявата част на страницата. Лентата за бързо стартиране показва връзки към представено съдържание на сайта, като списъци, библиотеки, сайтове и страници за публикуване. Лентата за бързо стартиране включва две много важни връзки: Връзка към цялото съдържание на сайта: […]

Какво означават съобщенията за грешка на Solver в Excel?

Какво означават съобщенията за грешка на Solver в Excel?

За прости проблеми Solver в Excel обикновено бързо намира оптималните стойности на променливата Solver за целевата функция. Но в някои случаи Solver има проблеми с намирането на стойностите на променливата Solver, които оптимизират целевата функция. В тези случаи Solver обикновено показва съобщение или съобщение за грешка, което описва или обсъжда проблема, който […]