Как перейти на лист N, если есть N?
Модератор: Naeel Maqsudov
У меня есть переменная N, она в программе принимает значения от 1 до 20.
Мне надо, в зависимости от значения N, перейти на лист с именем, равным N. То есть, если N = 5, то мне надо перейти на лист, который называется "5".
Это уже понял.
А как получить номер текущего листа?
Мне надо, в зависимости от значения N, перейти на лист с именем, равным N. То есть, если N = 5, то мне надо перейти на лист, который называется "5".
Это уже понял.
А как получить номер текущего листа?
- EducatedFool
- Сообщения: 197
- Зарегистрирован: 06 апр 2008, 14:03
- Откуда: Россия, Урал
- Контактная информация:
Код: Выделить всё
[color=darkblue]Sub[/color] test()
n = 5
Worksheets(n).Activate [color=green]' так мы перейдём на лист с ИНДЕКСОМ N[/color]
Worksheets([B][color="Red"]CStr([/color][/B]n[color="#ff0000"][B])[/B][/color]).Activate [color=green]' а Вам надо так - перейти на лист с ИМЕНЕМ N[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
Макросы для Excel, Word, CorelDRAW. Быстро, профессионально, недорого. http://ExcelVBA.ru/
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
Спасибо большое. А на второй вопрос ответите? 

- EducatedFool
- Сообщения: 197
- Зарегистрирован: 06 апр 2008, 14:03
- Откуда: Россия, Урал
- Контактная информация:
А что такое - номер?А как получить номер текущего листа?
Я не знаю такого свойства листа...
Может, так подойдёт?
Код: Выделить всё
[color=darkblue]Sub[/color] test()
MsgBox ActiveSheet.Index [color=green]' индекс листа[/color]
MsgBox ActiveSheet.Name ' имя листа
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
Макросы для Excel, Word, CorelDRAW. Быстро, профессионально, недорого. http://ExcelVBA.ru/
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
ActiveSheet.Index
Спасибочки! Именно вот это мне и было надо!!! Что бы я без Вас делал?!
Спасибочки! Именно вот это мне и было надо!!! Что бы я без Вас делал?!
- EducatedFool
- Сообщения: 197
- Зарегистрирован: 06 апр 2008, 14:03
- Откуда: Россия, Урал
- Контактная информация:
Изучали бы справку по VBA, и объектную модель Excel. (как это делал я, когда у меня не было интернета)Что бы я без Вас делал?!
В этом случае Вы узнали бы НАМНОГО больше

Макросы для Excel, Word, CorelDRAW. Быстро, профессионально, недорого. http://ExcelVBA.ru/
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
Я бы с удовольствием, но она по-английски. А где найти по-русски, не подскажете?EducatedFool писал(а):Изучали бы справку по VBA

- EducatedFool
- Сообщения: 197
- Зарегистрирован: 06 апр 2008, 14:03
- Откуда: Россия, Урал
- Контактная информация:
Здесь есть справочник по функциям VB на русском языке.
Справка по VBA на русском языке, вроде бы, была в excel 97.
Справка по VBA на русском языке, вроде бы, была в excel 97.
Макросы для Excel, Word, CorelDRAW. Быстро, профессионально, недорого. http://ExcelVBA.ru/
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
На досуге почитаю. Ну, а сейчас, мне очень срочно ещё один макрос нужен. Хочу на лист поместить таймер обратного отсчёта. Когда перешли на этот лист - пошёл отсчет. Через 1 минуту - звук какой-нибудь, типа, ответы сдавайте.
- EducatedFool
- Сообщения: 197
- Зарегистрирован: 06 апр 2008, 14:03
- Откуда: Россия, Урал
- Контактная информация:
А если во время отсчёта пользователь переключился на другой лист - что делать?Когда перешли на этот лист - пошёл отсчет
Приостанавливать таймер?
Или не позволять пользователю переключаться на другой лист?
Макросы для Excel, Word, CorelDRAW. Быстро, профессионально, недорого. http://ExcelVBA.ru/
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216