ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Одна UserForm на несколко листов. Почему-то не работает
15 сообщений из 15, страница 1 из 1
Одна UserForm на несколко листов. Почему-то не работает
    #34243173
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
Доброго всем времени суток! Помогите решить проблему.
Что мы имеем: Книга с 4 листами. На первом листе данные для комбобокса. На других листах - таблицы.
"Шапка" Таблицы должна заполняться с пом. UserForm. Т.е вызываю UF, выбираю в комбобоксе необходимые значения, а те вставляются в определённые ячейки ДАННОГО (с которого была вызвана UF) листа.
Проблема: Первый раз все получается, закрываю UF, открываю следующий лист, вызываю UserForm, а значения вставляются опять в предыдущий лист.
Как быть?
Спасибо.
PS. Для большей ясности - прикрепляю файл.
...
Рейтинг: 0 / 0
09.01.2007, 15:32:22
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34243337
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Ошибка скорей всего в коде (если таковой есть)
srxp1154
PS. Для большей ясности - прикрепляю файл. А где файл
...
Рейтинг: 0 / 0
09.01.2007, 16:15:57
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34243440
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
Покорнейше прошу извинить, лопухнулся.
Файл прилагается.
...
Рейтинг: 0 / 0
09.01.2007, 16:37:26
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34243472
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
вместо скрыть
Код: plaintext
UserForm9.Hide
поставь выгрузить
Код: plaintext
Unload UserForm9
...
Рейтинг: 0 / 0
09.01.2007, 16:45:52
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34243778
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Дорогой друг "зачэм мучишся" в код листов вставь код
авторPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address="$A$1" then
UserForm9.Show
Ens if
End Sub
При активации яйчейки А1 Ты получишь то что ишешь
И ещё совет Если Ты вставишь для Твоего ComboBox1 код, то получишь имя для Твоей формы и при помощи имени формы можещь активировать нужный Тебе лист (Если интересно, то продолжу завтра)
авторPrivate Sub ComboBox1_Change()
UserForm9.Caption=ComboBox1.Text
End Sub
...
Рейтинг: 0 / 0
09.01.2007, 18:14:10
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34244506
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
Спасибо vkodor ! То что надо!

Спасибо Ser Artur за полезный совет. Насчет А1 и имени формы все работает, только я не понял как это ".... и при помощи имени формы можешь активировать нужный Тебе лист".
...
Рейтинг: 0 / 0
10.01.2007, 09:05:45
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34245180
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Tak tochno
...
Рейтинг: 0 / 0
10.01.2007, 12:16:20
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34245292
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
авторPrivate Sub ComboBox1_Change()
Dim n As Variant
UserForm1.Caption = ComboBox1.Text
For n = 1 To 3
If ComboBox1.Text = "Report" & n Then
Application.Worksheets(UserForm1.Caption).Activate
End If
Next n
End Sub
Но проблема в том что нужно чтоб имя листов и в ComboBox1-е были одинаковые имена Report n-ое
...
Рейтинг: 0 / 0
10.01.2007, 12:40:48
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34245303
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Свойство RowSource > ComboBox1-го - Report1!IV1:IV3 или можеш создать базу BASE и там писать
...
Рейтинг: 0 / 0
10.01.2007, 12:43:52
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34246092
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
Спасибо Ser Artur, что уделил время! дельное и интересное предложение, думаю его можно применить.
...
Рейтинг: 0 / 0
10.01.2007, 15:53:06
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34246534
Tigerfox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tigerfox
Гость
srxp1154Спасибо Ser Artur, что уделил время! дельное и интересное предложение, думаю его можно применить.
Ребята, а выложите, пожалуйста, что получилось!!!
...
Рейтинг: 0 / 0
10.01.2007, 17:37:54
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34246661
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
srxp1154
Вы Бухгалтер или кем работаете
...
Рейтинг: 0 / 0
10.01.2007, 18:16:48
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34247698
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
Привет всем.
Tigerfox
Выкладываю что получилось. Насчет "при помощи имени формы активировать нужный лист" что-то ругается, разбираться пока времени нет.
Ser Artur
Не, не бухгалтер (бухгалтерия это определенно не моё призвание, это я понял после года учебы на него), см профиль, я его подправил.
...
Рейтинг: 0 / 0
11.01.2007, 10:29:34
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34248443
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Вот Тебе один из вариантов ответа
С паролями листов будь поосторожней они конфликтуют с VBA вернее если не правильно написат код
...
Рейтинг: 0 / 0
11.01.2007, 13:11:43
| Ответить | Цитировать | Написать  
Одна UserForm на несколко листов. Почему-то не работает
    #34248904
srxp1154
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srxp1154
Гость
Блин, как все просто и интересно - нужно будет обязательно применить :). Благодарствую за идею.
...
Рейтинг: 0 / 0
11.01.2007, 14:33:12
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Одна UserForm на несколко листов. Почему-то не работает
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34243173&tid=2183663]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 34ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 208ms
total:  300ms
созд. / загр.: 300ms
x
x
Закрыть


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