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

Вход

Регистрация

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

 

= Мир MS Excel/Дни до окончания текущего месяца - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Дни до окончания текущего месяца (Макросы Sub)
Дни до окончания текущего месяца
Артем Дата: Четверг, 27.06.2013, 15:56 | Сообщение № 1
Группа: Гости
Необходимо создать кнопку, на которую нажимаешь после чего высвечивается табличка на которой указаны дни до окончания текущего месяца wacko
 
Ответить
СообщениеНеобходимо создать кнопку, на которую нажимаешь после чего высвечивается табличка на которой указаны дни до окончания текущего месяца wacko
Автор - Артем
Дата добавления - 27.06.2013 в 15:56
Саня Дата: Пятница, 28.06.2013, 13:20 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
[vba]
Код
dim dteIt as date
dim sMsg as string
dteIt=Date
do
    sMsg = sMsg & day(dteIt) & vbTab
    dteIt=dteIt+1
loop while month(date)=month(dteIt)
msgbox sMsg
[/vba]
 
Ответить
Сообщение[vba]
Код
dim dteIt as date
dim sMsg as string
dteIt=Date
do
    sMsg = sMsg & day(dteIt) & vbTab
    dteIt=dteIt+1
loop while month(date)=month(dteIt)
msgbox sMsg
[/vba]
Автор - Саня
Дата добавления - 28.06.2013 в 13:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Дни до окончания текущего месяца (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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