Combobox, формат даты - Страница 2 - Мир MS Excel

Регистрация

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

= Мир MS Excel/Combobox, формат даты - Страница 2 - Мир MS Excel

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

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

Combobox, формат даты (свойства элементов формы)

Combobox, формат даты

Дата: Понедельник, 28.01.2013, 17:29 | Сообщение № 21

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Саш, комбо на форме при заполнении через RowSource начинает считать себя умнее юзера, и делает из текста 000.01 значение 0.01. А вернуть его взад в ячейку текстом 000.01 мне не удалось. (может старался мало?)
Точнее - стоит ли овчинка...

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Понедельник, 28.01.2013, 17:31

Ответить

Дата: Понедельник, 28.01.2013, 21:46 | Сообщение № 22

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

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

Сообщений: 436

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

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

_Boroda_
Я почти разобрался, большое спасибо!

Ответить

Дата: Понедельник, 28.01.2013, 21:51 | Сообщение № 23

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

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

Сообщений: 436

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

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

RAN,
выходит если
[vba]

Код

Range("h1") = Me.ComboBox1

[/vba]
,то можно ControlSource не задавать?

Сообщение отредактировал Мур - Понедельник, 28.01.2013, 21:56

Ответить

Дата: Понедельник, 28.01.2013, 22:00 | Сообщение № 24

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Не задумывался, но думаю - нет. wink

wink

Я этим ни разу , ни в одном глазу, не пользовался. biggrin

biggrin

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Понедельник, 28.01.2013, 22:02

Ответить

Дата: Вторник, 29.01.2013, 10:54 | Сообщение № 25

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

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

Сообщений: 436

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

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

Приветствую участников!
Вопрос в продоолжение темы про ComboBox.
Можно ли в RowSource задать динамически изменяемый диапазон?
Если да, то как?
Может есть другие варианты реализации задачи. Необходимо в ComboBox организовать
выпадающий список, чтобы после введения значения, оно исчезало из выпадающего списка.
Способ создания такого списка описан на форуме, только как его в ComboBox?
Буду признателен за любую помошь.

К сообщению приложен файл: QQ.xlsm (16.4 Kb)

Ответить

Дата: Вторник, 29.01.2013, 11:30 | Сообщение № 26

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата (Мур)

Можно ли в RowSource задать динамически изменяемый диапазон?

Зачем? Во первых - см.пост 22.
Во вторых см. заполнение комбо в файле из поста 17. Там комбо заполняется из диапазона на листе. Динамически можно прописать например так (для столбца "F")
[vba]

Код

ComboBox1.List = Range(Range("F1"), Range("F" & Rows.Count).End(xlUp))

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Вторник, 29.01.2013, 11:50 | Сообщение № 27

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

Ранг: Ветеран

Сообщений: 1068

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

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

XL 2016

в код формы:
[vba]

Код

Private Sub UserForm_Initialize()
     ComboBox1.RowSource = ""
     For i = 1 To 9
         ComboBox1.AddItem i
     Next
End Sub

Private Sub ComboBox1_Change()
     With ComboBox1
         i = .ListIndex
         If i > -1 Then .RemoveItem i
     End With
End Sub

[/vba]

Ответить

Дата: Среда, 30.01.2013, 00:13 | Сообщение № 28

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

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

Сообщений: 436

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

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

RAN,
у меня почему-то не прописывается......?

Ответить

Дата: Среда, 30.01.2013, 00:32 | Сообщение № 29

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

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

Сообщений: 436

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

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

Саня,
спасибо за предложенный вариант,
только я,видимо, плохо объяснил.
Мне, нужен в ComboBox1 выпадающий список, связанный с динамически
изменяемым диапазоном, определяемом формулой типа

Код

Смещ(F1;;;СчетZ(F1:F36))

или другой...
Может чего-то не допонял в вашем коде?
В выпадающем списке может быть не только последовательность [vba]

Код

For i = 1 To 9

[/vba], но и, например, перечень фамилий.

Ответить

Дата: Среда, 30.01.2013, 07:25 | Сообщение № 30

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

wacko

К сообщению приложен файл: 4695029.xls (34.0 Kb)

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Среда, 30.01.2013, 08:43 | Сообщение № 31

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

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

Сообщений: 436

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

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

RAN,
Сейчас работает отлично.
в сообщении №27 в строке кода нехватаеет
[vba]

Код

.Value

[/vba]
Большое спасибо!!!

Сообщение отредактировал Мур - Среда, 30.01.2013, 13:30

Ответить

Дата: Среда, 30.01.2013, 18:12 | Сообщение № 32

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

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

Сообщений: 436

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

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

Приветствую участников!
Чем больше ответов, тем больше возникает вопросов.
Прилагаю пример и два вопроса к нему.
1. Почему [vba]

Код

Range(Range("F1"), Range("F" & Rows.Count).End(xlUp)).Value

[/vba]
не работает для ComboBox2 и 3
2. Можно ли настроить ComboBox так, чтобы количество строк в выпадающем списке
равнялось количеству оставшихся и доступных для использования значений?
Другими словамизависело от изменений динамического диапазона.

К сообщению приложен файл: dla_foruva_1.xlsm (19.6 Kb)

Ответить

Дата: Среда, 30.01.2013, 19:59 | Сообщение № 33

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата (Мур)

не работает для ComboBox2 и 3

Если суп поставить вариться в холодильник , быстро свариться? biggrin

biggrin

Что нибудь в ComboBox2 и 3 введите, и поглядите результат.

Как написано - так и работает.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Среда, 30.01.2013, 20:22 | Сообщение № 34

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

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

Сообщений: 436

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

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

RAN, Не вижу!?

Цитата

Что нибудь в ComboBox2 и 3 введите, и поглядите результат

у меня вручную все вводится.
А в код формы я вставил строчку
[vba]

Код

ComboBox1.List = Range(Range("F1"), Range("F" & Rows.Count).End(xlUp)).value

[/vba]
соответсвенно для каждого ComboBox
Видимо что-то не так?
Я действительно не понимаю.

Сообщение отредактировал Мур - Среда, 30.01.2013, 21:07

Ответить

Дата: Среда, 30.01.2013, 21:32 | Сообщение № 35

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

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

Сообщений: 436

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

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

RAN,
с первым вопросом разобрался
[vba]

Код

Private Sub UserForm_Activate()
ComboBox1.List = Range(Range("C1"), Range("C" & Rows.Count).End(xlUp)).Value
ComboBox2.List = Range(Range("C1"), Range("C" & Rows.Count).End(xlUp)).Value
ComboBox3.List = Range(Range("C1"), Range("C" & Rows.Count).End(xlUp)).Value
End Sub

[/vba]

А вот какое значение надо присвоить List Rows, чтобы регулировать количество рядов списка?
Или как-то по другому?

Сообщение отредактировал Мур - Среда, 30.01.2013, 21:38

Ответить

Дата: Среда, 30.01.2013, 22:35 | Сообщение № 36

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата (Мур)

А вот какое значение надо присвоить List Rows, чтобы регулировать количество рядов списка?

???????

surprised

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Среда, 30.01.2013, 22:42 | Сообщение № 37

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

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

Сообщений: 436

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

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

RAN, Все равно спасибо за помощь.

Ответить

Дата: Воскресенье, 17.02.2013, 17:37 | Сообщение № 38

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

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

Сообщений: 436

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

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

Доброго времени суток!
Подскажите пожалуста в как указать формат времени суток, например 13:00, в строке
[vba]

Код

Me.ComboBox1.Value = Format(Me.ComboBox1, "?????")

[/vba]

Сообщение отредактировал Мур - Воскресенье, 17.02.2013, 17:40

Ответить

Дата: Воскресенье, 17.02.2013, 18:09 | Сообщение № 39

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

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

Сообщений: 436

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

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

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

Ответить

Дата: Воскресенье, 17.02.2013, 18:16 | Сообщение № 40

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата (_Boroda_)

hh:mm не подходит?

Не подходит. smile

smile

[vba]

Код

hh:nn

[/vba]
должно

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Воскресенье, 17.02.2013, 18:16

Ответить

Combobox, формат даты (свойства элементов формы)

Страница 2 из 3
«
1
2
3
»

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