Страницы: 1
RSS
Функции InputBox и MsgBox
 
Например есть три столбца с названием x y z нужно занести в них некоторою информацию с помощью функций InputBox и MsgBox ви можете подсказать как это делается. Заранье спасибо
 
столбец - понятие растяжимое. Неясно, что именно вы хотите. И зачем MsgBox, если надо данные "вводить"?
Кому решение нужно - тот пример и рисует.
 
{quote}{login=Пытливый}{date=10.11.2011 11:24}{thema=}{post}столбец - понятие растяжимое. Неясно, что именно вы хотите. И зачем MsgBox, если надо данные "вводить"?{/post}{/quote}  
у меня есть задание и там написано что нужно вводить данные с помощью функции InputBox и MsgBox
 
{quote}{login=fifa-gamer}{date=10.11.2011 11:29}{thema=Re: }{post}{quote}{login=Пытливый}{date=10.11.2011 11:24}{thema=}{post}{/post}{/quote}у меня есть задание и там написано что нужно вводить данные с помощью функции InputBox и MsgBox{/post}{/quote}Скажите тому, кто Вам дал такое задание, что MsgBox только ВЫВОДИТ сообщение/данные. Будет спорить - шлите его сюда - пусть покажет ввод с помощью MsgBox.
 
MsgBox возвращает значение в зависимости от нажатой кнопки!
 
{quote}{login=Юрий М}{date=10.11.2011 11:31}{thema=Re: Re: }{post}{quote}{login=fifa-gamer}{date=10.11.2011 11:29}{thema=Re: }{post}{quote}{login=Пытливый}{date=10.11.2011 11:24}{thema=}{post}{/post}{/quote}у меня есть задание и там написано что нужно вводить данные с помощью функции InputBox и MsgBox{/post}{/quote}Скажите тому, кто Вам дал такое задание, что MsgBox только ВЫВОДИТ сообщение/данные. Будет спорить - шлите его сюда - пусть покажет ввод с помощью MsgBox.{/post}{/quote}  
Задание  
http://i079.radikal.ru/1111/46/53c1f6ff3f7f.png
 
Казанский - "уел, чертяка языкастый!" :О)
Кому решение нужно - тот пример и рисует.
 
И ведь не лень - сканировать, идти на файлообменник... Сюда текст нельзя было выложить? Некоторые, правда, не поймут без перевода.
 
Была такая тема - организовать диалог с пользователем с помощью MsgBox :)  
Я помню сказал - можно, но очень долго и много придётся MsgBoxы выводить.
 
{quote}{login=Юрий М}{date=10.11.2011 11:41}{thema=}{post}И ведь не лень - сканировать, идти на файлообменник... Сюда текст нельзя было выложить? Некоторые, правда, не поймут без перевода.{/post}{/quote}  
Вы не подскажете как это сделать
 
>> Вы не подскажете как это сделать  
 
Что сделать?
 
{quote}{login=Юрий М}{date=10.11.2011 11:47}{thema=Re: Re: }{post}>> Вы не подскажете как это сделать  
 
Что сделать?{/post}{/quote}  
Внос данных в таблицу с помощью функций InputBox и MsgBox
 
Ещё раз: с помощью MsgBox нельзя.  
На всякий случай повторю: с помощью MsgBox нельзя.
 
Sub Vns()  
[A1]=InputBox ("Внос данных в таблицу")
End Sab  
А MsgBox - только на вынос!
 
{quote}{login=Юрий М}{date=10.11.2011 11:55}{thema=}{post}Ещё раз: с помощью MsgBox нельзя.  
На всякий случай повторю: с помощью MsgBox нельзя.{/post}{/quote}  
Задание написано неверно ?  
http://i079.radikal.ru/1111/46/53c1f6ff3f7f.png
 
А что там написано?
 
{quote}{login=RAN}{date=11.11.2011 12:02}{thema=}{post}А что там написано?{/post}{/quote}  
http://i079.radikal.ru/1111/46/53c1f6ff3f7f.png скрин на украинском
 
MsgBox - и на внос! :О)  
 
Sub ggg()  
[a1] = MsgBox("Ты перестал пить коньяк по утрам?", vbYesNo)
End Sub  
 
 
 
55699, крррасиво!
Кому решение нужно - тот пример и рисует.
 
"Дані заносити з використанням функції InputBox та MsgBox".  
Также там упоминается Лабораторная №1, о которой мы ничего не знаем.  
Видимо имеется ввиду использование MsgBox для сообщения о неверном вводе или других событиях, а не конкретно для ввода.
 
{quote}{login=Димон}{date=11.11.2011 12:11}{thema=}{post}"Дані заносити з використанням функції InputBox та MsgBox".  
Также там упоминается Лабораторная №1, о которой мы ничего не знаем.  
Видимо имеется ввиду использование MsgBox для сообщения о неверном вводе или других событиях, а не конкретно для ввода.{/post}{/quote}  
Просто начали учить ВБ для икселя и там есть такое задание, а Лабораторная №1 там самая простая задача таблица длинной 6 ячейок там инженер его плата и т.д.
 
Ввод любой цифры с помощью MsgBox :)  
 
 
Sub ggg()  
10:  
   x = MsgBox("Посчитаем?", vbYesNo)  
   If x = 6 Then  
       x = MsgBox("1?", vbYesNo)  
       If x = 7 Then  
           x = MsgBox("2?", vbYesNo)  
           If x = 7 Then  
               x = MsgBox("3?", vbYesNo)  
               If x = 7 Then  
                   x = MsgBox("4?", vbYesNo)  
                   If x = 7 Then  
                       x = MsgBox("5?", vbYesNo)  
                       If x = 7 Then  
                           x = MsgBox("6?", vbYesNo)  
                           If x = 7 Then  
                               x = MsgBox("7?", vbYesNo)  
                               If x = 7 Then  
                                   x = MsgBox("8?", vbYesNo)  
                                   If x = 7 Then  
                                       x = MsgBox("9?", vbYesNo)  
                                       If x = 7 Then  
                                           x = MsgBox("0?", vbYesNo)  
                                           If x = 7 Then  
                                               GoTo 10  
                                           Else  
                                               [a1] = 0
                                               GoTo 10  
                                           End If  
                                       Else  
                                           [a1] = 9
                                           GoTo 10  
                                       End If  
                                   Else  
                                       [a1] = 8
                                       GoTo 10  
                                   End If  
                               Else  
                                   [a1] = 7
                                   GoTo 10  
                               End If  
                           Else  
                               [a1] = 6
                               GoTo 10  
                           End If  
                       Else  
                           [a1] = 5
                           GoTo 10  
                       End If  
                   Else  
                       [a1] = 4
                       GoTo 10  
                   End If  
               Else  
                   [a1] = 3
                   GoTo 10  
               End If  
           Else  
               [a1] = 2
               GoTo 10  
           End If  
       Else  
           [a1] = 1
           GoTo 10  
       End If  
   End If  
 
End Sub
 
:-)) Игорь, я тут подумал - какой длины будет код для ввода текста :-)
 
Не такой длинный как кажется на первый взгляд. Например для цифр и букв русского алфавита....
 
Армянин читает на пивном ларьке "Пива нет, а для армян вообще нет!".  
Спрашивает у продавца:  
- А почему для армян вообще нет?  
- Потому что когда армяне спрашивают: "Пиво есть?", им отвечают: "Нет", то они обязательно переспрашивают: "Вообще нет?"
 
Да, можно вероятно покороче сделать, подумав над вопросом, но это напрасный труд, т.к практического смысла не имеет.  
В принципе, должно хватить выбора из двух вариантов - 1/0, далее всё остальное можно получить из сочетания этих двух символов :)  
Но если стоит вопрос - можно ли с помощью Msgbox вводить данные - ответ: можно!
Страницы: 1
Читают тему
Наверх