Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / combobox / 11 сообщений из 11, страница 1 из 1
08.05.2007, 09:17:47
    #34511421
fantomm
fantomm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
combobox
Привет всем!

Вопрос следущего плана:

Нужно создать на листе в екселе множество полей со списком со своими значениями, причем эти значения имеют в себе некутурую цифру.
Например,
хлеб 10р.
молоко 20р.

При выборе из списка хлеба в ячейку А1 записывается "Хлеб", а в А2 "10р"

Подскажите как это можно реализовать!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2007, 09:59:26
    #34511506
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
combobox
В VBA на лист на котором комбобокс добавте этот модуль

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Option Explicit
Private Sub ComboBox1_Change()
  Dim x As String, y As Variant
  x = ComboBox1.Text
  y = Split(x)
  Range("A1") = y( 0 )
  Range("A2") = y( 1 )
End Sub
Только в этом случае все элементы должны содержать именно один пробел и именно между названием и ценой если это нельзя выполнить выберите другой разделитель, например

хлеб/10р.
молоко топлёное/20р.
тогда

модуль такой

Option Explicit
Private Sub ComboBox1_Change()
Dim x As String, y As Variant
x = ComboBox1.Text
y = Split(x, "/")
Range("A1") = y(0)
Range("A2") = y(1)
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2007, 10:02:27
    #34511512
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
combobox
Функция Split работает начиная с VBA 6.0, если у тебя более ранняя напиши, пришлю как исправить!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2007, 10:09:31
    #34511534
fantomm
fantomm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
combobox
DeggasadФункция Split работает начиная с VBA 6.0, если у тебя более ранняя напиши, пришлю как исправить!

Скажите Deggasad а как заполнять или добавлять значения в combobox?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2007, 10:12:52
    #34511551
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
combobox
fantomm DeggasadФункция Split работает начиная с VBA 6.0, если у тебя более ранняя напиши, пришлю как исправить!

Скажите Deggasad а как заполнять или добавлять значения в combobox?

В свойствах комбобокса ListFillRange -посмотри в примере
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2007, 10:19:16
    #34511581
fantomm
fantomm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
combobox
Deggasad fantomm DeggasadФункция Split работает начиная с VBA 6.0, если у тебя более ранняя напиши, пришлю как исправить!

Скажите Deggasad а как заполнять или добавлять значения в combobox?

В свойствах комбобокса ListFillRange -посмотри в примере
Спасибо огромное за помощь!!!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2007, 10:27:53
    #34511606
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
combobox
Ещё раз перечитал вопрос Если комбобокс необязателен или нежелателен, то можно и без него. Пример на втором листе!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2007, 23:09:46
    #34675887
valen24
valen24
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
combobox
Доброго дня!..
А можно поподробнее - что изображено на втором листе?...
свойства - не отккрываются - не понятнтно - это комбобокс или что-то другое?...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2007, 23:30:35
    #34675898
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
combobox
valen24Доброго дня!..
А можно поподробнее - что изображено на втором листе?...
свойства - не отккрываются - не понятнтно - это комбобокс или что-то другое?...

Меню данные - проверка - список, если я правильно понял вопрос!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2007, 21:43:48
    #34678516
valen24
valen24
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
combobox
Все правильно Вы поняли!!
И я тоже понял Вас - Спасибо огромное!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2007, 12:22:30
    #34703667
VovaNa
VovaNa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
combobox
DeggasadМеню данные - проверка - список, если я правильно понял вопрос!
Присоединяюсь к благодарности)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / combobox / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 383ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2182513]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 55ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 244ms
total:  383ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]