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

Вход

Регистрация

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

 

= Мир MS Excel/Создание поиска только по году, без букв - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание поиска только по году, без букв (Макросы/Sub)
Создание поиска только по году, без букв
DKeT Дата: Среда, 24.04.2019, 11:55 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 3 ±
Замечаний: 20% ±

Excel 2007
Здравствуйте, скажите пожалуйста, что в данном коде нужно изменить,чтоб в диалоговом окне мы могли вводить только год, и нечего кроме года. Сейчас туда можно вводить получается к примеру 1, и выводит все года с этой цифрой, или если мы вводим букву п, то выводит все что связанно с этой буквы, а нужен получается запрет на все это и именно , чтоб был один год
К сообщению приложен файл: 2435593.xlsm (22.4 Kb)
 
Ответить
СообщениеЗдравствуйте, скажите пожалуйста, что в данном коде нужно изменить,чтоб в диалоговом окне мы могли вводить только год, и нечего кроме года. Сейчас туда можно вводить получается к примеру 1, и выводит все года с этой цифрой, или если мы вводим букву п, то выводит все что связанно с этой буквы, а нужен получается запрет на все это и именно , чтоб был один год

Автор - DKeT
Дата добавления - 24.04.2019 в 11:55
_Boroda_ Дата: Среда, 24.04.2019, 12:03 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

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
 
Ответить
СообщениеТак попробуйте
[vba]
Код
God = InputBox("Введите год!", "")
If Not IsNumeric(God) Then Exit Sub ' нажали отмена
If God < 1900 Or God > 2099 Then Exit Sub
[/vba]

Автор - _Boroda_
Дата добавления - 24.04.2019 в 12:03
DKeT Дата: Среда, 24.04.2019, 12:05 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 3 ±
Замечаний: 20% ±

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


Сообщение отредактировал DKeT - Среда, 24.04.2019, 12:06
 
Ответить
Сообщение_Boroda_, вроде работает, а можно как то сделать чтоб если что то ввели помимо года, выходило сообщение что такой год не существует?

Автор - DKeT
Дата добавления - 24.04.2019 в 12:05
_Boroda_ Дата: Среда, 24.04.2019, 12:12 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Можно. Ловите
К сообщению приложен файл: 2435593_3.xlsm (23.5 Kb)


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

Автор - _Boroda_
Дата добавления - 24.04.2019 в 12:12
DKeT Дата: Среда, 24.04.2019, 12:22 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 3 ±
Замечаний: 20% ±

Excel 2007
_Boroda_, Благодарю
 
Ответить
Сообщение_Boroda_, Благодарю

Автор - DKeT
Дата добавления - 24.04.2019 в 12:22
DKeT Дата: Среда, 24.04.2019, 12:31 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 3 ±
Замечаний: 20% ±

Excel 2007
_Boroda_, а как очищать те записи что нашлись? раньше при помощи * , а теперь как ?
 
Ответить
Сообщение_Boroda_, а как очищать те записи что нашлись? раньше при помощи * , а теперь как ?

Автор - DKeT
Дата добавления - 24.04.2019 в 12:31
_Boroda_ Дата: Среда, 24.04.2019, 12:34 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Не понял вопрос


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

Автор - _Boroda_
Дата добавления - 24.04.2019 в 12:34
DKeT Дата: Среда, 24.04.2019, 12:36 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 3 ±
Замечаний: 20% ±

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

Автор - DKeT
Дата добавления - 24.04.2019 в 12:36
_Boroda_ Дата: Среда, 24.04.2019, 13:28 | Сообщение № 9
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

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


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

Автор - _Boroda_
Дата добавления - 24.04.2019 в 13:28
DKeT Дата: Среда, 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
 
Ответить
Сообщение_Boroda_, скажите еще пожалуйста, а как сделать чтоб очищал все столбцы с А по АК? Сейчас ввожу, но получается так что, когда информация обновляется,то туда записывается новая, а что было старое остается.
Файл прилагаю

Автор - DKeT
Дата добавления - 24.04.2019 в 15:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание поиска только по году, без букв (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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