В файле, в форму ВВОД КОДА вношу данные (например 0300) которые вставляются в столбец "А" с 7-й строки. В столбце "А" выставлен формат 0000 Проблема - форма ПОИСК, с макросом от уважаемого nilem, взятого на просторах и подкорректированного, не распознает НОЛЬ впереди чисел столбца "А". Что нужно дописать в код, чтобы ПОИСК "увидел" формат 0000?
Пробовал через апостроф '0300 в этом случае форма поиска видит, но возникает другая проблема, из-за которой от апострофа отказался.
Спасибо
Доброго утра, уважаемые!
В файле, в форму ВВОД КОДА вношу данные (например 0300) которые вставляются в столбец "А" с 7-й строки. В столбце "А" выставлен формат 0000 Проблема - форма ПОИСК, с макросом от уважаемого nilem, взятого на просторах и подкорректированного, не распознает НОЛЬ впереди чисел столбца "А". Что нужно дописать в код, чтобы ПОИСК "увидел" формат 0000?
Пробовал через апостроф '0300 в этом случае форма поиска видит, но возникает другая проблема, из-за которой от апострофа отказался.
Здравствуйте Вадим Николаевич! Вот файлик, пробуйте [p.s.]Форма моя (фон - "коричневая тряпочка", - везде его использую), а вот код не мой. Зачем там коллекция?[/p.s.]
Здравствуйте Вадим Николаевич! Вот файлик, пробуйте [p.s.]Форма моя (фон - "коричневая тряпочка", - везде его использую), а вот код не мой. Зачем там коллекция?[/p.s.]nilem
Код был заточен под другие нужды... К сожалению правка Ваша не работает... Набираю в форме НОЛЬ, числа с нулями не отображаются, только один код с апострофом
Но даже нажав на этот код с апострофом для поиска, выскакивает ошибка
Остальные коды ищутся без ошибок
Доброго дня, Николай!
Код был заточен под другие нужды... К сожалению правка Ваша не работает... Набираю в форме НОЛЬ, числа с нулями не отображаются, только один код с апострофом
Но даже нажав на этот код с апострофом для поиска, выскакивает ошибка
чтобы не было ошибки, замените эту процедуру [vba]
Код
Private Sub ListBox1_Click() If ListBox1.ListIndex = -1 Then Exit Sub Dim txt$ txt = Me.ListBox1.Value If Len(txt) < 5 Then txt = Format$(txt, "0000") With Range("A:A").Find(txt, , xlValues, xlWhole) .EntireRow.Select .Activate End With End Sub
в яч. А7 есть число 314 (нолик там, потому что такой формат). Поэтому находит только '0341-2 в Find все-таки нужен xlWhole upd воткните везде апострофы, и не будет вопросов
чтобы не было ошибки, замените эту процедуру [vba]
Код
Private Sub ListBox1_Click() If ListBox1.ListIndex = -1 Then Exit Sub Dim txt$ txt = Me.ListBox1.Value If Len(txt) < 5 Then txt = Format$(txt, "0000") With Range("A:A").Find(txt, , xlValues, xlWhole) .EntireRow.Select .Activate End With End Sub
в яч. А7 есть число 314 (нолик там, потому что такой формат). Поэтому находит только '0341-2 в Find все-таки нужен xlWhole upd воткните везде апострофы, и не будет вопросовnilem
Яндекс.Деньги 4100159601573
Сообщение отредактировал nilem - Воскресенье, 24.09.2017, 11:13
Пробовал через апостроф '0300 в этом случае форма поиска видит, но возникает другая проблема, из-за которой от апострофа отказался.
С апострофами поиск видит, но вставляются тогда эти коды - то в конец диапозона "А", то после вставки кодом без нулей - поднимаются в середину списка.grh1