Вопросы по GetOpenFilename и элементам формы Excel!!!

[EducatedFool]

как в listbox появилось искомое значение, при нажатии клавиши (ENTER, к примеру), это значение собственно и выбиралось...

А если в листбоксе челых 3 (или 10) подходящих значений?
Что делать при нажатии Enter?

Где (на каком комбобоксе или листбоксе) будет находится фокус ввода в момент нажатия Enter?

Куда должно выбираться значение? Переноситься в комбобокс?

Мне нужно: критерий отбора - в Столбце V, а сами значения в столбце B

Попробуйте так:

Private Sub ComboBox1_Change()
    Dim i As Long, a()
    a = Range([A3], Cells(Rows.Count, "V").End(xlUp)).Value: ListBox1.Clear
    For i = 1 To UBound(a, 1)
        If a(i, UBound(a, 2)) = ComboBox1.Value Then ListBox1.AddItem a(i, 2)
    Next
End Sub

PS: Для ответа на сообщение СОВСЕМ НЕОБЯЗАТЕЛЬНО цитировать его полностью...

Понятно, а то справка гласит:
Функция UBound(Upper Bound) служит для определения верхней границы (индекса самого последнего элемента) массива по заданному измерению...

Где Вы нашли такую справку?
Ставим курсор в коде на слово UBound, и нажимаем F1, после чего видим нормальную справку:

UBound(arrayname[, dimension])

The UBound function syntax has these parts:

arrayname Required. Name of the array variable; follows standard variable naming conventions.
dimension Optional; Variant (Long). Whole number indicating which dimension's upper bound is returned. Use 1 for the first dimension, 2 for the second, and so on. If dimension is omitted, 1 is assumed.

[Klim Bassenger]

Сообщение от EducatedFool

А если в листбоксе целых 3 (или 10) подходящих значений?

Подходящее значение одно. Если введено значение не полностью, а, например, первые несколько цифр, то придется кликать на листбокс . Но априори, в столбце все значения уникальные!

Что делать при нажатии Enter?

Выбрать значение из листбокс.... То есть кликнуть по листбоксу


Ищем этот номер на листе....
Private Sub ListBox1_CLick()
With Columns("B:B")
Cells.Find(What:=ListBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End With

Сообщение от EducatedFool

Где Вы нашли такую справку?

Данное руководство написано А.Климовым.
Автор выражает огромную благодарность Бестужеву Андрею за активную поддержку и неоценимую помощь в составлении справочника

--------------------------------------------------------------------------------
Примеры,коды,советы и многое другое вы можете найти на сайте Русский_Проект по адресу:http://rusproject.narod.ru
E-mail: vbasic@rambler.ru
--------------------------------------------------------------------------------
© 1999-2003 А.Климов
Русский_Проект

[Klim Bassenger]

[QUOTE=EducatedFool;294761]А
Где Вы нашли такую справку?

При чем на Вашем же сайте, по-моему.... Где-то ссылка была на форуме...

[segail]

Сообщение от EducatedFool

По поводу GetOpenFilename так ничего и не придумал, кроме как после выбора пользователем файла проверять его имя на соответствие шаблону, и в случае выбора неподходящего файла вновь отображать диалоговое окно.

Остальное вроде реализовал:



В верхний комбобокс можно вводить всё, что угодно.
В нижний - только цифры.
Поиск запускается при вводе только цифр в любой из комбобоксов.

Реализована прозрачность формы - значения от 31 до 255
Значения от нуля разрешать не стал - а то потом сложно найти кнопку выключения режима прозрачности...

Здравствуйте.
А как прозрачность кликом по кнопке вывести в 0, а другой кнопкой восстановить?