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

Вход

Регистрация

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

 

= Мир MS Excel/Функция EoMonth - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Функция EoMonth (Макросы/Sub)
Функция EoMonth
Wasilich Дата: Понедельник, 14.12.2015, 11:28 | Сообщение № 1
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Всем добрый день. У меня вопрос. Вот пытался применить EoMonth, а она работать не хочет. При запуске макроса высвечивает как ошибку. Может в 2003-м и не должно? Или че то не включено. КОНМЕСЯЦА работает. В чем дело?
 
Ответить
СообщениеВсем добрый день. У меня вопрос. Вот пытался применить EoMonth, а она работать не хочет. При запуске макроса высвечивает как ошибку. Может в 2003-м и не должно? Или че то не включено. КОНМЕСЯЦА работает. В чем дело?
Автор - Wasilich
Дата добавления - 14.12.2015 в 11:28
_Boroda_ Дата: Понедельник, 14.12.2015, 11:40 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Для Excel вроде должна быть подключена надстройка "Пакет анализа" (если правильно помню). В VBA, скорее всего, тоже библиотека нужна.
Еще спецнадстройка для VBA есть. Вот она, скорее всего, и нужна.
К сообщению приложен файл: 8730590.png (6.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеДля Excel вроде должна быть подключена надстройка "Пакет анализа" (если правильно помню). В VBA, скорее всего, тоже библиотека нужна.
Еще спецнадстройка для VBA есть. Вот она, скорее всего, и нужна.
Автор - _Boroda_
Дата добавления - 14.12.2015 в 11:40
Wasilich Дата: Понедельник, 14.12.2015, 11:48 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Привет Саша. Пакет анализа включен. И к стати, споткнулся на твоем же примере, там надо создать столько листов, сколько дней в месяце.
А раньше то я и не пользовался и не приходилось. Ну да ладно если проблема в 2003-м то и бог с ним, обойдусь. :)

ЗЫ вроде все есть и подключено. Analysis ToolPak - VBA но... фиг с ним.


Сообщение отредактировал Wasilic - Понедельник, 14.12.2015, 12:02
 
Ответить
СообщениеПривет Саша. Пакет анализа включен. И к стати, споткнулся на твоем же примере, там надо создать столько листов, сколько дней в месяце.
А раньше то я и не пользовался и не приходилось. Ну да ладно если проблема в 2003-м то и бог с ним, обойдусь. :)

ЗЫ вроде все есть и подключено. Analysis ToolPak - VBA но... фиг с ним.
Автор - Wasilich
Дата добавления - 14.12.2015 в 11:48
_Boroda_ Дата: Понедельник, 14.12.2015, 12:04 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Цитата Wasilic, 14.12.2015 в 11:48, в сообщении № 3
Пакет анализа включен

Это надстройка "ANALIZ32", она для Excel, а я про другую, она именно для VBA.
Я, правда, не знаю, а в 2003 стогу только дома посмотреть, нужно ли ее специально включать?

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

Это надстройка "ANALIZ32", она для Excel, а я про другую, она именно для VBA.
Я, правда, не знаю, а в 2003 стогу только дома посмотреть, нужно ли ее специально включать?
Автор - _Boroda_
Дата добавления - 14.12.2015 в 12:04
Wasilich Дата: Понедельник, 14.12.2015, 12:08 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Ну дык есть файл ATPVBAEN. И что с ним делать?
Цитата _Boroda_, 14.12.2015 в 12:04, в сообщении № 4
только дома посмотреть, нужно ли ее специально включать?

Ладно Саша, бог с ней, думал галочка где нить не установлена, а так ... обойдусь


Сообщение отредактировал Wasilic - Понедельник, 14.12.2015, 12:12
 
Ответить
СообщениеНу дык есть файл ATPVBAEN. И что с ним делать?
Цитата _Boroda_, 14.12.2015 в 12:04, в сообщении № 4
только дома посмотреть, нужно ли ее специально включать?

Ладно Саша, бог с ней, думал галочка где нить не установлена, а так ... обойдусь
Автор - Wasilich
Дата добавления - 14.12.2015 в 12:08
Kuzmich Дата: Понедельник, 14.12.2015, 14:39 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
У меня в 2003 тоже не хочет работать EoMonth, хотя в настройках References
у ATPVBAEN стоит галочка
Может воспользоваться DateSerial для нахождения последнего дня, скажем следующего месяца.
[vba]
Код
DateSerial(Year(Range("A1")), Month(Range("A1")) + 2, 1) - 1
[/vba]
 
Ответить
СообщениеУ меня в 2003 тоже не хочет работать EoMonth, хотя в настройках References
у ATPVBAEN стоит галочка
Может воспользоваться DateSerial для нахождения последнего дня, скажем следующего месяца.
[vba]
Код
DateSerial(Year(Range("A1")), Month(Range("A1")) + 2, 1) - 1
[/vba]
Автор - Kuzmich
Дата добавления - 14.12.2015 в 14:39
Wasilich Дата: Понедельник, 14.12.2015, 15:28 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата Kuzmich, 14.12.2015 в 14:39, в сообщении № 6
Может воспользоваться DateSerial
Ну, выкрутиться то я выкручусь. Просто, не сработала функция, вот и спросил в чем дело. :)
Дней в текущем месяце
[vba]
Код
d = Day(DateSerial(Year(Date), Month(Date) + 1, 1) - 1)
[/vba]
ЗЫ Вот еще вариант
[vba]
Код
KD = DateDiff("d", Date, DateAdd("m", 1, Date))
[/vba]


Сообщение отредактировал Wasilic - Понедельник, 14.12.2015, 16:29
 
Ответить
Сообщение
Цитата Kuzmich, 14.12.2015 в 14:39, в сообщении № 6
Может воспользоваться DateSerial
Ну, выкрутиться то я выкручусь. Просто, не сработала функция, вот и спросил в чем дело. :)
Дней в текущем месяце
[vba]
Код
d = Day(DateSerial(Year(Date), Month(Date) + 1, 1) - 1)
[/vba]
ЗЫ Вот еще вариант
[vba]
Код
KD = DateDiff("d", Date, DateAdd("m", 1, Date))
[/vba]
Автор - Wasilich
Дата добавления - 14.12.2015 в 15:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Функция EoMonth (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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