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

Вход

Регистрация

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

 

= Мир MS Excel/ссылка на другой лист из имени listbox - Мир MS Excel

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

Excel 2013
Доброго времени суток
Выдает ошибку при получении макс значения или минимального из другого листа в зависимости от выбираемого имени из списка listbox
может есть более изящное решение
Код вроде должен был работать, но что-то подсказывает мне что где - то ошибка
К сообщению приложен файл: 222.xlsm (21.9 Kb)
 
Ответить
СообщениеДоброго времени суток
Выдает ошибку при получении макс значения или минимального из другого листа в зависимости от выбираемого имени из списка listbox
может есть более изящное решение
Код вроде должен был работать, но что-то подсказывает мне что где - то ошибка
Автор - Asretyq
Дата добавления - 27.01.2019 в 17:54
Nic70y Дата: Воскресенье, 27.01.2019, 18:28 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
li = ListBox1.Text

MsgBox li
'MsgBox Application.Min(li.Range("C2:" & li.Range("d100").End(xlUp).Address))
'MsgBox Application.Max(li.Range("C2:" & li.Range("d100").End(xlUp).Address))
MsgBox Application.Min(Sheets(li).Range("C2:" & Sheets(li).Range("d100").End(xlUp).Address))
MsgBox Application.Max(Sheets(li).Range("C2:" & Sheets(li).Range("d100").End(xlUp).Address))
[/vba]

ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
li = ListBox1.Text

MsgBox li
'MsgBox Application.Min(li.Range("C2:" & li.Range("d100").End(xlUp).Address))
'MsgBox Application.Max(li.Range("C2:" & li.Range("d100").End(xlUp).Address))
MsgBox Application.Min(Sheets(li).Range("C2:" & Sheets(li).Range("d100").End(xlUp).Address))
MsgBox Application.Max(Sheets(li).Range("C2:" & Sheets(li).Range("d100").End(xlUp).Address))
[/vba]
Автор - Nic70y
Дата добавления - 27.01.2019 в 18:28
Roman777 Дата: Воскресенье, 27.01.2019, 18:31 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
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 (как минимум поэтому ругался). Ошибка была не только в этом

Много чего не знаю!!!!
 
Ответить
Сообщение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
Дата добавления - 27.01.2019 в 18:31
Asretyq Дата: Воскресенье, 27.01.2019, 18:49 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Nic70y, кстати я думал таким образом прописать, но сдался после нескольких попыток, думал не получится

Nic70y, Roman777, Спасибо вам за ответы!!!


Сообщение отредактировал Asretyq - Воскресенье, 27.01.2019, 18:50
 
Ответить
СообщениеNic70y, кстати я думал таким образом прописать, но сдался после нескольких попыток, думал не получится

Nic70y, Roman777, Спасибо вам за ответы!!!
Автор - Asretyq
Дата добавления - 27.01.2019 в 18:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ссылка на другой лист из имени listbox (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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