В тази статия ще покажем как да добавим контрола RefEdit в потребителска форма и да използваме диапазона от клетки.
В този пример създадохме потребителска форма за маркиране, която можем да използваме за подчертаване на диапазона от клетки с жълт цвят.
Взехме примерни данни, които се състоят от име и час за влизане на член на екипа.
Добавяне на RefEdit в потребителска форма
Добавете потребителска форма, щракнете върху RefEdit control в кутията с инструменти и изберете и пуснете контрола върху userform.
Логично обяснение
За да маркирате клетката, щракнете върху бутона за маркиране. Той ще отвори потребителската форма. Изберете диапазона с помощта на RefEdit. Кликнете върху тирето за избор на клетки.
За да изберете съседни клетки, натиснете клавиша Shift, докато се премествате в друга клетка. За да изберете несъседни клетки, натиснете клавиша Control, докато избирате различни клетки. Избраните клетки ще бъдат заобиколени от пунктирани линии и адресът на клетката ще се появи в полето.
Избраните клетки ще бъдат маркирани в жълт цвят при натискане на бутона Ok. Събитието при натискане на бутона OK съдържа VBA кода за маркиране на избраните клетки.
Моля, следвайте кода по -долу
Опция Explicit Sub running () UserForm1.Show End Sub 'Добавете кода по -долу в бутона "Ok" на потребителската форма Опция Explicit Private Sub CommandButton1_Click () Dim SelectRange As Range Dim Address1 As String On Error GoTo Last' Вземете адреса от контролния адрес RefEdit1 = RefEdit1.Value 'Задайте обекта SelectRange Range на диапазона, определен в контролния набор RefEdit SelectRange = Range (Address1)' Маркирайте избрания диапазон в жълт цвят SelectRange.Interior.Color = RGB (255, 255, 0) 'Разтоварете потребителска форма. Unload Me Last: End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта