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

Вход

Регистрация

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

 

= Мир MS Excel/MsgBox - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » MsgBox
MsgBox
konstantinp Дата: Пятница, 08.06.2012, 17:40 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 86
Репутация: 0 ±
Замечаний: 0% ±

Добрый день, коллеги,
Как через MsgBox вывести не "текст", а выдернуть значение из определенной ячейки?
 
Ответить
СообщениеДобрый день, коллеги,
Как через MsgBox вывести не "текст", а выдернуть значение из определенной ячейки?
Автор - konstantinp
Дата добавления - 08.06.2012 в 17:40
RAN Дата: Пятница, 08.06.2012, 21:08 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Quote (konstantinp)
Как через MsgBox вывести не "текст", а выдернуть значение из определенной ячейки?

Да никак!
MsgBox - это ВСЕГДА текст!

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Quote (konstantinp)
Как через MsgBox вывести не "текст", а выдернуть значение из определенной ячейки?

Да никак!
MsgBox - это ВСЕГДА текст!
Автор - RAN
Дата добавления - 08.06.2012 в 21:08
Hugo Дата: Пятница, 08.06.2012, 22:07 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
Ну почему только текст?
Это ещё и выбор пользователя. А на выбор можно навесить действие - например скопировать что-то из A1 в B1.
В хелпе есть подробный пример (If Response = vbYes Then ' User chose Yes.)
Что нужно-то?

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНу почему только текст?
Это ещё и выбор пользователя. А на выбор можно навесить действие - например скопировать что-то из A1 в B1.
В хелпе есть подробный пример (If Response = vbYes Then ' User chose Yes.)
Что нужно-то?
Автор - Hugo
Дата добавления - 08.06.2012 в 22:07
RAN Дата: Пятница, 08.06.2012, 22:20 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Quote (Hugo)
Ну почему только текст?

По определению!
Чему равно
a = 10 * MsgBox "10%" ??? biggrin tongue

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Quote (Hugo)
Ну почему только текст?

По определению!
Чему равно
a = 10 * MsgBox "10%" ??? biggrin tongue
Автор - RAN
Дата добавления - 08.06.2012 в 22:20
Hugo Дата: Пятница, 08.06.2012, 22:48 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
Смотря что выберет пользователь smile
[vba]
Code
Sub ToRAN()
     Msg = "10%"     ' Define message.
     Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
     Title = "MsgBox Demonstration"    ' Define title.
     Help = "DEMO.HLP"    ' Define Help file.
     Ctxt = 1000    ' Define topic
' context.
' Display message.

     a = 10 * MsgBox(Msg, Style, Title, Help, Ctxt)
     MsgBox a
End Sub
[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеСмотря что выберет пользователь smile
[vba]
Code
Sub ToRAN()
     Msg = "10%"     ' Define message.
     Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
     Title = "MsgBox Demonstration"    ' Define title.
     Help = "DEMO.HLP"    ' Define Help file.
     Ctxt = 1000    ' Define topic
' context.
' Display message.

     a = 10 * MsgBox(Msg, Style, Title, Help, Ctxt)
     MsgBox a
End Sub
[/vba]
Автор - Hugo
Дата добавления - 08.06.2012 в 22:48
RAN Дата: Пятница, 08.06.2012, 23:11 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Найди две разницы!
[vba]
Code
Sub ToHUGO()
     Msg = "20%"     ' Define message.
     Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
     Title = "MsgBox Demonstration"    ' Define title.
     Help = "DEMO.HLP"    ' Define Help file.
     Ctxt = 2000    ' Define topic
' context.
' Display message.
     a = 10 * MsgBox(Msg, Style, Title, Help, Ctxt)
     MsgBox a
End Sub
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНайди две разницы!
[vba]
Code
Sub ToHUGO()
     Msg = "20%"     ' Define message.
     Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
     Title = "MsgBox Demonstration"    ' Define title.
     Help = "DEMO.HLP"    ' Define Help file.
     Ctxt = 2000    ' Define topic
' context.
' Display message.
     a = 10 * MsgBox(Msg, Style, Title, Help, Ctxt)
     MsgBox a
End Sub
[/vba]
Автор - RAN
Дата добавления - 08.06.2012 в 23:11
Hugo Дата: Суббота, 09.06.2012, 00:04 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
Ну если мы написали
Msg = "20%"
то можем написать и
a = 20 * MsgBox(Msg, Style, Title, Help, Ctxt)
В общем, как-то так.
Ну а например "выдернуть значение из определенной ячейки" или не выдернуть - это вполне можно с помощью месиджбокса сделать.
Да вообще всё построено на 1/0, true/false, yes/no, так что можно и текст писать месиджбоксами smile
Написать А? да/нет
Написать Б? да/нет
и т.д.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНу если мы написали
Msg = "20%"
то можем написать и
a = 20 * MsgBox(Msg, Style, Title, Help, Ctxt)
В общем, как-то так.
Ну а например "выдернуть значение из определенной ячейки" или не выдернуть - это вполне можно с помощью месиджбокса сделать.
Да вообще всё построено на 1/0, true/false, yes/no, так что можно и текст писать месиджбоксами smile
Написать А? да/нет
Написать Б? да/нет
и т.д.
Автор - Hugo
Дата добавления - 09.06.2012 в 00:04
RAN Дата: Суббота, 09.06.2012, 00:08 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Напиши HUGO. biggrin

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНапиши HUGO. biggrin
Автор - RAN
Дата добавления - 09.06.2012 в 00:08
Hugo Дата: Суббота, 09.06.2012, 00:28 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
[vba]
Code
Sub ToTo()
     [a1].ClearContents
     Msg = "A1 = ""Hugo""?"     ' Define message
     Style = vbYesNo + vbQuestion + vbDefaultButton2    ' Define buttons.
     Title = "MsgBox Demonstration"    ' Define title.

     ' Display message.
     Response = MsgBox(Msg, Style, Title)
     If Response = vbYes Then    ' User chose Yes.
         [a1] = "Hugo"    ' Perform some action.
     Else    ' User chose No.
         [a1] = "RAN"     ' Perform some action.
     End If
End Sub
[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
Сообщение[vba]
Code
Sub ToTo()
     [a1].ClearContents
     Msg = "A1 = ""Hugo""?"     ' Define message
     Style = vbYesNo + vbQuestion + vbDefaultButton2    ' Define buttons.
     Title = "MsgBox Demonstration"    ' Define title.

     ' Display message.
     Response = MsgBox(Msg, Style, Title)
     If Response = vbYes Then    ' User chose Yes.
         [a1] = "Hugo"    ' Perform some action.
     Else    ' User chose No.
         [a1] = "RAN"     ' Perform some action.
     End If
End Sub
[/vba]
Автор - Hugo
Дата добавления - 09.06.2012 в 00:28
Саня Дата: Суббота, 09.06.2012, 00:31 | Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
вообще-то msgbox возвращает Integer, определяющий кнопку, по которой щелкнули...
[vba]
Code
MsgBox "я второй" & vbCr & MsgBox("первый пошел!") & " - это 1-й выдал"
[/vba]

Quote (konstantinp)
Добрый день, коллеги,
Как через MsgBox вывести не "текст", а выдернуть значение из определенной ячейки?


[vba]
Code
msgbox "текст"            ' это у тебя есть, и это надо изменить
msgbox range("D33")   ' это выводим значение из ячейки D33  
[/vba]
 
Ответить
Сообщениевообще-то msgbox возвращает Integer, определяющий кнопку, по которой щелкнули...
[vba]
Code
MsgBox "я второй" & vbCr & MsgBox("первый пошел!") & " - это 1-й выдал"
[/vba]

Quote (konstantinp)
Добрый день, коллеги,
Как через MsgBox вывести не "текст", а выдернуть значение из определенной ячейки?


[vba]
Code
msgbox "текст"            ' это у тебя есть, и это надо изменить
msgbox range("D33")   ' это выводим значение из ячейки D33  
[/vba]
Автор - Саня
Дата добавления - 09.06.2012 в 00:31
Hugo Дата: Суббота, 09.06.2012, 00:35 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
Ну да, в первом примере ответ был 60 или 70, смотря что на 10 умножалось smile

Из хелпа:

vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vbIgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНу да, в первом примере ответ был 60 или 70, смотря что на 10 умножалось smile

Из хелпа:

vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vbIgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No
Автор - Hugo
Дата добавления - 09.06.2012 в 00:35
konstantinp Дата: Суббота, 09.06.2012, 08:45 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 86
Репутация: 0 ±
Замечаний: 0% ±

Саня,
Собственно то, что и хотел.
Спасибо!
 
Ответить
СообщениеСаня,
Собственно то, что и хотел.
Спасибо!
Автор - konstantinp
Дата добавления - 09.06.2012 в 08:45
RAN Дата: Суббота, 09.06.2012, 09:02 | Сообщение № 13
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Вот что оказыается надо было!
А мне показалось, что есть желание использовать msg вместо input (ибо были прецеденты). smile

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеВот что оказыается надо было!
А мне показалось, что есть желание использовать msg вместо input (ибо были прецеденты). smile
Автор - RAN
Дата добавления - 09.06.2012 в 09:02
konstantinp Дата: Суббота, 09.06.2012, 11:04 | Сообщение № 14
Группа: Пользователи
Ранг: Участник
Сообщений: 86
Репутация: 0 ±
Замечаний: 0% ±

RAN,
А на самом деле все банально)))
 
Ответить
СообщениеRAN,
А на самом деле все банально)))
Автор - konstantinp
Дата добавления - 09.06.2012 в 11:04
Hugo Дата: Суббота, 09.06.2012, 14:44 | Сообщение № 15
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
А мы тут понаписали smile
Я думал, что в зависимисти от ответа на вопрос нужно скопировать или нет значение ячейки smile

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеА мы тут понаписали smile
Я думал, что в зависимисти от ответа на вопрос нужно скопировать или нет значение ячейки smile
Автор - Hugo
Дата добавления - 09.06.2012 в 14:44
Converse Дата: Воскресенье, 05.04.2015, 12:25 | Сообщение № 16
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Ребят такой вопрос нужно решить:
что то мини теста с ответом на 1 случайный вопрос при помощи MSBOX (допустим)
Есть 3 колонки (вопрос, правильный ответ и пояснение)
идея:
выскакивает окно с вопросом (в меседж бокс) далее 3 -5 ответов , если правильно то пишем правильно
если не правильно то пишем пояснение из (красной)
вот как бы все, помогите, не могу сообразить =(

как вариант: выскакивает вопрос можно тупо при нажатии кнопки правильный ответ и еще 1 окно пояснение (без ввода допустим)
естественно там у меня много будет вопросов, остальное вроде через "СЛУЧМЕЖДУ" реализовал с обновлением.
[moder]Читаем Правила форума, создаём свою тему в соответствующем разделе. Эта тема закрыта[/moder]
К сообщению приложен файл: 6322998.xlsx (8.6 Kb)


Сообщение отредактировал Pelena - Воскресенье, 05.04.2015, 12:31
 
Ответить
СообщениеРебят такой вопрос нужно решить:
что то мини теста с ответом на 1 случайный вопрос при помощи MSBOX (допустим)
Есть 3 колонки (вопрос, правильный ответ и пояснение)
идея:
выскакивает окно с вопросом (в меседж бокс) далее 3 -5 ответов , если правильно то пишем правильно
если не правильно то пишем пояснение из (красной)
вот как бы все, помогите, не могу сообразить =(

как вариант: выскакивает вопрос можно тупо при нажатии кнопки правильный ответ и еще 1 окно пояснение (без ввода допустим)
естественно там у меня много будет вопросов, остальное вроде через "СЛУЧМЕЖДУ" реализовал с обновлением.
[moder]Читаем Правила форума, создаём свою тему в соответствующем разделе. Эта тема закрыта[/moder]
Автор - Converse
Дата добавления - 05.04.2015 в 12:25
Мир MS Excel » Вопросы и решения » Вопросы по Excel » MsgBox
  • Страница 1 из 1
  • 1
Поиск:

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