Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Запрос в VBA "Да", "Нет" - Страница 3 - Мир MS Excel

Старая форма входа
  • Страница 3 из 4
  • «
  • 1
  • 2
  • 3
  • 4
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запрос в VBA "Да", "Нет"
Запрос в VBA "Да", "Нет"
Pelena Дата: Понедельник, 03.09.2012, 23:01 | Сообщение № 41
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Quote (KuklP)
Человек берется за работу, ему на форумах ее делают.

Да, сталкивалась с таким, правда не с Excel. Причем начинается все с безобидного вопроса, дальше-больше, вырастает целый проект, а потом оказывается, что он за него еще и деньги получил.

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Quote (KuklP)
Человек берется за работу, ему на форумах ее делают.

Да, сталкивалась с таким, правда не с Excel. Причем начинается все с безобидного вопроса, дальше-больше, вырастает целый проект, а потом оказывается, что он за него еще и деньги получил.
Автор - Pelena
Дата добавления - 03.09.2012 в 23:01
KuklP Дата: Понедельник, 03.09.2012, 23:02 | Сообщение № 42
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Ок. Смотрим. На "других сайтах" тоже читал о нем.
К сообщению приложен файл: 7737187.gif (34.7 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Понедельник, 03.09.2012, 23:04
 
Ответить
СообщениеОк. Смотрим. На "других сайтах" тоже читал о нем.
Автор - KuklP
Дата добавления - 03.09.2012 в 23:02
light26 Дата: Понедельник, 03.09.2012, 23:03 | Сообщение № 43
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Quote (Pelena)
вырастает целый проект, а потом оказывается, что он за него еще и деньги получил.

Quote (Pelena)
"Черт возьми, Холмс. Но как??!!"

))))))))))

Я не волшебник. Я только учусь
 
Ответить
Сообщение
Quote (Pelena)
вырастает целый проект, а потом оказывается, что он за него еще и деньги получил.

Quote (Pelena)
"Черт возьми, Холмс. Но как??!!"

))))))))))
Автор - light26
Дата добавления - 03.09.2012 в 23:03
Pelena Дата: Понедельник, 03.09.2012, 23:07 | Сообщение № 44
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Вадим, я имела в виду проект Access, в Excel я действительно пока только Ватсон

Щас нас Сергей накажет за такой Оффтоп

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Сообщение отредактировал Pelena - Понедельник, 03.09.2012, 23:08
 
Ответить
СообщениеВадим, я имела в виду проект Access, в Excel я действительно пока только Ватсон

Щас нас Сергей накажет за такой Оффтоп
Автор - Pelena
Дата добавления - 03.09.2012 в 23:07
light26 Дата: Понедельник, 03.09.2012, 23:07 | Сообщение № 45
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Quote (KuklP)
Ок. Смотрим.

Не, ну это уже тупо кидалово...... я мог бы еще понять тех, кто берет заказ, ему его тут кто-то выполнит, а он за работу денег получит, но чтобы так.... ему бы темную устроить, но поди сыщи его теперь

Я не волшебник. Я только учусь
 
Ответить
Сообщение
Quote (KuklP)
Ок. Смотрим.

Не, ну это уже тупо кидалово...... я мог бы еще понять тех, кто берет заказ, ему его тут кто-то выполнит, а он за работу денег получит, но чтобы так.... ему бы темную устроить, но поди сыщи его теперь
Автор - light26
Дата добавления - 03.09.2012 в 23:07
nerv Дата: Понедельник, 03.09.2012, 23:18 | Сообщение № 46
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

Quote (Pelena)
Щас нас Сергей накажет за такой Оффтоп

тра-та-та-та sniper

Форум создан для общения. Правила не должны быть слишком строгими. Иначе интерес к форуму пропадет.

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Сообщение отредактировал nerv - Понедельник, 03.09.2012, 23:19
 
Ответить
Сообщение
Quote (Pelena)
Щас нас Сергей накажет за такой Оффтоп

тра-та-та-та sniper

Форум создан для общения. Правила не должны быть слишком строгими. Иначе интерес к форуму пропадет.
Автор - nerv
Дата добавления - 03.09.2012 в 23:18
Serge_007 Дата: Понедельник, 03.09.2012, 23:22 | Сообщение № 47
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (nerv)
Правила не должны быть слишком строгими. Иначе интерес к форуму пропадет

Верно Саш, иногда можно smile
Но только иногда!
Всё, тема закрыта.

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (nerv)
Правила не должны быть слишком строгими. Иначе интерес к форуму пропадет

Верно Саш, иногда можно smile
Но только иногда!
Всё, тема закрыта.
Автор - Serge_007
Дата добавления - 03.09.2012 в 23:22
KuklP Дата: Понедельник, 03.09.2012, 23:26 | Сообщение № 48
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Да и не стоит из админов и модеров делать пугало. Все они замечательные люди. И это обсуждение не оффтоп. Куда его - в "Свободное общение"? Я туда раз в год заглядываю и то, по наводке Сержа:-) Но Саша, Правила должны быть. Иначе форум превратится в помойку.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеДа и не стоит из админов и модеров делать пугало. Все они замечательные люди. И это обсуждение не оффтоп. Куда его - в "Свободное общение"? Я туда раз в год заглядываю и то, по наводке Сержа:-) Но Саша, Правила должны быть. Иначе форум превратится в помойку.
Автор - KuklP
Дата добавления - 03.09.2012 в 23:26
KuklP Дата: Понедельник, 03.09.2012, 23:27 | Сообщение № 49
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Уп-с. Не видел поста Сержа.:-)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеУп-с. Не видел поста Сержа.:-)
Автор - KuklP
Дата добавления - 03.09.2012 в 23:27
nerv Дата: Понедельник, 03.09.2012, 23:30 | Сообщение № 50
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

Quote (KuklP)
Изобретать для себя трудности, чтоб потом их преодолевать... Не мое:-)

изобретать? Думаю, найдется куча задач, до которых у тебя не доходили руки. Может, потому, что лень, может потому, что сложно, а может и то и другое smile

Quote (light26)
Господа, как я уже говорил ранее, проблема не стоит в том, чтобы перевести английскую справку на русский.

и на странице 2 мы в этом убеждаемся laugh

Quote (Serge_007)
Всё, тема закрыта.

не, так не интересно. Ты же видишь, беседу ведут завсегдатаи форума. Что в этом плохого? Ну, отклонились немного от темы... Как отклонились, так и вернуться smile

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba
 
Ответить
Сообщение
Quote (KuklP)
Изобретать для себя трудности, чтоб потом их преодолевать... Не мое:-)

изобретать? Думаю, найдется куча задач, до которых у тебя не доходили руки. Может, потому, что лень, может потому, что сложно, а может и то и другое smile

Quote (light26)
Господа, как я уже говорил ранее, проблема не стоит в том, чтобы перевести английскую справку на русский.

и на странице 2 мы в этом убеждаемся laugh

Quote (Serge_007)
Всё, тема закрыта.

не, так не интересно. Ты же видишь, беседу ведут завсегдатаи форума. Что в этом плохого? Ну, отклонились немного от темы... Как отклонились, так и вернуться smile
Автор - nerv
Дата добавления - 03.09.2012 в 23:30
nerv Дата: Понедельник, 03.09.2012, 23:34 | Сообщение № 51
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

Quote (KuklP)
Правила должны быть. Иначе форум превратится в помойку.

модерирование должно быть мягче (на мой взгляд. За что и люблю форум по js). А то не форум получается, а FAQ

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Сообщение отредактировал nerv - Понедельник, 03.09.2012, 23:34
 
Ответить
Сообщение
Quote (KuklP)
Правила должны быть. Иначе форум превратится в помойку.

модерирование должно быть мягче (на мой взгляд. За что и люблю форум по js). А то не форум получается, а FAQ
Автор - nerv
Дата добавления - 03.09.2012 в 23:34
light26 Дата: Вторник, 04.09.2012, 21:18 | Сообщение № 52
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Quote (nerv)
и на странице 2 мы в этом убеждаемся

Заметь, я писал "проблема стоит не в том, чтобы перевести" а не "проблема не стоит в том, чтобы перевести" tongue

Я не волшебник. Я только учусь
 
Ответить
Сообщение
Quote (nerv)
и на странице 2 мы в этом убеждаемся

Заметь, я писал "проблема стоит не в том, чтобы перевести" а не "проблема не стоит в том, чтобы перевести" tongue
Автор - light26
Дата добавления - 04.09.2012 в 21:18
light26 Дата: Понедельник, 04.03.2013, 15:26 | Сообщение № 53
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Всем привет.
Где я допустил ошибку, подскажите.
[vba]
Код
Sub Далее()
Dim i
      i = MsgBox("Вы уверены, что хотите продолжить?", vbYesNo, "Light26")
      If i = 6 Then:
          Sheets(Array("Внимание", "2003", "2007-2010", "Версия")).Visible = False
          Sheets("Инструкция").Visible = True
          Sheets("Инструкция").Select
      If i = 7 Then: Exit Sub
End Sub
[/vba]
Независимо от выбора кнопки выполняются команды
[vba]
Код

          Sheets(Array("Внимание", "2003", "2007-2010", "Версия")).Visible = False
          Sheets("Инструкция").Visible = True
          Sheets("Инструкция").Select
[/vba]
К сообщению приложен файл: 1_2.xls (99.5 Kb)

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Понедельник, 04.03.2013, 15:31
 
Ответить
СообщениеВсем привет.
Где я допустил ошибку, подскажите.
[vba]
Код
Sub Далее()
Dim i
      i = MsgBox("Вы уверены, что хотите продолжить?", vbYesNo, "Light26")
      If i = 6 Then:
          Sheets(Array("Внимание", "2003", "2007-2010", "Версия")).Visible = False
          Sheets("Инструкция").Visible = True
          Sheets("Инструкция").Select
      If i = 7 Then: Exit Sub
End Sub
[/vba]
Независимо от выбора кнопки выполняются команды
[vba]
Код

          Sheets(Array("Внимание", "2003", "2007-2010", "Версия")).Visible = False
          Sheets("Инструкция").Visible = True
          Sheets("Инструкция").Select
[/vba]
Автор - light26
Дата добавления - 04.03.2013 в 15:26
RAN Дата: Понедельник, 04.03.2013, 16:34 | Сообщение № 54
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
    If i = 6 Then:
[/vba]
Инструкция If выполнена и закончена.

[vba]
Код
Sub Далее()
     Dim i
     i = MsgBox("Вы уверены, что хотите продолжить?", vbYesNo, "Light26")
     If i = 6 Then
         Sheets("Инструкция").Visible = True
         Sheets("Инструкция").Select
         Sheets(Array("Внимание", "2003", "2007-2010", "Версия")).Visible = False
     End If
End Sub
[/vba]
Сначала отображаем, потом скрываем. Иначе может получиться, что должны быть скрыты все листы. А это низззя! cool

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
    If i = 6 Then:
[/vba]
Инструкция If выполнена и закончена.

[vba]
Код
Sub Далее()
     Dim i
     i = MsgBox("Вы уверены, что хотите продолжить?", vbYesNo, "Light26")
     If i = 6 Then
         Sheets("Инструкция").Visible = True
         Sheets("Инструкция").Select
         Sheets(Array("Внимание", "2003", "2007-2010", "Версия")).Visible = False
     End If
End Sub
[/vba]
Сначала отображаем, потом скрываем. Иначе может получиться, что должны быть скрыты все листы. А это низззя! cool
Автор - RAN
Дата добавления - 04.03.2013 в 16:34
light26 Дата: Понедельник, 04.03.2013, 16:35 | Сообщение № 55
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Почитал литературку, разобрался, получил:
[vba]
Код
Sub Далее()
Dim reply As Integer
     reply = MsgBox("Вы уверены, что хотите продолжить?", vbYesNo, "Запрос на продолжение")
         If reply = vbYes Then
         Sheets(Array("Внимание", "2003", "2007-2010", "Версия")).Visible = False
         Sheets("Инструкция").Visible = True
         Sheets("Инструкция").Select
         ElseIf reply = vbNo Then Exit Sub
         End If
End Sub
[/vba]
Работает. Но вопрос по предыдущему посту остается открытым. Где ошибка была в варианте прошлого поста?

Я не волшебник. Я только учусь
 
Ответить
СообщениеПочитал литературку, разобрался, получил:
[vba]
Код
Sub Далее()
Dim reply As Integer
     reply = MsgBox("Вы уверены, что хотите продолжить?", vbYesNo, "Запрос на продолжение")
         If reply = vbYes Then
         Sheets(Array("Внимание", "2003", "2007-2010", "Версия")).Visible = False
         Sheets("Инструкция").Visible = True
         Sheets("Инструкция").Select
         ElseIf reply = vbNo Then Exit Sub
         End If
End Sub
[/vba]
Работает. Но вопрос по предыдущему посту остается открытым. Где ошибка была в варианте прошлого поста?
Автор - light26
Дата добавления - 04.03.2013 в 16:35
RAN Дата: Понедельник, 04.03.2013, 16:37 | Сообщение № 56
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
ElseIf reply = vbNo Then Exit Sub
[/vba]
А это зачем? Да/Нет. Какие еще варианты?

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
ElseIf reply = vbNo Then Exit Sub
[/vba]
А это зачем? Да/Нет. Какие еще варианты?
Автор - RAN
Дата добавления - 04.03.2013 в 16:37
light26 Дата: Понедельник, 04.03.2013, 16:39 | Сообщение № 57
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Цитата (RAN)
Иначе может получиться, что должны быть скрыты все листы.

Не, не получилось smile
Андрей, я правильно понимаю, что если для кнопки "Нет" действие не указано, то работа макроса завершится по умолчанию?

Я не волшебник. Я только учусь
 
Ответить
Сообщение
Цитата (RAN)
Иначе может получиться, что должны быть скрыты все листы.

Не, не получилось smile
Андрей, я правильно понимаю, что если для кнопки "Нет" действие не указано, то работа макроса завершится по умолчанию?
Автор - light26
Дата добавления - 04.03.2013 в 16:39
light26 Дата: Понедельник, 04.03.2013, 16:41 | Сообщение № 58
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Цитата (RAN)
А это зачем? Да/Нет. Какие еще варианты?

Андрей, ну что ты от меня хочешь? Я этот-то код написал и рад до смерти )))

Я не волшебник. Я только учусь
 
Ответить
Сообщение
Цитата (RAN)
А это зачем? Да/Нет. Какие еще варианты?

Андрей, ну что ты от меня хочешь? Я этот-то код написал и рад до смерти )))
Автор - light26
Дата добавления - 04.03.2013 в 16:41
RAN Дата: Понедельник, 04.03.2013, 16:43 | Сообщение № 59
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Не по умолчанию, а по порядку. Если условие не выполнено, будет выполнена строка, следующая за End If. У тебя там что написано? tongue
А насчет скрытия - ну, повезло.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Понедельник, 04.03.2013, 16:44
 
Ответить
СообщениеНе по умолчанию, а по порядку. Если условие не выполнено, будет выполнена строка, следующая за End If. У тебя там что написано? tongue
А насчет скрытия - ну, повезло.
Автор - RAN
Дата добавления - 04.03.2013 в 16:43
light26 Дата: Понедельник, 04.03.2013, 17:17 | Сообщение № 60
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Цитата (RAN)
А насчет скрытия - ну, повезло.

Да почему ж повезло? Все логично: команды выполняются по-порядку.

Я не волшебник. Я только учусь
 
Ответить
Сообщение
Цитата (RAN)
А насчет скрытия - ну, повезло.

Да почему ж повезло? Все логично: команды выполняются по-порядку.
Автор - light26
Дата добавления - 04.03.2013 в 17:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запрос в VBA "Да", "Нет"
  • Страница 3 из 4
  • «
  • 1
  • 2
  • 3
  • 4
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!