Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Загрузка комбобокса с пустой строкой в списке (Макросы/Sub)
Загрузка комбобокса с пустой строкой в списке
Сергей13 Дата: Четверг, 14.03.2019, 01:18 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 216
Репутация: 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
 
Ответить
СообщениеЗдравствуйте.
Скажите пожалуйста, каким способом при загрузке комбобокса данными, в данном случае это выглядит так
[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
Группа: Друзья
Ранг: Старожил
Сообщений: 2049
Репутация: 852 ±
Замечаний: 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
 
Ответить
СообщениеЗдравствуйте.[vba]
Код
With .CmbDD1
.List = [transpose(text(row(r1:r31),"dd"))] 'Заполнение данными дата CmbDD1
.ListIndex = Day(Date) - 1 'Вывод текущей даты в поле просмотра
.additem"",0
End With
[/vba]

Автор - krosav4ig
Дата добавления - 14.03.2019 в 02:00
Сергей13 Дата: Четверг, 14.03.2019, 02:21 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 216
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
krosav4ig, Спасибо!
 
Ответить
Сообщениеkrosav4ig, Спасибо!

Автор - Сергей13
Дата добавления - 14.03.2019 в 02:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Загрузка комбобокса с пустой строкой в списке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!