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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир 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
Группа: Друзья
Ранг: Экселист
Сообщений: 7158
Репутация: 1652 ±
Замечаний: 0% ±

Excel 2010
в моем случае это будет 5 строка
почему?
который по нажатию кнопки выводит
куда выводит?


ЮMoney 41001841029809
 
Ответить
Сообщение
в моем случае это будет 5 строка
почему?
который по нажатию кнопки выводит
куда выводит?

Автор - Nic70y
Дата добавления - 15.10.2021 в 14:55
Trainz12 Дата: Пятница, 15.10.2021, 17:29 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2016
почему?

Потому, что в ячейке B5 указано наименьшее время.
куда выводит?

MsgBox


Сообщение отредактировал Trainz12 - Пятница, 15.10.2021, 17:39
 
Ответить
Сообщение
почему?

Потому, что в ячейке B5 указано наименьшее время.
куда выводит?

MsgBox

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

Excel 2010
Потому, что в ячейке 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
 
Ответить
Сообщение
Потому, что в ячейке 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
Группа: Друзья
Ранг: Ветеран
Сообщений: 520
Репутация: 151 ±
Замечаний: 0% ±

2013, 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
Поиск:

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