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

Вход

Регистрация

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

 

= Мир MS Excel/Listbox в форме с multipage - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Listbox в форме с multipage
AKSENOV048 Дата: Понедельник, 05.09.2011, 18:42 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 6 ±
Замечаний: 0% ±

Здравствуйте! продолжаю предыдущею тему. не соображу как сделать, чтобы для каждого листобкса данные брались из разных листов: в форме есть multipage с 3мя страницами, на каждой из них есть еще multipage также с тремя листами, на каждом листе есть listbox данные для которых берутся с разных листов, в плане, что данные для listbox1 с первой страницы, listbox2 со второй и .т.д
????
сейчас выглядит так ListBox1.List = Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value
я пробовал ListBox1.List = Range(Sheets(1).Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value
with sheets(1)
ListBox1.List = Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value


Сообщение отредактировал AKSENOV048 - Понедельник, 05.09.2011, 19:06
 
Ответить
СообщениеЗдравствуйте! продолжаю предыдущею тему. не соображу как сделать, чтобы для каждого листобкса данные брались из разных листов: в форме есть multipage с 3мя страницами, на каждой из них есть еще multipage также с тремя листами, на каждом листе есть listbox данные для которых берутся с разных листов, в плане, что данные для listbox1 с первой страницы, listbox2 со второй и .т.д
????
сейчас выглядит так ListBox1.List = Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value
я пробовал ListBox1.List = Range(Sheets(1).Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value
with sheets(1)
ListBox1.List = Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value

Автор - AKSENOV048
Дата добавления - 05.09.2011 в 18:42
nilem Дата: Понедельник, 05.09.2011, 19:18 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Попробуйте так (на точки обратите внимание):

With Sheets(1)
ListBox1.List = .Range(.Cells(3, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value
End With


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеПопробуйте так (на точки обратите внимание):

With Sheets(1)
ListBox1.List = .Range(.Cells(3, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value
End With

Автор - nilem
Дата добавления - 05.09.2011 в 19:18
AKSENOV048 Дата: Понедельник, 05.09.2011, 19:27 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 6 ±
Замечаний: 0% ±

Спасибо большое! все дело в точке.)
 
Ответить
СообщениеСпасибо большое! все дело в точке.)

Автор - AKSENOV048
Дата добавления - 05.09.2011 в 19:27
  • Страница 1 из 1
  • 1
Поиск:

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