Доброго времени суток Выдает ошибку при получении макс значения или минимального из другого листа в зависимости от выбираемого имени из списка listbox может есть более изящное решение Код вроде должен был работать, но что-то подсказывает мне что где - то ошибка
Доброго времени суток Выдает ошибку при получении макс значения или минимального из другого листа в зависимости от выбираемого имени из списка listbox может есть более изящное решение Код вроде должен был работать, но что-то подсказывает мне что где - то ошибкаAsretyq
Dim li As Worksheet Set li = Worksheets(ListBox1.Text)
MsgBox li.Name With li MsgBox Application.Min(.Range("C2:D" & .Cells(Rows.Count, 4).End(xlUp).Row)) MsgBox Application.Max(.Range("C2:D" & .Cells(Rows.Count, 4).End(xlUp).Row)) End With End Sub
[/vba] Вы пытались у стринговой переменной найти свойство Range (как минимум поэтому ругался). Ошибка была не только в этом
Asretyq, Попробуйте так: [vba]
Код
Private Sub ListBox1_Click()
Dim li As Worksheet Set li = Worksheets(ListBox1.Text)
MsgBox li.Name With li MsgBox Application.Min(.Range("C2:D" & .Cells(Rows.Count, 4).End(xlUp).Row)) MsgBox Application.Max(.Range("C2:D" & .Cells(Rows.Count, 4).End(xlUp).Row)) End With End Sub
[/vba] Вы пытались у стринговой переменной найти свойство Range (как минимум поэтому ругался). Ошибка была не только в этомRoman777
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
