Переход на другие листы в зависимости от условия

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Переход на другие листы в зависимости от условия (Макросы Sub)

Tatsiana

Дата: Суббота, 01.02.2014, 15:15 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Как по кнопке в зависимости от условия(суммы набранных баллов) перейти на другую страницу?

К сообщению приложен файл: 8510530.xlsx (39.5 Kb)

Ответить

Stormy

Дата: Суббота, 01.02.2014, 15:24 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 366

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub Переход ()
If Range("H15") > 100 Then
Sheets("Итоги 1").Select
End If
End Sub

[/vba]
Может так?

Место для рекламы.

Ответить

Tatsiana

Дата: Суббота, 01.02.2014, 16:25 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Скажите, а есть ли у VBA логические операции И, ИЛИ. И какой синтаксис?

Tanya

Ответить

Stormy

Дата: Суббота, 01.02.2014, 16:31 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 366

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

AND (И) OR (ИЛИ)
Только в Вашем случае с итогами они же вроде как и не нужны. Регулируйте переход по сумме баллов и дальше по ELSE

[vba]

Код

Sub Переход ()
If Range("H15") > 100 Then
     Sheets("Итоги 1").Select
Else
If Range("H15") < 100 Then
     Sheets("Итоги 2").Select
     End If
End Sub

[/vba]

Место для рекламы.

Ответить

Tatsiana

Дата: Суббота, 01.02.2014, 16:39 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Мне кажется, что нужно!!!! Как написать?
От 0 до 50 очков - Итоги 1
От 51 до 200 очков - Итоги 2
От 201 до 500 очков - Итоги 3
Более 500 очков - Итоги 4

Tanya