ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите новичку!
7 сообщений из 7, страница 1 из 1
Помогите новичку!
    #34668558
SS2007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SS2007
Гость
Есть книга с 10 листами.
На первом расположены:
OptionButton1 CommandButton1
OptionButton2 CommandButton2
OptionButton3 CommandButton3
Как сделать с помощью макроса переход по листам, когда активен
OptionButton1 кнопками перемещаемся лист2,лист3,лист4,
OptionButton2 кнопками перемещаемся лист5,лист6,лист7,
OptionButton3 кнопками перемещаемся лист8,лист9,лист10.

Спасибо.
...
Рейтинг: 0 / 0
18.07.2007, 21:02:04
| Ответить | Цитировать | Написать  
Помогите новичку!
    #34668911
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
SS2007Как сделать с помощью макроса переход по листам, когда активен
OptionButton1 кнопками перемещаемся лист2,лист3,лист4,
OptionButton2 кнопками перемещаемся лист5,лист6,лист7,
OptionButton3 кнопками перемещаемся лист8,лист9,лист10.

Спасибо.

Про OptionButton не совсем понял, решал эту задачу след. образом

1. Создаешь своеобразное меню, с выводом значения поля в любую ячейку (например А1)
2. Пишешь макрос, с условиеми проверки ячейки А1 на значение
3. Прикрепляешь макрос к меню или ячейки тут уже на выбор
4. Меню добавляешь во все листы

Но по моему лучше сделать по примерно такому же варианту, но с одним меню на панели инструментов
...
Рейтинг: 0 / 0
19.07.2007, 08:56:51
| Ответить | Цитировать | Написать  
Помогите новичку!
    #34671980
SS2007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SS2007
Гость
Благодарю за отклик и помощь с Вашей стороны, но это не совсем то-что мне надо.
Прилагаю файл картинки меню.
...
Рейтинг: 0 / 0
20.07.2007, 06:56:40
| Ответить | Цитировать | Написать  
Помогите новичку!
    #34672058
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
А зачем столько кнопок, если есть радио кнопки?
Можно было бы сделать примерно по след. алгоритму.
1. Значения радио кнопок вынести все в одну и ту же ячеку, тогда получится 1,2,3
2. Приклике на кнопку продано за день, макрос проверяет значение ячейки и активирует нужный лист.

что-то наподобие этого:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim x1
x1= range ("N1")

if x1 =  1  then
такойто лист . Activate
if x1 =  2  then
такойто лист . Activate
if x1 =  3  then
такойто лист . Activate
Else
MsgBox "Не выбран не один отель"

Сорь в VBA не очень силен, поэтому точным примером помочь не могу :(
...
Рейтинг: 0 / 0
20.07.2007, 08:49:31
| Ответить | Цитировать | Написать  
Помогите новичку!
    #34672345
SS2007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SS2007
Гость
Быстро ответили спасибо.
Очень сложно объяснятся начинающиму, языком понятный программистам.
Попробую еще раз.
Есть три гостиницы и надо делать выборку по трем позициям
Продажи, процент, затраты

Данные эти лежат на отдельных листах
И в зависимости от нажатой OptionButton имеем возможность переходить на нужный лист

OptionButton1 - CommandButton1-лист2
CommandButton2-лист3
CommandButton3-лист4

OptionButton2 - CommandButton1-лист5
CommandButton2-лист6
CommandButton3-лист7

OptionButton3 - CommandButton1-лист8
CommandButton2-лист9
CommandButton3-лист10

Вот так это должно выглядеть логически.
...
Рейтинг: 0 / 0
20.07.2007, 10:31:21
| Ответить | Цитировать | Написать  
Помогите новичку!
    #34672860
SS2007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SS2007
Гость
Что-то не работает
Выдает ошибку x1= range ("N1")
:(
...
Рейтинг: 0 / 0
20.07.2007, 12:39:03
| Ответить | Цитировать | Написать  
Помогите новичку!
    #34674678
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
SS2007Что-то не работает
Выдает ошибку x1= range ("N1")
:(
Какую ошибку ?
...
Рейтинг: 0 / 0
20.07.2007, 22:19:47
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите новичку!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&tid=2182576]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 41ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 220ms
total:  341ms
созд. / загр.: 341ms
x
x
Закрыть


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