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

Вход

Регистрация

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

 

= Мир MS Excel/Как сделать так, чтобы выходные не считало? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать так, чтобы выходные не считало? (Макросы Sub)
Как сделать так, чтобы выходные не считало?
turistka Дата: Четверг, 14.11.2013, 20:42 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
У меня есть такая задача: допустим, что некий студент должен был вернуться с каникул в какой-то день, но вернулся позже, нужно рассчитать сколько часов он пропустит, если в один день пропускает 6 часов. Эту часть задачи я сделала, теперь стоит иная задача: как сделать так, чтобы выходные дни не считало.
Файл прикрепляю.
П.С. преподаватель говорил что-то про массивы.
объясните пожалуйста как можно больше доступно:) спасибо!
К сообщению приложен файл: 0577724.xlsm (23.1 Kb)

Nastya

Сообщение отредактировал turistka - Четверг, 14.11.2013, 21:29
 
Ответить
СообщениеУ меня есть такая задача: допустим, что некий студент должен был вернуться с каникул в какой-то день, но вернулся позже, нужно рассчитать сколько часов он пропустит, если в один день пропускает 6 часов. Эту часть задачи я сделала, теперь стоит иная задача: как сделать так, чтобы выходные дни не считало.
Файл прикрепляю.
П.С. преподаватель говорил что-то про массивы.
объясните пожалуйста как можно больше доступно:) спасибо!
Автор - turistka
Дата добавления - 14.11.2013 в 20:42
RAN Дата: Четверг, 14.11.2013, 21:26 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
IntKolDney = Application.WorksheetFunction.NetworkDays(DtmDataDol, DtmDataVozvr)
[/vba]
А массивы прицепить - это еще измудриться надо придумать, куда их воткнуть.

Придумал. :D

[vba]
Код
Dim IntKolDney( 1 To 1)
IntKolDney(1, 1) = Application.WorksheetFunction.NetworkDays(DtmDataDol, DtmDataVozvr)
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
IntKolDney = Application.WorksheetFunction.NetworkDays(DtmDataDol, DtmDataVozvr)
[/vba]
А массивы прицепить - это еще измудриться надо придумать, куда их воткнуть.

Придумал. :D

[vba]
Код
Dim IntKolDney( 1 To 1)
IntKolDney(1, 1) = Application.WorksheetFunction.NetworkDays(DtmDataDol, DtmDataVozvr)
[/vba]
Автор - RAN
Дата добавления - 14.11.2013 в 21:26
turistka Дата: Пятница, 22.11.2013, 02:04 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
RAN, Спасибо огромное!!! :D
А не могли бы вы оьяснить "Application.WorksheetFunction.NetworkDays" ?

Nastya
 
Ответить
СообщениеRAN, Спасибо огромное!!! :D
А не могли бы вы оьяснить "Application.WorksheetFunction.NetworkDays" ?
Автор - turistka
Дата добавления - 22.11.2013 в 02:04
RAN Дата: Пятница, 22.11.2013, 03:02 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Не прошло и полгода. <_<

WorksheetFunction - функция рабочего листа
Код
=ЧИСТРАБДНИ()

Справка на русском, доступно.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Пятница, 22.11.2013, 03:03
 
Ответить
СообщениеНе прошло и полгода. <_<

WorksheetFunction - функция рабочего листа
Код
=ЧИСТРАБДНИ()

Справка на русском, доступно.
Автор - RAN
Дата добавления - 22.11.2013 в 03:02
turistka Дата: Пятница, 22.11.2013, 03:19 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
RAN, еще раз огромнейшее СПАСИБО! :)
Очень-очень благодарна :D

Nastya
 
Ответить
СообщениеRAN, еще раз огромнейшее СПАСИБО! :)
Очень-очень благодарна :D
Автор - turistka
Дата добавления - 22.11.2013 в 03:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать так, чтобы выходные не считало? (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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