Добрый день! где в коде указано с какой строки он будет считывать данные. [vba]
Код
Private Sub TextBox1_Change() Dim x, i As Long, txt As String, lt As Long, s As String If Len(TextBox1.Text) = 0 Or bu Then Exit Sub
txt = TextBox1.Text: lt = Len(TextBox1.Text) 'Где ищем значения x = Sheets("Общий").Columns(4).SpecialCells(2).Offset(1).Value For i = 1 To UBound(x, 1) ' поиск по первым буквам If txt = Mid(x(i, 1), 1, lt) Then s = s & x(i, 1) & "~" Next i ListBox1.List = Split(s, "~") End Sub
[/vba]
Добрый день! где в коде указано с какой строки он будет считывать данные. [vba]
Код
Private Sub TextBox1_Change() Dim x, i As Long, txt As String, lt As Long, s As String If Len(TextBox1.Text) = 0 Or bu Then Exit Sub
txt = TextBox1.Text: lt = Len(TextBox1.Text) 'Где ищем значения x = Sheets("Общий").Columns(4).SpecialCells(2).Offset(1).Value For i = 1 To UBound(x, 1) ' поиск по первым буквам If txt = Mid(x(i, 1), 1, lt) Then s = s & x(i, 1) & "~" Next i ListBox1.List = Split(s, "~") End Sub
И в чем конкретно вопрос-то? Хотите, чтобы в вып. списке показывалась ячейка Е1 - тогда сотрите ".Offset(0)". Хотите, чтобы не показывалась ячейка Е2 - тогда напишите ".Offset(2)"
И в чем конкретно вопрос-то? Хотите, чтобы в вып. списке показывалась ячейка Е1 - тогда сотрите ".Offset(0)". Хотите, чтобы не показывалась ячейка Е2 - тогда напишите ".Offset(2)"_Boroda_
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
