Спасибо, но это не то. у меня есть в VBA userforma на которой есть ListBox в котором я бы хотел видеть таблицу находящуюся на листе "пример". или я может не правильно понял ваше предложение.
Спасибо, но это не то. у меня есть в VBA userforma на которой есть ListBox в котором я бы хотел видеть таблицу находящуюся на листе "пример". или я может не правильно понял ваше предложение.AKSENOV048
Да нет, Формуляр, ему не туда. Я посмотрел - AKSENOV048 просто поленился на листе кнопочку сделать для показа формы, на которой Листбокс лежит. Да и свой ЕДИНСТВЕННЫЙ лист он переименовать в Лист1 поленился, хотя сам же и просил именно с первого листа заполнять. В общем тут он нам оставил море для разгула фантазии: мол, сами догадайтесь, какому из столбцов ЛистБокса должен какой из столбцов на каком из листов соответствовать, нужно ли автоматическое пополнение списка листбокса при увеличении числа строк и т.д. и т.п.
AKSENOV048, здесь обычно ПОМОГАЮТ решать задачи, а НЕ РЕШАЮТ ЗА ТОПИК-СТАРТЕРА Покажите, что вы сами сделали. Скажите, на чём заткнулись. Подробнее опишите свою "хотелку"... Вот тогда вам и будут ПОМОГАТЬ.
Да нет, Формуляр, ему не туда. Я посмотрел - AKSENOV048 просто поленился на листе кнопочку сделать для показа формы, на которой Листбокс лежит. Да и свой ЕДИНСТВЕННЫЙ лист он переименовать в Лист1 поленился, хотя сам же и просил именно с первого листа заполнять. В общем тут он нам оставил море для разгула фантазии: мол, сами догадайтесь, какому из столбцов ЛистБокса должен какой из столбцов на каком из листов соответствовать, нужно ли автоматическое пополнение списка листбокса при увеличении числа строк и т.д. и т.п.
AKSENOV048, здесь обычно ПОМОГАЮТ решать задачи, а НЕ РЕШАЮТ ЗА ТОПИК-СТАРТЕРА Покажите, что вы сами сделали. Скажите, на чём заткнулись. Подробнее опишите свою "хотелку"... Вот тогда вам и будут ПОМОГАТЬ.Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Четверг, 01.09.2011, 15:58
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 колонок в свойствах, ширину колонок поставить, заголовки подвигать...
А если сократить, как в алгебре :
Code
Private Sub UserForm_Initialize() Me.ListBox1.List = Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value End Sub
Да в общем несложно:
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 колонок в свойствах, ширину колонок поставить, заголовки подвигать...
А если сократить, как в алгебре :
Code
Private Sub UserForm_Initialize() Me.ListBox1.List = Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7)).Value End Sub
Алексей, AKSENOV048 красивую форму с листбоксом сделал, и даже макрос запуска формы сделал. И данные на листе есть. Кнопку только не нарисовал... Мне кажется, зря наезжаешь.
Алексей, AKSENOV048 красивую форму с листбоксом сделал, и даже макрос запуска формы сделал. И данные на листе есть. Кнопку только не нарисовал... Мне кажется, зря наезжаешь.Hugo
Спасибо за ответы и за помощь! HUGO вы как всегда выручили)
Alex_ST, если я действительно, не понятно объяснил, не уточнил что мне надо, я извиняюсь. Но почему то остальные форумчане меня и мою "хотелку" поняли!) по поводу кнопки, думал в примере она не понадобиться, т.к. сделал авто запуск при открытии книги. По поводу поленился переименовать единственный лист, вы не правы не поленился и наоборот удалил два лишних листа, а единственны лист просто переименовал в "ПРИМЕР", и действительно попросил брать данные с первого листа(он же единственный в книге), а не с Листа1(как вы мне кажется подумали)! По поводу пояснить какому столбцу в ListBox какое значение из таблицы присваивать, подумал что там (в примере) все понятно написано и в таблице на листе и в форме есть одинаковые заголовки! вы меня этим даже немного удивили.
Light26 почему то я такого же мнения как и вы. что делать тем кто сам не умеет?... по моему для этого и существуют Форумы. Alex_ST допустим вы абсолютно не разбираетесь в Photoshop, абсолютно, но вам край нужно сделать что то в нем, и вы зададите на форуме спросите как сделать это сделать, я же вам не буду отвечать: "Подробнее опишите свою "хотелку"..." "здесь обычно ПОМОГАЮТ решать задачи, а НЕ РЕШАЮТ ЗА ТОПИК-СТАРТЕРА " "поленился"
Спасибо HUGO за оценку формы!) приятно.
Спасибо за ответы и за помощь! HUGO вы как всегда выручили)
Alex_ST, если я действительно, не понятно объяснил, не уточнил что мне надо, я извиняюсь. Но почему то остальные форумчане меня и мою "хотелку" поняли!) по поводу кнопки, думал в примере она не понадобиться, т.к. сделал авто запуск при открытии книги. По поводу поленился переименовать единственный лист, вы не правы не поленился и наоборот удалил два лишних листа, а единственны лист просто переименовал в "ПРИМЕР", и действительно попросил брать данные с первого листа(он же единственный в книге), а не с Листа1(как вы мне кажется подумали)! По поводу пояснить какому столбцу в ListBox какое значение из таблицы присваивать, подумал что там (в примере) все понятно написано и в таблице на листе и в форме есть одинаковые заголовки! вы меня этим даже немного удивили.
Light26 почему то я такого же мнения как и вы. что делать тем кто сам не умеет?... по моему для этого и существуют Форумы. Alex_ST допустим вы абсолютно не разбираетесь в Photoshop, абсолютно, но вам край нужно сделать что то в нем, и вы зададите на форуме спросите как сделать это сделать, я же вам не буду отвечать: "Подробнее опишите свою "хотелку"..." "здесь обычно ПОМОГАЮТ решать задачи, а НЕ РЕШАЮТ ЗА ТОПИК-СТАРТЕРА " "поленился"
Спасибо HUGO за оценку формы!) приятно. AKSENOV048
скажите пожалуйста, а возможно ли сделать, так чтобы если я выбираю в Листбоксе любую строку во втором столбце (наименование), то появлялась следующая форма. или чтобы это считалось как нажатие на листе в таблице. сейчас не понятно объяснил конечно, т.е. если я выбираю строку во втором столбце в ListBox то на листе в таблице выделялась бы ячейка выбранная в ListBox. Возможно ли такое?
скажите пожалуйста, а возможно ли сделать, так чтобы если я выбираю в Листбоксе любую строку во втором столбце (наименование), то появлялась следующая форма. или чтобы это считалось как нажатие на листе в таблице. сейчас не понятно объяснил конечно, т.е. если я выбираю строку во втором столбце в ListBox то на листе в таблице выделялась бы ячейка выбранная в ListBox. Возможно ли такое?AKSENOV048
Конечно можно. И у Вас уже это сделано - поиск по базе ведь так и работает
Code
Private Sub ListBox1_Click() 'если не выбран элемент списка - выход If ListBox1.ListIndex = -1 Then Exit Sub 'переход к ячейке листа, содержащей выбранный элемент списка Cells(ListBox1.Value, stolbV).Select End Sub
Тут привязываетесь к ListBox1.ListIndex или как тут к ListBox1.Value.
Конечно можно. И у Вас уже это сделано - поиск по базе ведь так и работает
Code
Private Sub ListBox1_Click() 'если не выбран элемент списка - выход If ListBox1.ListIndex = -1 Then Exit Sub 'переход к ячейке листа, содержащей выбранный элемент списка Cells(ListBox1.Value, stolbV).Select End Sub
Тут привязываетесь к ListBox1.ListIndex или как тут к ListBox1.Value.Hugo
Cells(ListBox1.Value +1, stolbV).Select здесь. не получается, как то не стандартно работает, то через одну ячейку прыгает то через две то вверх то вниз
Cells(ListBox1.Value +1, stolbV).Select здесь. не получается, как то не стандартно работает, то через одну ячейку прыгает то через две то вверх то внизAKSENOV048
вот так получилось! 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
(Я уже отвечал то же самое AKSENOV048.) А Вы задайте такой вопрос придя в рембыттехнику с поломанным телевизором, или в мастерскую по изготовлению обуви и т.д.
Quote (light26)
А что же делать тем, кто сам не умеет?...
(Я уже отвечал то же самое AKSENOV048.) А Вы задайте такой вопрос придя в рембыттехнику с поломанным телевизором, или в мастерскую по изготовлению обуви и т.д.KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Сообщение отредактировал KuklP - Пятница, 02.09.2011, 08:04
KuklP, Вы наверное все таки путаете, понятие форума и сервиса! Вы может быть предполагаете что если я в Яндекс или Google введу: как приготовить грибы; он мне на экран должен вывести: покажите что вы сами сделали, скажите на чем запнулись, ИЛИ, а вы задайте такой вопрос придя в рембыттехнику с поломанным телевизором, или в мастерскую по изготовлению обуви. По Вашему так должно быть! Форум - это совместное обсуждение пользователями каких-либо тем. а если на форуме отвечают так как Вы сейчас, то и смысла в нем не будет, с абсолютно таким же успехом можно вбивать свои вопросы в поисковик, и искать ответ там. не знаю! я на форуме задал вопрос, мне добрые люди ответили, если я не понял, то мне пояснили. я им очень благодарен! к чему Ваши высказывания... не понимаю. если у вас нет желания помочь, то просто хотя бы ни чего не пишите., если есть то спасибо большое за Вашу помощь!
KuklP, Вы наверное все таки путаете, понятие форума и сервиса! Вы может быть предполагаете что если я в Яндекс или Google введу: как приготовить грибы; он мне на экран должен вывести: покажите что вы сами сделали, скажите на чем запнулись, ИЛИ, а вы задайте такой вопрос придя в рембыттехнику с поломанным телевизором, или в мастерскую по изготовлению обуви. По Вашему так должно быть! Форум - это совместное обсуждение пользователями каких-либо тем. а если на форуме отвечают так как Вы сейчас, то и смысла в нем не будет, с абсолютно таким же успехом можно вбивать свои вопросы в поисковик, и искать ответ там. не знаю! я на форуме задал вопрос, мне добрые люди ответили, если я не понял, то мне пояснили. я им очень благодарен! к чему Ваши высказывания... не понимаю. если у вас нет желания помочь, то просто хотя бы ни чего не пишите., если есть то спасибо большое за Вашу помощь!AKSENOV048
Сообщение отредактировал AKSENOV048 - Пятница, 02.09.2011, 10:48
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
: 
