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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывести таблицу значений в MsgBox (Макросы/Sub)
Вывести таблицу значений в MsgBox
ant6729 Дата: Пятница, 27.04.2018, 22:21 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

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
Группа: Проверенные
Ранг: Обитатель
Сообщений: 444
Репутация: 122 ±
Замечаний: 0% ±

Excel 1997
[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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

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

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

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

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

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