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

Вход

Регистрация

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

 

= Мир MS Excel/макрос не распознает формат 0000 - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос не распознает формат 0000 (Макросы/Sub)
макрос не распознает формат 0000
grh1 Дата: Воскресенье, 24.09.2017, 09:18 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
Доброго утра, уважаемые!

В файле, в форму ВВОД КОДА вношу данные (например 0300) которые вставляются в столбец "А" с 7-й строки.
В столбце "А" выставлен формат 0000
Проблема - форма ПОИСК, с макросом от уважаемого nilem, взятого на просторах и подкорректированного, не распознает НОЛЬ впереди чисел столбца "А".
Что нужно дописать в код, чтобы ПОИСК "увидел" формат 0000?

Пробовал через апостроф '0300 в этом случае форма поиска видит, но возникает другая проблема, из-за которой от апострофа отказался.

Спасибо
К сообщению приложен файл: 5049145.xlsb (51.5 Kb)


Vadym Gorokh
 
Ответить
СообщениеДоброго утра, уважаемые!

В файле, в форму ВВОД КОДА вношу данные (например 0300) которые вставляются в столбец "А" с 7-й строки.
В столбце "А" выставлен формат 0000
Проблема - форма ПОИСК, с макросом от уважаемого nilem, взятого на просторах и подкорректированного, не распознает НОЛЬ впереди чисел столбца "А".
Что нужно дописать в код, чтобы ПОИСК "увидел" формат 0000?

Пробовал через апостроф '0300 в этом случае форма поиска видит, но возникает другая проблема, из-за которой от апострофа отказался.

Спасибо

Автор - grh1
Дата добавления - 24.09.2017 в 09:18
nilem Дата: Воскресенье, 24.09.2017, 10:12 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Здравствуйте Вадим Николаевич!
Вот файлик, пробуйте
[p.s.]Форма моя (фон - "коричневая тряпочка", - везде его использую), а вот код не мой. Зачем там коллекция?[/p.s.]
К сообщению приложен файл: _5049145.xlsb (50.3 Kb)


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеЗдравствуйте Вадим Николаевич!
Вот файлик, пробуйте
[p.s.]Форма моя (фон - "коричневая тряпочка", - везде его использую), а вот код не мой. Зачем там коллекция?[/p.s.]

Автор - nilem
Дата добавления - 24.09.2017 в 10:12
grh1 Дата: Воскресенье, 24.09.2017, 10:34 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
Доброго дня, Николай!

Код был заточен под другие нужды...
К сожалению правка Ваша не работает...
Набираю в форме НОЛЬ, числа с нулями не отображаются, только один код с апострофом



Но даже нажав на этот код с апострофом для поиска, выскакивает ошибка



Остальные коды ищутся без ошибок


Vadym Gorokh
 
Ответить
СообщениеДоброго дня, Николай!

Код был заточен под другие нужды...
К сожалению правка Ваша не работает...
Набираю в форме НОЛЬ, числа с нулями не отображаются, только один код с апострофом



Но даже нажав на этот код с апострофом для поиска, выскакивает ошибка



Остальные коды ищутся без ошибок

Автор - grh1
Дата добавления - 24.09.2017 в 10:34
nilem Дата: Воскресенье, 24.09.2017, 10:53 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
А формат кодов (не увидел сразу) м.б. не только "0000", но и любой другой?


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеА формат кодов (не увидел сразу) м.б. не только "0000", но и любой другой?

Автор - nilem
Дата добавления - 24.09.2017 в 10:53
InExSu Дата: Воскресенье, 24.09.2017, 10:56 | Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
Привет!
раз
код не мой.

Тогда попробуйте вложение.
И ищете код без фантомных нулей.
К сообщению приложен файл: grh1_InExSu.xlsb (52.0 Kb) · 7781422.jpg (53.4 Kb)


Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
СообщениеПривет!
раз
код не мой.

Тогда попробуйте вложение.
И ищете код без фантомных нулей.

Автор - InExSu
Дата добавления - 24.09.2017 в 10:56
grh1 Дата: Воскресенье, 24.09.2017, 10:58 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
м.б. не только "0000", но и любой другой?

любой, главное чтобы "увидел" ПОИСК (кроме апострофа)


Vadym Gorokh
 
Ответить
Сообщение
м.б. не только "0000", но и любой другой?

любой, главное чтобы "увидел" ПОИСК (кроме апострофа)

Автор - grh1
Дата добавления - 24.09.2017 в 10:58
grh1 Дата: Воскресенье, 24.09.2017, 11:09 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
И ищите код без фантомных нулей

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


Vadym Gorokh

Сообщение отредактировал grh1 - Воскресенье, 24.09.2017, 11:09
 
Ответить
Сообщение
И ищите код без фантомных нулей

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

Автор - grh1
Дата добавления - 24.09.2017 в 11:09
nilem Дата: Воскресенье, 24.09.2017, 11:11 | Сообщение № 8
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
чтобы не было ошибки, замените эту процедуру
[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
[/vba]
Набираю в форме НОЛЬ

в яч. А7 есть число 314 (нолик там, потому что такой формат). Поэтому находит только '0341-2
в Find все-таки нужен xlWhole
upd
воткните везде апострофы, и не будет вопросов


Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Воскресенье, 24.09.2017, 11:13
 
Ответить
Сообщениечтобы не было ошибки, замените эту процедуру
[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
[/vba]
Набираю в форме НОЛЬ

в яч. А7 есть число 314 (нолик там, потому что такой формат). Поэтому находит только '0341-2
в Find все-таки нужен xlWhole
upd
воткните везде апострофы, и не будет вопросов

Автор - nilem
Дата добавления - 24.09.2017 в 11:11
InExSu Дата: Воскресенье, 24.09.2017, 11:12 | Сообщение № 9
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
государственные коды

44-ФЗ?
нули так и не видит

Скриншот ,пожалуйста.


Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
Сообщение
государственные коды

44-ФЗ?
нули так и не видит

Скриншот ,пожалуйста.

Автор - InExSu
Дата добавления - 24.09.2017 в 11:12
grh1 Дата: Воскресенье, 24.09.2017, 11:22 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
воткните везде апострофы, и не будет вопросов

в самом первом моем посту писал:
Пробовал через апостроф '0300 в этом случае форма поиска видит, но возникает другая проблема, из-за которой от апострофа отказался.

С апострофами поиск видит, но вставляются тогда эти коды - то в конец диапозона "А", то после вставки кодом без нулей - поднимаются в середину списка.


Vadym Gorokh
 
Ответить
Сообщение
воткните везде апострофы, и не будет вопросов

в самом первом моем посту писал:
Пробовал через апостроф '0300 в этом случае форма поиска видит, но возникает другая проблема, из-за которой от апострофа отказался.

С апострофами поиск видит, но вставляются тогда эти коды - то в конец диапозона "А", то после вставки кодом без нулей - поднимаются в середину списка.

Автор - grh1
Дата добавления - 24.09.2017 в 11:22
grh1 Дата: Воскресенье, 24.09.2017, 11:26 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
Скриншот ,пожалуйста.



Vadym Gorokh

Сообщение отредактировал grh1 - Воскресенье, 24.09.2017, 11:30
 
Ответить
Сообщение
Скриншот ,пожалуйста.


Автор - grh1
Дата добавления - 24.09.2017 в 11:26
nilem Дата: Воскресенье, 24.09.2017, 11:36 | Сообщение № 12
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Пробуйте еще раз
в '0341-2 апостроф все-таки есть?
К сообщению приложен файл: 7688185.xlsb (50.4 Kb)


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеПробуйте еще раз
в '0341-2 апостроф все-таки есть?

Автор - nilem
Дата добавления - 24.09.2017 в 11:36
grh1 Дата: Воскресенье, 24.09.2017, 11:40 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
nilem,
Николай - всё супер!!!
Спасибо
приятно с Вами работать.


Vadym Gorokh
 
Ответить
Сообщениеnilem,
Николай - всё супер!!!
Спасибо
приятно с Вами работать.

Автор - grh1
Дата добавления - 24.09.2017 в 11:40
nilem Дата: Воскресенье, 24.09.2017, 11:49 | Сообщение № 14
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Пожалста :)


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеПожалста :)

Автор - nilem
Дата добавления - 24.09.2017 в 11:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос не распознает формат 0000 (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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