Поиск по документу и заполнение формы
StoTisteg
Дата: Пятница, 11.03.2016, 23:15 |
Сообщение № 21
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация:
103
±
Замечаний:
0% ±
Excel 2010
If Len(Me.txt_Штрих) = 5 or Len(Me.txt_Штрих) = 6 Then
Тоже вариант Но блин, не технологично. Же. А если понадобятся семи- или восьмизначные?
If Len(Me.txt_Штрих) = 5 or Len(Me.txt_Штрих) = 6 Then
Тоже вариант Но блин, не технологично. Же. А если понадобятся семи- или восьмизначные?StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Ответить
Сообщение If Len(Me.txt_Штрих) = 5 or Len(Me.txt_Штрих) = 6 Then
Тоже вариант Но блин, не технологично. Же. А если понадобятся семи- или восьмизначные?Автор - StoTisteg Дата добавления - 11.03.2016 в 23:15
МВТ
Дата: Пятница, 11.03.2016, 23:21 |
Сообщение № 22
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация:
137
±
Замечаний:
0% ±
Excel 2007
StoTisteg , можно регуляркой проверять, если не устраивает вариант al-Ex [vba]Код
With CreateObject("VBScript.Regexp") .Pattern = "^\d{5,6}$" If .test(text) Then End With
[/vba] UPD как вариант задавать максимальную и минимальную длины константами[vba]Код
.Pattern ="^\d{" & MinLen & "," & MaxLen & "}$"
[/vba] Исправил
StoTisteg , можно регуляркой проверять, если не устраивает вариант al-Ex [vba]Код
With CreateObject("VBScript.Regexp") .Pattern = "^\d{5,6}$" If .test(text) Then End With
[/vba] UPD как вариант задавать максимальную и минимальную длины константами[vba]Код
.Pattern ="^\d{" & MinLen & "," & MaxLen & "}$"
[/vba] ИсправилМВТ
Сообщение отредактировал МВТ - Пятница, 11.03.2016, 23:35
Ответить
Сообщение StoTisteg , можно регуляркой проверять, если не устраивает вариант al-Ex [vba]Код
With CreateObject("VBScript.Regexp") .Pattern = "^\d{5,6}$" If .test(text) Then End With
[/vba] UPD как вариант задавать максимальную и минимальную длины константами[vba]Код
.Pattern ="^\d{" & MinLen & "," & MaxLen & "}$"
[/vba] ИсправилАвтор - МВТ Дата добавления - 11.03.2016 в 23:21
МВТ
Дата: Пятница, 11.03.2016, 23:32 |
Сообщение № 23
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация:
137
±
Замечаний:
0% ±
Excel 2007
Как вариант, [vba][/vba] Но так будет срабатывать на любую ячейку, которая содержит только цифры. UPD не там кавычки открыл
Как вариант, [vba][/vba] Но так будет срабатывать на любую ячейку, которая содержит только цифры. UPD не там кавычки открыл МВТ
Сообщение отредактировал МВТ - Пятница, 11.03.2016, 23:33
Ответить
Сообщение Как вариант, [vba][/vba] Но так будет срабатывать на любую ячейку, которая содержит только цифры. UPD не там кавычки открыл Автор - МВТ Дата добавления - 11.03.2016 в 23:32
StoTisteg
Дата: Пятница, 11.03.2016, 23:49 |
Сообщение № 24
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация:
103
±
Замечаний:
0% ±
Excel 2010
любую ячейку, которая содержит только цифры
Я человек, измученный Паскалем Для меня всё равно "содержит только цифры" — только код [vba]Код
if not isnumeric(code) then code=left(code,left(code)-1)
[/vba]
любую ячейку, которая содержит только цифры
Я человек, измученный Паскалем Для меня всё равно "содержит только цифры" — только код [vba]Код
if not isnumeric(code) then code=left(code,left(code)-1)
[/vba] StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Сообщение отредактировал StoTisteg - Пятница, 11.03.2016, 23:57
Ответить
Сообщение любую ячейку, которая содержит только цифры
Я человек, измученный Паскалем Для меня всё равно "содержит только цифры" — только код [vba]Код
if not isnumeric(code) then code=left(code,left(code)-1)
[/vba] Автор - StoTisteg Дата добавления - 11.03.2016 в 23:49
konstantin_987
Дата: Суббота, 12.03.2016, 21:18 |
Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация:
1
±
Замечаний:
0% ±
Excel 2010
al-Ex , Спасибо))))
Ответить
Сообщение al-Ex , Спасибо))))Автор - konstantin_987 Дата добавления - 12.03.2016 в 21:18
konstantin_987
Дата: Суббота, 12.03.2016, 21:32 |
Сообщение № 26
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация:
1
±
Замечаний:
0% ±
Excel 2010
Ответить
Сообщение Спасибо всем за помощь Автор - konstantin_987 Дата добавления - 12.03.2016 в 21:32
StoTisteg
Дата: Воскресенье, 13.03.2016, 14:52 |
Сообщение № 27
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация:
103
±
Замечаний:
0% ±
Excel 2010
1) чтобы избежать кнопки ОК 2) для контроля ошибок ввода типа копипаст
1) чтобы избежать кнопки ОК 2) для контроля ошибок ввода типа копипаст StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Ответить
Сообщение 1) чтобы избежать кнопки ОК 2) для контроля ошибок ввода типа копипаст Автор - StoTisteg Дата добавления - 13.03.2016 в 14:52
serg1986
Дата: Пятница, 02.09.2016, 19:40 |
Сообщение № 28
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Доброго времени суток!!! Уважаемые форумчане подскажите пожалуйста, как организовать поиск в форме по двум параметрам, например: 1 по штрихкоду - он уже организован 2 пункту назначения - нужно организовать
Доброго времени суток!!! Уважаемые форумчане подскажите пожалуйста, как организовать поиск в форме по двум параметрам, например: 1 по штрихкоду - он уже организован 2 пункту назначения - нужно организовать serg1986
Ответить
Сообщение Доброго времени суток!!! Уважаемые форумчане подскажите пожалуйста, как организовать поиск в форме по двум параметрам, например: 1 по штрихкоду - он уже организован 2 пункту назначения - нужно организовать Автор - serg1986 Дата добавления - 02.09.2016 в 19:40
konstantin_123
Дата: Понедельник, 10.10.2016, 21:25 |
Сообщение № 29
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Доброго времени суток, уважаемые форумчане!!! Помогите пожалуйста с решение задачи: Когда вводится искомый текст, выбирая из результатов поиска нужный вариант , заполняется форма (Табельный № ФИО Машина Пункт назначения) P.S. Очень нужна помощь так как с макросами на Вы
Доброго времени суток, уважаемые форумчане!!! Помогите пожалуйста с решение задачи: Когда вводится искомый текст, выбирая из результатов поиска нужный вариант , заполняется форма (Табельный № ФИО Машина Пункт назначения) P.S. Очень нужна помощь так как с макросами на Вы konstantin_123
Ответить
Сообщение Доброго времени суток, уважаемые форумчане!!! Помогите пожалуйста с решение задачи: Когда вводится искомый текст, выбирая из результатов поиска нужный вариант , заполняется форма (Табельный № ФИО Машина Пункт назначения) P.S. Очень нужна помощь так как с макросами на Вы Автор - konstantin_123 Дата добавления - 10.10.2016 в 21:25
Pelena
Дата: Понедельник, 10.10.2016, 21:48 |
Сообщение № 30
Группа: Админы
Ранг: Местный житель
Сообщений: 19186
Репутация:
4421
±
Замечаний:
±
Excel 365 & Mac Excel
konstantin_123 , прочитайте Правила форума и создайте новую тему
konstantin_123 , прочитайте Правила форума и создайте новую темуPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение konstantin_123 , прочитайте Правила форума и создайте новую темуАвтор - Pelena Дата добавления - 10.10.2016 в 21:48