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

Вход

Регистрация

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

 

= Мир MS Excel/В форме не получается изменить год - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » В форме не получается изменить год (Макросы/Sub)
В форме не получается изменить год
ArkyShark Дата: Вторник, 09.03.2021, 09:23 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Уважаемые знатоки помогите пожалуйста!
Суть в чём: в файле при переносе данных через надстройки в лист "по участкам" не получается установить 2021 год. Ругается что такого года быть не может! Файл делал программист с которым связи нет! Начальство свалило на меня, а я не бум бум в программирование по экселю! Помогите пожалуйста! Или если можно объясните, как это править! Спасибо!

https://transfiles.ru/cjmtu

Файл большой пришлось залить на обменник.
 
Ответить
СообщениеУважаемые знатоки помогите пожалуйста!
Суть в чём: в файле при переносе данных через надстройки в лист "по участкам" не получается установить 2021 год. Ругается что такого года быть не может! Файл делал программист с которым связи нет! Начальство свалило на меня, а я не бум бум в программирование по экселю! Помогите пожалуйста! Или если можно объясните, как это править! Спасибо!

https://transfiles.ru/cjmtu

Файл большой пришлось залить на обменник.

Автор - ArkyShark
Дата добавления - 09.03.2021 в 09:23
Pelena Дата: Вторник, 09.03.2021, 09:29 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17544
Репутация: 3906 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Не боитесь выкладывать такие файлы в открытый доступ?

Куда смотреть? Где год надо установить?

Нашла. Нажмите Alt+F11 -- слева в редакторе VBA найдите папку Forms -- правой кнопкой мыши по Userform1 -- View Code -- в самом первом макросе найдите строчки
[vba]
Код
If Int(g) < 2010 Or Int(g) > 2020 Then
            MsgBox ("Такого года быть не может")
            Exit Function
        End If
[/vba]
замените 2020 на более подходящий


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеНе боитесь выкладывать такие файлы в открытый доступ?

Куда смотреть? Где год надо установить?

Нашла. Нажмите Alt+F11 -- слева в редакторе VBA найдите папку Forms -- правой кнопкой мыши по Userform1 -- View Code -- в самом первом макросе найдите строчки
[vba]
Код
If Int(g) < 2010 Or Int(g) > 2020 Then
            MsgBox ("Такого года быть не может")
            Exit Function
        End If
[/vba]
замените 2020 на более подходящий

Автор - Pelena
Дата добавления - 09.03.2021 в 09:29
ArkyShark Дата: Вторник, 09.03.2021, 09:53 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Pelena, огромное вам спасибо всё поправил! Ну это болванка причём старая, данные там уже не совсем актуальны)
 
Ответить
СообщениеPelena, огромное вам спасибо всё поправил! Ну это болванка причём старая, данные там уже не совсем актуальны)

Автор - ArkyShark
Дата добавления - 09.03.2021 в 09:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » В форме не получается изменить год (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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