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

Вход

Регистрация

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

 

= Мир MS Excel/Вывод данных из диапазона строк и столбцов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод данных из диапазона строк и столбцов (Макросы/Sub)
Вывод данных из диапазона строк и столбцов
Trainz12 Дата: Пятница, 15.10.2021, 14:29 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2016
Просьба помочь составить программный код, который по нажатию кнопки выводит данные из 4 строки + диапазона A5:G17 ряд, в котором в столбце B5:B17 будет наименьшее время (в моем случае это будет 5 строка).
К сообщению приложен файл: 5893682.xls (32.5 Kb)
 
Ответить
СообщениеПросьба помочь составить программный код, который по нажатию кнопки выводит данные из 4 строки + диапазона A5:G17 ряд, в котором в столбце B5:B17 будет наименьшее время (в моем случае это будет 5 строка).
Автор - Trainz12
Дата добавления - 15.10.2021 в 14:29
Nic70y Дата: Пятница, 15.10.2021, 14:55 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
Цитата Trainz12, 15.10.2021 в 14:29, в сообщении № 1 ()
в моем случае это будет 5 строка
почему?
Цитата Trainz12, 15.10.2021 в 14:29, в сообщении № 1 ()
который по нажатию кнопки выводит
куда выводит?

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата Trainz12, 15.10.2021 в 14:29, в сообщении № 1 ()
в моем случае это будет 5 строка
почему?
Цитата Trainz12, 15.10.2021 в 14:29, в сообщении № 1 ()
который по нажатию кнопки выводит
куда выводит?
Автор - Nic70y
Дата добавления - 15.10.2021 в 14:55
Trainz12 Дата: Пятница, 15.10.2021, 17:29 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2016
Цитата Nic70y, 15.10.2021 в 14:55, в сообщении № 2 ()
почему?

Потому, что в ячейке B5 указано наименьшее время.
Цитата Nic70y, 15.10.2021 в 14:55, в сообщении № 2 ()
куда выводит?

MsgBox


Сообщение отредактировал Trainz12 - Пятница, 15.10.2021, 17:39
 
Ответить
Сообщение
Цитата Nic70y, 15.10.2021 в 14:55, в сообщении № 2 ()
почему?

Потому, что в ячейке B5 указано наименьшее время.
Цитата Nic70y, 15.10.2021 в 14:55, в сообщении № 2 ()
куда выводит?

MsgBox
Автор - Trainz12
Дата добавления - 15.10.2021 в 17:29
Nic70y Дата: Суббота, 16.10.2021, 08:12 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
Цитата Trainz12, 15.10.2021 в 17:29, в сообщении № 3 ()
Потому, что в ячейке B5 указано наименьшее время.
Вы в этом уверены?
в B5 - 3:01:00
в B17 - 1:57:00
[vba]
Код
Sub u_700()
    u = Cells(Rows.Count, "b").End(xlUp).Row
    v = Application.Min(Range("b5:b" & u))
    w = Application.Match(v, Range("b5:b" & u), 0) + 4
    a = Range("a4").Value & " - " & Range("a" & w).Value & Chr(10)
    b = Range("b4").Value & " - " & Format(Range("b" & w), "hh:mm") & Chr(10)
    c = Range("c4").Value & " - " & Format(Range("c" & w), "hh:mm") & Chr(10)
    d = Range("d4").Value & " - " & Format(Range("d" & w), "hh:mm") & Chr(10)
    e = Range("e4").Value & " - " & Format(Range("e" & w), "hh:mm") & Chr(10)
    f = Range("f4").Value & " - " & Format(Range("f" & w), "hh:mm") & Chr(10)
    g = Range("g4").Value & " - " & Range("g" & w).Value
    MsgBox a & b & c & d & e & f & g
End Sub
[/vba]
К сообщению приложен файл: 5893682-1-.xls (41.5 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата Trainz12, 15.10.2021 в 17:29, в сообщении № 3 ()
Потому, что в ячейке B5 указано наименьшее время.
Вы в этом уверены?
в B5 - 3:01:00
в B17 - 1:57:00
[vba]
Код
Sub u_700()
    u = Cells(Rows.Count, "b").End(xlUp).Row
    v = Application.Min(Range("b5:b" & u))
    w = Application.Match(v, Range("b5:b" & u), 0) + 4
    a = Range("a4").Value & " - " & Range("a" & w).Value & Chr(10)
    b = Range("b4").Value & " - " & Format(Range("b" & w), "hh:mm") & Chr(10)
    c = Range("c4").Value & " - " & Format(Range("c" & w), "hh:mm") & Chr(10)
    d = Range("d4").Value & " - " & Format(Range("d" & w), "hh:mm") & Chr(10)
    e = Range("e4").Value & " - " & Format(Range("e" & w), "hh:mm") & Chr(10)
    f = Range("f4").Value & " - " & Format(Range("f" & w), "hh:mm") & Chr(10)
    g = Range("g4").Value & " - " & Range("g" & w).Value
    MsgBox a & b & c & d & e & f & g
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 16.10.2021 в 08:12
boa Дата: Воскресенье, 17.10.2021, 01:42 | Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 550
Репутация: 167 ±
Замечаний: 0% ±

365
Здравствуйте, Trainz12,

не понимаю, зачем вам меседж..
Тем более, что у вас, действительно, ошибочное понимание минимального...
сделал вам подсветку формулой (УФ) ))

И вообще, не верьте в панацею макросов, скоро введут в сборки функцию LAMBDA и большая часть пользовательских функций станут не нужными ((
К сообщению приложен файл: 4905129.xls (41.5 Kb)



Сообщение отредактировал boa - Воскресенье, 17.10.2021, 01:56
 
Ответить
СообщениеЗдравствуйте, Trainz12,

не понимаю, зачем вам меседж..
Тем более, что у вас, действительно, ошибочное понимание минимального...
сделал вам подсветку формулой (УФ) ))

И вообще, не верьте в панацею макросов, скоро введут в сборки функцию LAMBDA и большая часть пользовательских функций станут не нужными ((
Автор - boa
Дата добавления - 17.10.2021 в 01:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод данных из диапазона строк и столбцов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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