Загрузка комбобокса с пустой строкой в списке

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Загрузка комбобокса с пустой строкой в списке - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Загрузка комбобокса с пустой строкой в списке (Макросы/Sub)

Загрузка комбобокса с пустой строкой в списке

Сергей13

Дата: Четверг, 14.03.2019, 01:18 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте.
Скажите пожалуйста, каким способом при загрузке комбобокса данными, в данном случае это выглядит так
[vba]

Код

With .CmbDD1
.List = [transpose(text(row(r1:r31),"dd"))] 'Заполнение данными дата CmbDD1
.ListIndex = Day(Date) - 1 'Вывод текущей даты в поле просмотра
End With

[/vba]
всегда иметь в списке верхнею пустую строку, то есть при необходимости выбрать пустое поле?

Сообщение отредактировал Сергей13 - Четверг, 14.03.2019, 01:18

Ответить

krosav4ig

Дата: Четверг, 14.03.2019, 02:00 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Здравствуйте.[vba]

Код

With .CmbDD1
.List = [transpose(text(row(r1:r31),"dd"))] 'Заполнение данными дата CmbDD1
.ListIndex = Day(Date) - 1 'Вывод текущей даты в поле просмотра
.additem"",0
End With

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Сергей13

Дата: Четверг, 14.03.2019, 02:21 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

krosav4ig, Спасибо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Загрузка комбобокса с пустой строкой в списке (Макросы/Sub)

Страница 1 из 1
1