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

Вход

Регистрация

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

 

= Мир MS Excel/Ввод данных, аналог "Inputbox" - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод данных, аналог "Inputbox" (Макросы/Sub)
Ввод данных, аналог "Inputbox"
Roman777 Дата: Понедельник, 30.03.2015, 13:47 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Добрый день!
Если ли в ВБА функция - аналог InputBox, только с помощью которой можно было бы задать сразу несколько переменных через одно окошко?

Много чего не знаю!!!!
 
Ответить
СообщениеДобрый день!
Если ли в ВБА функция - аналог InputBox, только с помощью которой можно было бы задать сразу несколько переменных через одно окошко?
Автор - Roman777
Дата добавления - 30.03.2015 в 13:47
DJ_Marker_MC Дата: Понедельник, 30.03.2015, 13:51 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Добрый день. Есть... собственно созданные USERFORM.

Пример в приложении
К сообщению приложен файл: TEST.xls (41.0 Kb)
 
Ответить
СообщениеДобрый день. Есть... собственно созданные USERFORM.

Пример в приложении
Автор - DJ_Marker_MC
Дата добавления - 30.03.2015 в 13:51
Roman777 Дата: Понедельник, 30.03.2015, 13:57 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
DJ_Marker_MC, Спасибо за направление!

Много чего не знаю!!!!
 
Ответить
СообщениеDJ_Marker_MC, Спасибо за направление!
Автор - Roman777
Дата добавления - 30.03.2015 в 13:57
Rioran Дата: Понедельник, 30.03.2015, 14:25 | Сообщение № 4
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Roman777, здравствуйте.

Собственная форма, конечно, хорошо. Но, на мой вкус, есть более быстрый вариант:

[vba]
Код
Sub Test_01()

Dim ArrX As Variant, i As Long

ArrX = Split(InputBox("Впишите значения переменных через пробел:", "Окно ввода."), " ")

For i = 0 To UBound(ArrX)
     MsgBox "Переменная № " & i + 1 & ": " & ArrX(i)
Next i

End Sub
[/vba]
К сообщению приложен файл: Rio_Vars.xlsb (17.3 Kb)

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеRoman777, здравствуйте.

Собственная форма, конечно, хорошо. Но, на мой вкус, есть более быстрый вариант:

[vba]
Код
Sub Test_01()

Dim ArrX As Variant, i As Long

ArrX = Split(InputBox("Впишите значения переменных через пробел:", "Окно ввода."), " ")

For i = 0 To UBound(ArrX)
     MsgBox "Переменная № " & i + 1 & ": " & ArrX(i)
Next i

End Sub
[/vba]
Автор - Rioran
Дата добавления - 30.03.2015 в 14:25
Roman777 Дата: Понедельник, 30.03.2015, 15:28 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Rioran, Оч хороший тоже вариант. А если хочется в 1-м окошке сразу ввести несколько переменных, а одну переменную задать ячейкой вообще (или диапазоном)...?

Много чего не знаю!!!!
 
Ответить
СообщениеRioran, Оч хороший тоже вариант. А если хочется в 1-м окошке сразу ввести несколько переменных, а одну переменную задать ячейкой вообще (или диапазоном)...?
Автор - Roman777
Дата добавления - 30.03.2015 в 15:28
Roman777 Дата: Понедельник, 30.03.2015, 15:30 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Мне тут в теме можно задать вопрос по Userform? Или лучше отдельно?
[moder]Смотря какой вопрос. Если он напрямую связян с выводом данных, аналогом IB, то здесь, иначе - там.

Много чего не знаю!!!!

Сообщение отредактировал _Boroda_ - Понедельник, 30.03.2015, 15:35
 
Ответить
СообщениеМне тут в теме можно задать вопрос по Userform? Или лучше отдельно?
[moder]Смотря какой вопрос. Если он напрямую связян с выводом данных, аналогом IB, то здесь, иначе - там.
Автор - Roman777
Дата добавления - 30.03.2015 в 15:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод данных, аналог "Inputbox" (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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