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

Вход

Регистрация

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

 

= Мир MS Excel/Вывести таблицу значений в MsgBox - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывести таблицу значений в MsgBox (Макросы/Sub)
Вывести таблицу значений в MsgBox
ant6729 Дата: Пятница, 27.04.2018, 22:21 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
Всем привет, приложил файл

Как вывести в MsgBox данные таблицы справа?

Вводится значение в инпут и по нему выводится данные в MsgBox как в таблице справа?

Ps так, думаю, корректнее будет сформулировать
К сообщению приложен файл: 3452116.xlsm(18.8 Kb)


Сообщение отредактировал ant6729 - Суббота, 28.04.2018, 00:36
 
Ответить
СообщениеВсем привет, приложил файл

Как вывести в MsgBox данные таблицы справа?

Вводится значение в инпут и по нему выводится данные в MsgBox как в таблице справа?

Ps так, думаю, корректнее будет сформулировать

Автор - ant6729
Дата добавления - 27.04.2018 в 22:21
Апострофф Дата: Суббота, 28.04.2018, 07:55 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 154
Репутация: 56 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Sub lldld()
Dim m As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
m = InputBox(Message, "Insert", 1234567)
For i = 2 To lr
  If Cells(i, 1).Value = m Then O = O & " " & Cells(i, 2) & " " & Cells(i, 3) & " " & Cells(i, 4) & vbLf
Next i
MsgBox O, , m
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub lldld()
Dim m As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
m = InputBox(Message, "Insert", 1234567)
For i = 2 To lr
  If Cells(i, 1).Value = m Then O = O & " " & Cells(i, 2) & " " & Cells(i, 3) & " " & Cells(i, 4) & vbLf
Next i
MsgBox O, , m
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 28.04.2018 в 07:55
ant6729 Дата: Суббота, 28.04.2018, 12:16 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
Мдя...
Какой только код у меня в голове не шел за это время...
Но только не так, как его тут написали...
А ведь добавили только "пару" символов...
Опять я потух...

Апострофф, спасибо за код и за приём!!!
 
Ответить
СообщениеМдя...
Какой только код у меня в голове не шел за это время...
Но только не так, как его тут написали...
А ведь добавили только "пару" символов...
Опять я потух...

Апострофф, спасибо за код и за приём!!!

Автор - ant6729
Дата добавления - 28.04.2018 в 12:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывести таблицу значений в MsgBox (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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