Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / пользовательская форма / 7 сообщений из 7, страница 1 из 1
22.02.2015, 22:22:05
    #38886135
прога
прога
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пользовательская форма
Всем привет,очень нужна маленькая помощь.
Есть форма на листе 1,она вводит данные на лист 2 с переходом на этот лист.
Вопрос: какую строку кода добавить, чтобы при вводе данных НЕ переходить на активный лист?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Код:Private Sub CommandButton1_Click()
Sheets("Лист2").Activate
Worksheets("Лист2").Visible = True
Dim row As Integer
Worksheets("Лист2").Select
row = Application.CountA(ActiveSheet.Columns(1)) + 1
With Worksheets("Лист2")

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2015, 22:44:38
    #38886140
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пользовательская форма
http://www.sql.ru/faq/faq_topic.aspx?fid=4344
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2015, 22:58:01
    #38886145
прога
прога
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пользовательская форма
Shocker.Pro,
тогда через open лист снова открывается, а должен быть скрыт от пользователя при вводе данных в форму и выводе на скрытый лист, как быть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2015, 01:01:34
    #38886182
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пользовательская форма
Если вы потрудитесь сформулировать вопрос так, чтобы он был понятен, и проиллюстрируете его кодом, то я попытаюсь на него ответить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2015, 10:50:45
    #38886275
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пользовательская форма
прога,

Код: vbnet
1.
2.
3.
4.
5.
Private Sub CommandButton1_Click()
Dim row As Integer

With Worksheets("Лист2")
row = Application.CountA(.Columns(1)) + 1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2015, 13:25:48
    #38886383
прога
прога
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пользовательская форма
The_Prist,
Почти работает, проблема: выводит значения OptionButton и СheckВox по прежнему на Лист1, а остальное на Лист2.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2015, 13:32:03
    #38886387
прога
прога
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пользовательская форма
Shocker.Pro,
The Prist понял.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / пользовательская форма / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 693ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2156018]:
 0ms
get settings:
 5ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 419ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 195ms
total:  693ms
x
x
Закрыть


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