Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ComboBox in Sheet 
:(
    Опции темы
Izuver
Дата 27.9.2006, 23:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2



ComboBox на листе, пытаюсь осуществить такой код:
Public Sub sdfgh()
For q = 7 To 20
x = Cells(q, 1) & " - " & Cells(q, 2) & Chr(10) & x
Next q
ComboBox1.List = x
End Sub
сам x вроде нормальный, судя по MsgBox, а так выдает ошибку на ComboBox1.List = x. Пока вместо пользуюсь ComboBox1.List = Application.Transpose(Range("A7:A20")).Value)

И как сделать что бы ComboBox заполнялся сразу полсе входа в книгу, а не после запуска этого кода
PM MAIL ICQ   Вверх
blast99
Дата 28.9.2006, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


сисадмин
*


Профиль
Группа: Участник
Сообщений: 134
Регистрация: 3.5.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 3



Если тебе надо заполнить ComboBox1, то пользуй ComboBox1.AddItem ("asd").
Т.е. надо сделать один цикл в котором будет AddItem, тем самым заполнишь ComboBox.
--------------------
Зачастую, наши возможности ограничены лишь нашими желаниями. И ничто так не ограничивает желания, как заниженная оценка своих возможностей.
PM MAIL ICQ   Вверх
Yanis
Дата 28.9.2006, 10:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: нет
Всего: 111



Цитата(Izuver @  28.9.2006,  00:12 Найти цитируемый пост)
И как сделать что бы ComboBox заполнялся сразу полсе входа в книгу, а не после запуска этого кода

У Workbook есть событие Open. В этом коде и пиши добавление строк:
Код
Private Sub Workbook_Open()
  Worksheets(1).ComboBox1.Clear
  Worksheets(1).ComboBox1.AddItem (Now)
End Sub




--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
blast99
Дата 28.9.2006, 10:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


сисадмин
*


Профиль
Группа: Участник
Сообщений: 134
Регистрация: 3.5.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 3



Кстати, действительно забыл сказать про события...
Т.е. чтобы автоматом заполнялось, конечно нужно пользовать соответствующее событие. smile 
Yanis, хорошо написал! Что надо писать, где и как smile

Это сообщение отредактировал(а) blast99 - 28.9.2006, 10:16
--------------------
Зачастую, наши возможности ограничены лишь нашими желаниями. И ничто так не ограничивает желания, как заниженная оценка своих возможностей.
PM MAIL ICQ   Вверх
Yanis
Дата 28.9.2006, 11:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: нет
Всего: 111



Цитата(blast99 @  28.9.2006,  11:15 Найти цитируемый пост)
Yanis, хорошо написал! Что надо писать, где и как

Может быть smile

Забыл добавить, но наверное не существенно. Параметр 1, указаный в скобках - номер листа, на котором располагается объект, т.е. ComboBox.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
blast99
Дата 28.9.2006, 11:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


сисадмин
*


Профиль
Группа: Участник
Сообщений: 134
Регистрация: 3.5.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 3



Yanis,  я кстати сразу обратил внимание на это! Просто раньше не знал, что можно просто по номеру обращаться, а тут удивил...  smile 
Мелочь, а приятно  smile 
--------------------
Зачастую, наши возможности ограничены лишь нашими желаниями. И ничто так не ограничивает желания, как заниженная оценка своих возможностей.
PM MAIL ICQ   Вверх
Izuver
Дата 28.9.2006, 22:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2



Цитата(blast99 @ 28.9.2006,  09:54)
ComboBox1.AddItem ("asd")

Ни чего не понял, может так ComboBox1.AddItem (asd), а в моем случает так:
Public Sub sdfgh()
ComboBox1.Clear
For q = 7 To 20
x = Cells(q, 1) & " - " & Cells(q, 2)
ComboBox1.AddItem (x)
Next q
End Sub

PM MAIL ICQ   Вверх
Izuver
Дата 28.9.2006, 23:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2



Цитата(Yanis @ 28.9.2006,  10:07)
Код
Private Sub Workbook_Open()
  Worksheets(1).ComboBox1.Clear
  Worksheets(1).ComboBox1.AddItem (Now)
End Sub

И куда его запихнуть?
PM MAIL ICQ   Вверх
Yanis
Дата 29.9.2006, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: нет
Всего: 111



Цитата(Izuver @  29.9.2006,  00:27 Найти цитируемый пост)
И куда его запихнуть?

Даже и не знаю как словами то на такой вопрос ответить smile 
user posted image


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
blast99
Дата 29.9.2006, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


сисадмин
*


Профиль
Группа: Участник
Сообщений: 134
Регистрация: 3.5.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 3



Yanis, отличный и наглядный пример "куда его запихнуть"  smile

Izuver, У большинства элементов управления существуют разные события при наступлении к-х вызывается какой-либо обработчик событий.
Например у кнопки есть событие Click (т.е. нажатие), для того чтобы написать свой обработчик события клик, ты обычно просто дважды кликаешь по кнопке и появляется редактор кода причем в редактировании события поумолчанию(для кнопки это Click).
Код

Private Sub CommandButton1_Click()
  MsgBox("Hello world")
 End Sub

Далее пишешь свой обработчик и воаля, кнопка делает то, что ты хочешь.
Так вот есть еще много событий скажем у ComboBox есть Change, Click и другие...
Т.о. ты сможешь дописать свой обработчик на какое либо событие...
Это относится и к другим элементам управления...
--------------------
Зачастую, наши возможности ограничены лишь нашими желаниями. И ничто так не ограничивает желания, как заниженная оценка своих возможностей.
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0508 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.