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

Вход

Регистрация

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

 

= Мир MS Excel/ListBox таблица - Мир MS Excel

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

Здравствуйте. Подскажите пожалуйста, можно ли в форме, в ListBox отобразить таблицу находящуюся на первом листе?
К сообщению приложен файл: 4828877.xls (37.5 Kb)
 
Ответить
СообщениеЗдравствуйте. Подскажите пожалуйста, можно ли в форме, в ListBox отобразить таблицу находящуюся на первом листе?

Автор - AKSENOV048
Дата добавления - 01.09.2011 в 14:27
Формуляр Дата: Четверг, 01.09.2011, 15:46 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 832
Репутация: 255 ±
Замечаний: 0% ±

Excel 2003, 2013
Видимо, вам тоже сюда:
Quote (limonnoe_nebo)
light26, http://www.planetaexcel.ru/tip.php?aid=34 способ 4 - вроде похоже на решение Вашего вопроса... извините, если не то :-)


Excel 2003 EN, 2013 EN
 
Ответить
СообщениеВидимо, вам тоже сюда:
Quote (limonnoe_nebo)
light26, http://www.planetaexcel.ru/tip.php?aid=34 способ 4 - вроде похоже на решение Вашего вопроса... извините, если не то :-)

Автор - Формуляр
Дата добавления - 01.09.2011 в 15:46
AKSENOV048 Дата: Четверг, 01.09.2011, 15:53 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 6 ±
Замечаний: 0% ±

Спасибо, но это не то. у меня есть в VBA userforma на которой есть ListBox в котором я бы хотел видеть таблицу находящуюся на листе "пример". или я может не правильно понял ваше предложение.
 
Ответить
СообщениеСпасибо, но это не то. у меня есть в VBA userforma на которой есть ListBox в котором я бы хотел видеть таблицу находящуюся на листе "пример". или я может не правильно понял ваше предложение.

Автор - AKSENOV048
Дата добавления - 01.09.2011 в 15:53
Alex_ST Дата: Четверг, 01.09.2011, 15:56 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3199
Репутация: 606 ±
Замечаний: 0% ±

2003
Да нет, Формуляр, ему не туда.
Я посмотрел - AKSENOV048 просто поленился на листе кнопочку сделать для показа формы, на которой Листбокс лежит.
Да и свой ЕДИНСТВЕННЫЙ лист он переименовать в Лист1 поленился, хотя сам же и просил именно с первого листа заполнять.
В общем тут он нам оставил море для разгула фантазии: мол, сами догадайтесь, какому из столбцов ЛистБокса должен какой из столбцов на каком из листов соответствовать, нужно ли автоматическое пополнение списка листбокса при увеличении числа строк и т.д. и т.п.

AKSENOV048,
здесь обычно ПОМОГАЮТ решать задачи, а НЕ РЕШАЮТ ЗА ТОПИК-СТАРТЕРА angry
Покажите, что вы сами сделали. Скажите, на чём заткнулись. Подробнее опишите свою "хотелку"...
Вот тогда вам и будут ПОМОГАТЬ.



С уважением,
Алексей
MS Excel 2003 - the best!!!


Сообщение отредактировал Alex_ST - Четверг, 01.09.2011, 15:58
 
Ответить
СообщениеДа нет, Формуляр, ему не туда.
Я посмотрел - AKSENOV048 просто поленился на листе кнопочку сделать для показа формы, на которой Листбокс лежит.
Да и свой ЕДИНСТВЕННЫЙ лист он переименовать в Лист1 поленился, хотя сам же и просил именно с первого листа заполнять.
В общем тут он нам оставил море для разгула фантазии: мол, сами догадайтесь, какому из столбцов ЛистБокса должен какой из столбцов на каком из листов соответствовать, нужно ли автоматическое пополнение списка листбокса при увеличении числа строк и т.д. и т.п.

AKSENOV048,
здесь обычно ПОМОГАЮТ решать задачи, а НЕ РЕШАЮТ ЗА ТОПИК-СТАРТЕРА angry
Покажите, что вы сами сделали. Скажите, на чём заткнулись. Подробнее опишите свою "хотелку"...
Вот тогда вам и будут ПОМОГАТЬ.

Автор - Alex_ST
Дата добавления - 01.09.2011 в 15:56
Hugo Дата: Четверг, 01.09.2011, 16:04 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
Да в общем несложно:
Code
Private Sub UserForm_Initialize()
Dim iLastRow As Long
Dim Arr()
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
      With Me.ListBox1
          Arr = Range(Cells(3, 1), Cells(iLastRow, 7)).Value
          .List = Arr
      End With
End Sub

Только задать листбоксу 7 колонок в свойствах, ширину колонок поставить, заголовки подвигать...

А если сократить, как в алгебре smile :
Code
Private Sub UserForm_Initialize()
Me.ListBox1.List = Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value
End Sub


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеДа в общем несложно:
Code
Private Sub UserForm_Initialize()
Dim iLastRow As Long
Dim Arr()
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
      With Me.ListBox1
          Arr = Range(Cells(3, 1), Cells(iLastRow, 7)).Value
          .List = Arr
      End With
End Sub

Только задать листбоксу 7 колонок в свойствах, ширину колонок поставить, заголовки подвигать...

А если сократить, как в алгебре smile :
Code
Private Sub UserForm_Initialize()
Me.ListBox1.List = Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value
End Sub

Автор - Hugo
Дата добавления - 01.09.2011 в 16:04
light26 Дата: Четверг, 01.09.2011, 16:29 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Quote (Alex_ST)
здесь обычно ПОМОГАЮТ решать задачи, а НЕ РЕШАЮТ ЗА ТОПИК-СТАРТЕРА angry
Покажите, что вы сами сделали

Здравствуйте, Алексей.
А что же делать тем, кто сам не умеет?...


Я не волшебник. Я только учусь
 
Ответить
Сообщение
Quote (Alex_ST)
здесь обычно ПОМОГАЮТ решать задачи, а НЕ РЕШАЮТ ЗА ТОПИК-СТАРТЕРА angry
Покажите, что вы сами сделали

Здравствуйте, Алексей.
А что же делать тем, кто сам не умеет?...

Автор - light26
Дата добавления - 01.09.2011 в 16:29
Hugo Дата: Четверг, 01.09.2011, 16:34 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
Алексей, AKSENOV048 красивую форму с листбоксом сделал, и даже макрос запуска формы сделал.
И данные на листе есть.
Кнопку только не нарисовал...
Мне кажется, зря наезжаешь.


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеАлексей, AKSENOV048 красивую форму с листбоксом сделал, и даже макрос запуска формы сделал.
И данные на листе есть.
Кнопку только не нарисовал...
Мне кажется, зря наезжаешь.

Автор - Hugo
Дата добавления - 01.09.2011 в 16:34
AKSENOV048 Дата: Четверг, 01.09.2011, 19:39 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 6 ±
Замечаний: 0% ±

Спасибо за ответы и за помощь! HUGO вы как всегда выручили)

Alex_ST, если я действительно, не понятно объяснил, не уточнил что мне надо, я извиняюсь. Но почему то остальные форумчане меня и мою "хотелку" поняли!) по поводу кнопки, думал в примере она не понадобиться, т.к. сделал авто запуск при открытии книги. По поводу поленился переименовать единственный лист, вы не правы не поленился и наоборот удалил два лишних листа, а единственны лист просто переименовал в "ПРИМЕР", и действительно попросил брать данные с первого листа(он же единственный в книге), а не с Листа1(как вы мне кажется подумали)!
По поводу пояснить какому столбцу в ListBox какое значение из таблицы присваивать, подумал что там (в примере) все понятно написано и в таблице на листе и в форме есть одинаковые заголовки! вы меня этим даже немного удивили. wink

Light26 почему то я такого же мнения как и вы. что делать тем кто сам не умеет?... по моему для этого и существуют Форумы.
Alex_ST допустим вы абсолютно не разбираетесь в Photoshop, абсолютно, но вам край нужно сделать что то в нем, и вы зададите на форуме спросите как сделать это сделать, я же вам не буду отвечать:
"Подробнее опишите свою "хотелку"..."
"здесь обычно ПОМОГАЮТ решать задачи, а НЕ РЕШАЮТ ЗА ТОПИК-СТАРТЕРА angry "
"поленился"

Спасибо HUGO за оценку формы!) приятно. biggrin
 
Ответить
СообщениеСпасибо за ответы и за помощь! HUGO вы как всегда выручили)

Alex_ST, если я действительно, не понятно объяснил, не уточнил что мне надо, я извиняюсь. Но почему то остальные форумчане меня и мою "хотелку" поняли!) по поводу кнопки, думал в примере она не понадобиться, т.к. сделал авто запуск при открытии книги. По поводу поленился переименовать единственный лист, вы не правы не поленился и наоборот удалил два лишних листа, а единственны лист просто переименовал в "ПРИМЕР", и действительно попросил брать данные с первого листа(он же единственный в книге), а не с Листа1(как вы мне кажется подумали)!
По поводу пояснить какому столбцу в ListBox какое значение из таблицы присваивать, подумал что там (в примере) все понятно написано и в таблице на листе и в форме есть одинаковые заголовки! вы меня этим даже немного удивили. wink

Light26 почему то я такого же мнения как и вы. что делать тем кто сам не умеет?... по моему для этого и существуют Форумы.
Alex_ST допустим вы абсолютно не разбираетесь в Photoshop, абсолютно, но вам край нужно сделать что то в нем, и вы зададите на форуме спросите как сделать это сделать, я же вам не буду отвечать:
"Подробнее опишите свою "хотелку"..."
"здесь обычно ПОМОГАЮТ решать задачи, а НЕ РЕШАЮТ ЗА ТОПИК-СТАРТЕРА angry "
"поленился"

Спасибо HUGO за оценку формы!) приятно. biggrin

Автор - AKSENOV048
Дата добавления - 01.09.2011 в 19:39
AKSENOV048 Дата: Четверг, 01.09.2011, 19:49 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 6 ±
Замечаний: 0% ±

скажите пожалуйста, а возможно ли сделать, так чтобы если я выбираю в Листбоксе любую строку во втором столбце (наименование), то появлялась следующая форма. или чтобы это считалось как нажатие на листе в таблице. сейчас не понятно объяснил конечно, т.е. если я выбираю строку во втором столбце в ListBox то на листе в таблице выделялась бы ячейка выбранная в ListBox. Возможно ли такое?
 
Ответить
Сообщениескажите пожалуйста, а возможно ли сделать, так чтобы если я выбираю в Листбоксе любую строку во втором столбце (наименование), то появлялась следующая форма. или чтобы это считалось как нажатие на листе в таблице. сейчас не понятно объяснил конечно, т.е. если я выбираю строку во втором столбце в ListBox то на листе в таблице выделялась бы ячейка выбранная в ListBox. Возможно ли такое?

Автор - AKSENOV048
Дата добавления - 01.09.2011 в 19:49
Hugo Дата: Четверг, 01.09.2011, 19:58 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
Конечно можно. И у Вас уже это сделано - поиск по базе ведь так и работает smile

Code
Private Sub ListBox1_Click()
'если не выбран элемент списка - выход
     If ListBox1.ListIndex = -1 Then Exit Sub
'переход к ячейке листа, содержащей выбранный элемент списка
     Cells(ListBox1.Value, stolbV).Select
End Sub

Тут привязываетесь к ListBox1.ListIndex или как тут к ListBox1.Value.


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеКонечно можно. И у Вас уже это сделано - поиск по базе ведь так и работает smile

Code
Private Sub ListBox1_Click()
'если не выбран элемент списка - выход
     If ListBox1.ListIndex = -1 Then Exit Sub
'переход к ячейке листа, содержащей выбранный элемент списка
     Cells(ListBox1.Value, stolbV).Select
End Sub

Тут привязываетесь к ListBox1.ListIndex или как тут к ListBox1.Value.

Автор - Hugo
Дата добавления - 01.09.2011 в 19:58
AKSENOV048 Дата: Четверг, 01.09.2011, 19:59 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 6 ±
Замечаний: 0% ±

))) вы мой спаситель!
 
Ответить
Сообщение))) вы мой спаситель!

Автор - AKSENOV048
Дата добавления - 01.09.2011 в 19:59
AKSENOV048 Дата: Четверг, 01.09.2011, 23:31 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 6 ±
Замечаний: 0% ±

почему то не получается. я выбираю в Listbox товар, а на листе выделяется значение на ячейку выше?
 
Ответить
Сообщениепочему то не получается. я выбираю в Listbox товар, а на листе выделяется значение на ячейку выше?

Автор - AKSENOV048
Дата добавления - 01.09.2011 в 23:31
Hugo Дата: Четверг, 01.09.2011, 23:42 | Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
Ну так скорректируй с помощью +1


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеНу так скорректируй с помощью +1

Автор - Hugo
Дата добавления - 01.09.2011 в 23:42
AKSENOV048 Дата: Четверг, 01.09.2011, 23:46 | Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 6 ±
Замечаний: 0% ±

Cells(ListBox1.Value +1, stolbV).Select
здесь. не получается, как то не стандартно работает, то через одну ячейку прыгает то через две то вверх то вниз
 
Ответить
СообщениеCells(ListBox1.Value +1, stolbV).Select
здесь. не получается, как то не стандартно работает, то через одну ячейку прыгает то через две то вверх то вниз

Автор - AKSENOV048
Дата добавления - 01.09.2011 в 23:46
Hugo Дата: Четверг, 01.09.2011, 23:49 | Сообщение № 15
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
Бери ListBox1.ListIndex, раз всё с листа загоняешь, а не выборочно, как в форме поиска.


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеБери ListBox1.ListIndex, раз всё с листа загоняешь, а не выборочно, как в форме поиска.

Автор - Hugo
Дата добавления - 01.09.2011 в 23:49
AKSENOV048 Дата: Четверг, 01.09.2011, 23:51 | Сообщение № 16
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 6 ±
Замечаний: 0% ±

ааа, вы меня убьёте( я не совсем понял как это сделать с ListBox1.ListIndex

у меня сейчас:
Private Sub UserForm_Initialize()
Me.ListBox1.List = Range(Sheets(1).Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value

End Sub
Private Sub ListBox1_Click()
stolbV = 2
strokaFirst = 3
If ListBox1.ListIndex = -1 Then Exit Sub

Cells(ListBox1.Value + 1, stolbV).Select
End Sub


Сообщение отредактировал AKSENOV048 - Четверг, 01.09.2011, 23:52
 
Ответить
Сообщениеааа, вы меня убьёте( я не совсем понял как это сделать с ListBox1.ListIndex

у меня сейчас:
Private Sub UserForm_Initialize()
Me.ListBox1.List = Range(Sheets(1).Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value

End Sub
Private Sub ListBox1_Click()
stolbV = 2
strokaFirst = 3
If ListBox1.ListIndex = -1 Then Exit Sub

Cells(ListBox1.Value + 1, stolbV).Select
End Sub

Автор - AKSENOV048
Дата добавления - 01.09.2011 в 23:51
Hugo Дата: Четверг, 01.09.2011, 23:59 | Сообщение № 17
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
Ну я тоже точно не знаю, пробовать нужно, но у меня сейчас бой smile


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеНу я тоже точно не знаю, пробовать нужно, но у меня сейчас бой smile

Автор - Hugo
Дата добавления - 01.09.2011 в 23:59
AKSENOV048 Дата: Пятница, 02.09.2011, 04:14 | Сообщение № 18
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 6 ±
Замечаний: 0% ±

вот так получилось!
Private Sub UserForm_Initialize()
Me.ListBox1.List = Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value
End Sub
Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 3, 2).Select
End Sub
только интересует как заменить Sub ListBox1_Click() на Sub ListBox1_DubleClick() ?
и как указать откуда listbox брать значение. потому что их будет несколько и значения для каждого берутся с разных листов?
 
Ответить
Сообщениевот так получилось!
Private Sub UserForm_Initialize()
Me.ListBox1.List = Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value
End Sub
Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 3, 2).Select
End Sub
только интересует как заменить Sub ListBox1_Click() на Sub ListBox1_DubleClick() ?
и как указать откуда listbox брать значение. потому что их будет несколько и значения для каждого берутся с разных листов?

Автор - AKSENOV048
Дата добавления - 02.09.2011 в 04:14
KuklP Дата: Пятница, 02.09.2011, 07:37 | Сообщение № 19
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Quote (light26)
А что же делать тем, кто сам не умеет?...

(Я уже отвечал то же самое AKSENOV048.)
А Вы задайте такой вопрос придя в рембыттехнику с поломанным телевизором, или в мастерскую по изготовлению обуви и т.д.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Пятница, 02.09.2011, 08:04
 
Ответить
Сообщение
Quote (light26)
А что же делать тем, кто сам не умеет?...

(Я уже отвечал то же самое AKSENOV048.)
А Вы задайте такой вопрос придя в рембыттехнику с поломанным телевизором, или в мастерскую по изготовлению обуви и т.д.

Автор - KuklP
Дата добавления - 02.09.2011 в 07:37
AKSENOV048 Дата: Пятница, 02.09.2011, 10:47 | Сообщение № 20
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 6 ±
Замечаний: 0% ±

KuklP, Вы наверное все таки путаете, понятие форума и сервиса! Вы может быть предполагаете что если я в Яндекс или Google введу: как приготовить грибы; он мне на экран должен вывести: покажите что вы сами сделали, скажите на чем запнулись, ИЛИ, а вы задайте такой вопрос придя в рембыттехнику с поломанным телевизором, или в мастерскую по изготовлению обуви. По Вашему так должно быть!
Форум - это совместное обсуждение пользователями каких-либо тем. а если на форуме отвечают так как Вы сейчас, то и смысла в нем не будет, с абсолютно таким же успехом можно вбивать свои вопросы в поисковик, и искать ответ там.
не знаю! я на форуме задал вопрос, мне добрые люди ответили, если я не понял, то мне пояснили. я им очень благодарен! к чему Ваши высказывания... не понимаю. если у вас нет желания помочь, то просто хотя бы ни чего не пишите., если есть то спасибо большое за Вашу помощь!


Сообщение отредактировал AKSENOV048 - Пятница, 02.09.2011, 10:48
 
Ответить
СообщениеKuklP, Вы наверное все таки путаете, понятие форума и сервиса! Вы может быть предполагаете что если я в Яндекс или Google введу: как приготовить грибы; он мне на экран должен вывести: покажите что вы сами сделали, скажите на чем запнулись, ИЛИ, а вы задайте такой вопрос придя в рембыттехнику с поломанным телевизором, или в мастерскую по изготовлению обуви. По Вашему так должно быть!
Форум - это совместное обсуждение пользователями каких-либо тем. а если на форуме отвечают так как Вы сейчас, то и смысла в нем не будет, с абсолютно таким же успехом можно вбивать свои вопросы в поисковик, и искать ответ там.
не знаю! я на форуме задал вопрос, мне добрые люди ответили, если я не понял, то мне пояснили. я им очень благодарен! к чему Ваши высказывания... не понимаю. если у вас нет желания помочь, то просто хотя бы ни чего не пишите., если есть то спасибо большое за Вашу помощь!

Автор - AKSENOV048
Дата добавления - 02.09.2011 в 10:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ListBox таблица (можно ли отобразить в ListBox таблицу)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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