Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переход по кнопке на другой лист / 10 сообщений из 10, страница 1 из 1
21.12.2009, 14:38
    #36377603
Babochka
Babochka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход по кнопке на другой лист
Есть кнопка на Лист1 и есть работающий код. При нажатии на кнопку весь результат должен быть записан на Лист2.
Private Sub CommandButton1_Click()
Sheets("Лист2").Select
Cells(7, 10) = "Результат"
End Sub
а пишется все равно на Лист1. Как с этим справиться?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2009, 14:40
    #36377610
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход по кнопке на другой лист
Код: plaintext
1.
2.
Private Sub CommandButton1_Click()
Sheets("Лист2").Cells( 7 ,  10 ) = "Результат"
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2009, 14:51
    #36377636
Babochka
Babochka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход по кнопке на другой лист
т.е. каждое выводимое значение нужно адресовать на нужный лист. А нельзя ли как-то сделать для всех сразу?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2009, 15:02
    #36377673
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход по кнопке на другой лист
> Автор: Babochka
> А нельзя ли как-то сделать для всех сразу?

Что сделать? и кто такие - всех?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2009, 15:12
    #36377704
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход по кнопке на другой лист
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub CommandButton1_Click()
With Sheets("Лист2")
.Cells( 7 ,  10 ) = "Результат"
.Cells( 7 ,  11 ) = "Результат2"
End with
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2009, 16:07
    #36377864
Babochka
Babochka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход по кнопке на другой лист
Спасибо, это работает.
А как можно на кнопку повесить выполнение макроса(модуля), что бы не дублировать код.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2009, 16:15
    #36377892
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход по кнопке на другой лист
BabochkaСпасибо, это работает.
А как можно на кнопку повесить выполнение макроса(модуля), что бы не дублировать код.

так он же у вас и так на кнопке
Код: plaintext
Private Sub CommandButton1_Click()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2009, 16:17
    #36377907
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход по кнопке на другой лист
Можно. Назови макрос например Sub CopyDataToSheetTwo(), размести его в модуле, тогда на кнопке код такой:
Код: plaintext
1.
2.
Private Sub CommandButton1_Click()
CopyDataToSheetTwo
End Sub
Может не совсем по правилам, но работает...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2009, 16:19
    #36377915
Babochka
Babochka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход по кнопке на другой лист
Один код написан в модуле, а на кнопке висит его дубликат, поэтому и хочется иметь код в одном месте на модуле, а на кнопке только обращение к нему
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2009, 17:14
    #36378100
Babochka
Babochka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход по кнопке на другой лист
ок, все получилось!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переход по кнопке на другой лист / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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