Создание поиска только по году, без букв

Дата: Среда, 24.04.2019, 11:55 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 52

Репутация: 3 ±

Замечаний: 20% ±

Excel 2007

Здравствуйте, скажите пожалуйста, что в данном коде нужно изменить,чтоб в диалоговом окне мы могли вводить только год, и нечего кроме года. Сейчас туда можно вводить получается к примеру 1, и выводит все года с этой цифрой, или если мы вводим букву п, то выводит все что связанно с этой буквы, а нужен получается запрет на все это и именно , чтоб был один год

К сообщению приложен файл: 2435593.xlsm (22.4 Kb)

Дата: Среда, 24.04.2019, 12:03 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так попробуйте
[vba]

Код

God = InputBox("Введите год!", "")
If Not IsNumeric(God) Then Exit Sub ' нажали отмена
If God < 1900 Or God > 2099 Then Exit Sub

[/vba]

К сообщению приложен файл: 2435593_1.xlsm (23.3 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Дата: Среда, 24.04.2019, 12:05 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 52

Репутация: 3 ±

Замечаний: 20% ±

Excel 2007

_Boroda_, вроде работает, а можно как то сделать чтоб если что то ввели помимо года, выходило сообщение что такой год не существует?

Сообщение отредактировал DKeT - Среда, 24.04.2019, 12:06

Дата: Среда, 24.04.2019, 12:12 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Можно. Ловите

К сообщению приложен файл: 2435593_3.xlsm (23.5 Kb)

Дата: Среда, 24.04.2019, 12:22 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 52

Репутация: 3 ±

Замечаний: 20% ±

Excel 2007

_Boroda_, Благодарю

Дата: Среда, 24.04.2019, 12:31 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 52

Репутация: 3 ±

Замечаний: 20% ±

Excel 2007

_Boroda_, а как очищать те записи что нашлись? раньше при помощи * , а теперь как ?

Дата: Среда, 24.04.2019, 12:34 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Не понял вопрос

Дата: Среда, 24.04.2019, 12:36 | Сообщение № 8

Группа: Пользователи

Ранг: Участник

Сообщений: 52

Репутация: 3 ±

Замечаний: 20% ±

Excel 2007

_Boroda_, ну вот он вывел запись к примеру по году 1999, она осталась, а потом если нам нужен пустой лист, и только после мы вводим снова год и он заново выводит, вот сейчас смотрю и он через раз получается

Дата: Среда, 24.04.2019, 13:28 | Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Введите 1900. Такого года в базе нет, поэтому все очистится

Дата: Среда, 24.04.2019, 15:11 | Сообщение № 10

Группа: Пользователи

Ранг: Участник

Сообщений: 52

Репутация: 3 ±

Замечаний: 20% ±

Excel 2007

_Boroda_, скажите еще пожалуйста, а как сделать чтоб очищал все столбцы с А по АК? Сейчас ввожу, но получается так что, когда информация обновляется,то туда записывается новая, а что было старое остается.
Файл прилагаю

К сообщению приложен файл: 2435593_3-2-.xlsm (30.3 Kb)

Сообщение отредактировал DKeT - Среда, 24.04.2019, 15:12