MS Excel - решение практических задач

В этой теме размещаем вопросы и ответы, а также советы и рекомендации по решению конкретных задач, которые требуют создания формулы, применения макроса, написания кода VBA, т.е. Практикум.

------------------------------

Вопросы и ответы, а также советы и рекомендации по настройке MS Excel, ошибки в работе программы, решение задач по импорту/экспорту документов, ссылки и обсуждение надстроек для Excel, обучающие материалы и т.п. размещаем в теме MS Excel - настройка, импорт/экспорт.
Если решение задачи не требует применения формул и макросов (VBA), то это обсуждение будет перенесено в тему по настройкам.

Все пожелания по принципам размещения сообщений по этим темам рассматриваются - пишите в личку Andrey_k.

[ДЫСЫпы]

Функцию в модуль.
На листе, в я ячейку вводим формулу напрмер =Couple(F1:F18), где (F1:F18) некий диапазон. Еще проще воспользоваться мастером функций, в списке найти "Определяемые пользователем", далее выбрать Couple
Все очень просто

[Jasur79]

Функцию в модуль вставил.
В мастере функции появилась функция couple
в ячейке с набранной функцией например =Couple(F1:F18)
после ввода появляется =Couple(F1:F18)
т.е. показывается сама функция, а ячейки не объединяются
В мастере функций при выделении ячеек показывает правильное объединение ячеек, но по завершении мастера отображается сама функция =Couple(F1:F18), вместо данных объединенных ячеек

[Chet]

Цитата: Сообщение от Jasur79 Function Couple(Diapazon) Diapazon (razdelitel' mezhdu znacheniyami - probel)

я могу что-то где-то недогонять... Пробел, или я таки не прав?

[ДЫСЫпы]

Цитата: =Chetiki;1647423я могу что-то где-то недогонять... Пробел, или я таки не прав?

Конечно пробел, он в функции явно и указан. Непонятно, что Jasur79 на выходе получить хочет, функция отрабатывает правильно, объеденияет значения ячеек в диапазоне.
Вот мой пример, заполнил значения в диапазоне от 1 до 19, функция вернула "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19"

ЗЫ:
Чтобы избавится от пробела убери его в коде, то бишь
Couple = Couple & iCell

Добавлено через 6 минут

Цитата: Сообщение от Jasur79 Функцию в модуль вставил. В мастере функции появилась функция couple в ячейке с набранной функцией например =Couple(F1:F18) после ввода появляется =Couple(F1:F18) т.е. показывается сама функция, а ячейки не объединяются В мастере функций при выделении ячеек показывает правильное объединение ячеек, но по завершении мастера отображается сама функция =Couple(F1:F18), вместо данных объединенных ячеек

Сервис\Параметры\Вид\Формулы, галочку снять
Больше причин не вижу

[Jasur79]

Сегодня функция у меня заработала. Возможно я неправильно установил его в модуль. Разъясните как правильно вставлять в модуль, чтобы она постоянно находилась в функциях excel.

[ДЫСЫпы]

Открываем Ексель, жмем alt+F11. В открывшемся редакторе VBA, жмем insert\Module встявляем наш код. В таком виде функция будет доступна только для этой книги. Если необходимо сделать ее доступной для всех других, можно сделать надстройку.
Сохраняем наш файл как надстройку например couple.xla, в екселе Сервис\Надстройки жмем кноку обзор находим наш couple.xla, жмем ОК. Функция будет доступна во всех книгах.

[Jasur79]

Необходимо рассчитать стаж работы работников. На каждого работника рассчитан стаж в виде лет, месяцев, дней на 19 мая 2008 года. Какой функцией необходимо воспользоваться чтобы рассчитать стаж на 1.01.2009 года.
Для примера выкладываю файл
http://rapidshare.com/files/116171856/staj.xls.html

[ДЫСЫпы]

=ДНЕЙ360() тебе в помощь, функция вернет количество дней между датами. Ну а дальше сам вытягиваешь из нее годы, месяцы и тд
Кстати не совсем понял в первой строке лет 30, месяцев 29??? Непонятно.

[Jasur79]

Месяцев 9. Ошибся.
Функцией =ДНЕЙ360() можно воспользоваться, если имеется 2 даты. У меня на 1.05.08 г. есть отдельно год, месяц, день. Нужно также отдельно вычислить на дату например 1.01.09.
По выложенной таблице нужно рассчитать столбец "Общий стаж на 1.01.09 г." и столбец "Стаж НХК на 1.01.09 г.".

[newbie7]

Цитата: Сообщение от DSp =ДНЕЙ360() тебе в помощь, функция вернет количество дней между датами.

Если требуется подсчитать ТОЧНОЕ количество ДНЕЙ, месяцеы и годов, то =ДНЕЙ360() не поможет, поможет комбинация функций ГОД(), МЕСЯЦ(), ДЕНЬ(), ДАТА()

Добавлено через 4 минуты

Цитата: Сообщение от Jasur79 Необходимо рассчитать стаж работы работников. На каждого работника рассчитан стаж в виде лет, месяцев, дней на 19 мая 2008 года. Какой функцией необходимо воспользоваться чтобы рассчитать стаж на 1.01.2009 года. Для примера выкладываю файл http://rapidshare.com/files/116171856/staj.xls.html

Функции смотри чуть выше.
Для примера выкладываю один из вариантов решения проблемы:
http://rapidshare.com/files/117593211/staj__2_.xls.html

[Mirat]

Как заменить последние разряды на ноль в столбце из 15-ти значных чисел т.е.
из 123456789012345 получить 123456789012340

[newsletter]

Цитата: Сообщение от Mirat Как заменить последние разряды на ноль в столбце из 15-ти значных чисел т.е. из 123456789012345 получить 123456789012340

справа от столбика с этими 15 значными числами вставляем формулу:

1) воспринимается как текст

=ЗАМЕНИТЬ(адрес ячейки;15;1;0)

2) воспринимается как число

=--ЗАМЕНИТЬ(адрес ячейки;15;1;0)

[Mirat]

newsletter, Спасибо, побробовал. Получаеться у одной строки.
А как так сделать, чтобы у всего столбца состоящего, например из 6000 строк 15-ти значных чисел последние разряды поменять на ноль.

[newsletter]

Цитата: Сообщение от Mirat newsletter, Спасибо, побробовал. Получаеться у одной строки. А как так сделать, чтобы у всего столбца состоящего, например из 6000 строк 15-ти значных чисел последние разряды поменять на ноль.

так вам надо просто формулу протянуть вниз на столько строк сколько у вас есть..щелкните на ячейку с формулой, которую вы прописали и потяните за правый нижний уголок вниз до последней строки и только потом отпустите кнопку мышки...

Добавлено через 7 минут
а вообще лучше двойной клик сделай по правому нижнему уголку ячейки с формулой...и тогда формула должна автоматически протянуться вниз до последней строки с данными...

[Mirat]

newsletter, Спасибо Большое. Попробовал-получилось. Всё оказывается просто делается когда руки откуда надо растут.