Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Combobox - как сохранить значение RowSource? / 17 сообщений из 17, страница 1 из 1
12.01.2007, 13:11:44
    #34251467
Galustov
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
Добрый день!
При открывании формы я присваиваю комбобоксу rowsource
Если форму закрыть и потом снова открыть роусурс сбивается на установленный в окошке VBA.

Как сохранить роусурс, чтобы он не менялся при закрытии формы?

Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 13:40:18
    #34251572
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
храни в реестре, а при открытии формы обновляй
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 14:01:12
    #34251672
Galustov
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
vbaproхрани в реестре, а при открытии формы обновляй

не могу... всё заблокировано...
а по-другому никак?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 14:10:02
    #34251735
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
тогда в CustomProperties листа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 14:25:39
    #34251806
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "a1:e4"
End Sub
Я не понял ComboBox1 вне формы или же прога не Твоя и хочешь изменить параметр RowSource? Объясни
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 14:35:24
    #34251839
Galustov
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
Ser ArturPrivate Sub UserForm_Initialize()
ComboBox1.RowSource = "a1:e4"
End Sub
Я не понял ComboBox1 вне формы или же прога не Твоя и хочешь изменить параметр RowSource? Объясни
комбо на форме

просто когда я закрываю форму - роусурс отваливается и при новом открытии - пустота
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 14:49:12
    #34251910
Galustov
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
vbaproтогда в CustomProperties листа

как с этим работать? или где почитать? в двух словах хотя бы...

спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 15:12:01
    #34252052
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
Galustov
как с этим работать? или где почитать? в двух словах хотя бы...
спасибо!
работа не очень удобная, т.к нельзя по имени обращаться. тем не менее:
запись делается так:

Код: plaintext
Worksheet.CustomProperties.Add Name:="UserForm1RowSource", Value:="Sheet1!A1:A5"

читаем так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Function GetMyRowSource() As String
Dim CP As CustomProperty
On Error Resume Next

    For Each CP In Worksheet.CustomProperties
        If CP.Name Like "UserForm1RowSource" Then
           GetMyRowSource = CP.Value
           Exit For
        End If
    Next CP

End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 16:14:36
    #34252342
Galustov
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
vbapro Galustov
как с этим работать? или где почитать? в двух словах хотя бы...
спасибо!
работа не очень удобная, т.к нельзя по имени обращаться. тем не менее:
запись делается так:



А я вот нашёл очень хороший хелп (прикладываю) - по имени можно, я уже сделал свою задачку...

Всем спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 16:16:33
    #34252358
Galustov
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
что-то файл не прикладываецца :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 16:19:20
    #34252367
Galustov
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
Galustovчто-то файл не прикладываецца :(

вот ссылка

http://www.bygsoftware.com/Excel/VBA/cdp.htm

давить сюда
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 16:19:41
    #34252370
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
Galustovчто-то файл не прикладываецца :(
постарайся или фрагмент выложи, интересно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 18:36:39
    #34252788
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
А файл моно посмотреть или хотябы суть
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 19:43:42
    #34252904
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
Galustov Ser ArturPrivate Sub UserForm_Initialize()
ComboBox1.RowSource = "a1:e4"
End Sub
Я не понял ComboBox1 вне формы или же прога не Твоя и хочешь изменить параметр RowSource? Объясни
комбо на форме

просто когда я закрываю форму - роусурс отваливается и при новом открытии - пустота
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 19:46:05
    #34252912
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
Извеняюсь
Может быть так?

Код: plaintext
1.
2.
Private Sub UserForm_Initialize()
 ComboBox1.Value = Cells( 1 ,  1 ).Value
End Sub

Каким образом может быть такой диапазон a1:e4 в ComboBox1 ?
Может a1:a4?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 20:41:55
    #34252965
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
andMegaMИзвеняюсь
Может быть так?

Код: plaintext
1.
2.
Private Sub UserForm_Initialize()
 ComboBox1.Value = Cells( 1 ,  1 ).Value
End Sub

Каким образом может быть такой диапазон a1:e4 в ComboBox1 ?
Может a1:a4?
такое может быть, но это не источник записей... как только начнете что-то выбирать в нем , то .value станет другим, а именно одним из значений из RowSource или Items
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2007, 15:52:25
    #34253494
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox - как сохранить значение RowSource?
Дорогой Вы мой друг andMegaM В VBA можно всё. Если у Вас есть таблица ну скажем клиентов А1-Код клиентов В1- их названия С1 Адреса, то выбирая из КОМБОБОКСА название клиента Вы получите список А1, В1, С1 но как ответил наш уважаемый vbapro Вы получите в КОМБОБОКСЕ только код клиента (суть- для того чтобы можно было использовать функции скажем Sumproduct или Sumif). Вы задумаетесь на пару минут и скажете а на ф...а, я отвечу иногда когда вписываешь имя скажем под кодом - 01 вписан - Николай, под кодом 02 Николаи то функция Sumproduct или Sumif не правильно поймёт Николай[/color Николаи
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Combobox - как сохранить значение RowSource? / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 390ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183650]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 75ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 221ms
total:  390ms
x
x
Закрыть


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