5 Интересных Функций на VBA [10]

----СКИДКА 50% на Продвинутый Курс - 1excel.ru/profi ----
5 полезных функций на VBA в программе Excel.
Ссылка на файл - yadi.sk/i/Uhg7...
Функции на VBA:
1. Имя Пользователя
2. Имя текущего листа
3. Подсчет листов
4. Индекс по цвету
5. Квартал по дате
Easy Excel - ПОЛНОЕ и ПОДРОБНОЕ обучение программы Excel для новичков и практиков!
Подписка на канал Easy Excel: / easyexcellesson

[@5pExp]

Здорово, спасибо! Наконец то мне объяснили просто и доступно, как пишутся хотя бы простенькие пользовательские функции.

[@Silent_whisperer]

Полезные приемы❤ спасибо автору!

[@eduardmart1237]

Крутые видео и хорошее качество! Делай еще про ВБА!

[@frostlagtemane6923]

Видео Огонь - ты красавчик!

[@CapustaPs]

спасибо за уроки, очень интересно и полезно)

[@barqaror_balas]

спасибо за уроки

[@temniknn1377]

очень полезно и понятно!

[@priyankakhan4445]

слава богу тут на заднем фоне ничего нет... спасибо за ваши уроки!

[@svetlanafurs5764]

Большое спасибо. Мне интересен 4-й вариант : по дате определить квартал, попробую на практике. Я раньше делала это через встроенные функции EXCEL: МЕСЯЦ и ЕСЛИ.

[@Ivaninho]

Аналогично

[@Dmitrii-Zhinzhilov]

Благодарю!

[@371MonaLiza]

Spasibo.

[@сергейа-о9ь]

Подсчет листов можно сделать проще: Public Function ПодсчетЛистов() ПодсчетЛистов = Application.ActiveWorkbook.Worksheets.Count End Function

[@DenBat_75]

Я долго смеялся, когда увидал ЧТО он предложил для подсчета листов :) Вообще достаточно =sheets.count

[@сергейа-о9ь]

Определить номер квартала можно и встроенной функцией DatePart. Параметры функции DatePart(): "yyyy" Год "q" Квартал "m" Месяц "y" День года "d" День "w" День недели "ww" Неделя "h" Час "n" Минута "s" Секунда Public Function КварталПоДате(Дата As Date) КварталПоДате ="Кв." & DatePart("q", Дата) End Function

[@ЕвгенияДевятерикова-ю5в]

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

[@frostlagtemane6923]

Если вы хотите чтобы макра сама перебирала все листы в книге (допустим их ОЧЕНЬ много) то погуглите как приписать цикл

[@profesor2009]

Здравствуйте.подскажите а каким образом можно создать таблицу чтобы можно было играть с ежемесячным платежом? то есть у меня платеж 19500 например. И я хочу посмотреть что будет если я буду платить по 20 000 как это сделать?

[@easyexcellesson]

Скажите, что именно вы хотите видеть в таблице? Кредитное погашение? Что конкретно, опишите, пожалуйста?

[@profesor2009]

Здравствуйте. ну у меня есть такая таблица в экселе она показывается выплаты ежемесячно до конца срока кредитования. но в один день я например заплатил вместо 19500 - 30 000 рублей и платеж в месяц у меня немного уменьшился. И вот в данной таблице мне не указать заместо одного платежа 19500 платеж 30 000. и в итоге я не вижу как изменился у меня кредит - погашение основного долга и процентов

[@MAI.I.IA-YOTA]

Function КварталПоДате(Дата As Date) КварталПоДате = "Квартал " + Int((Month(Дата) - 1) / 3) + 1 End Function

[@diasmaratovich7900]

Здравствуйте ! Какую книгу посоветуете по VBA , хочу её освоить ?

[@easyexcellesson]

Джон Уокенбах. Профессиональное программирование на VBA

[@diasmaratovich7900]

Easy Excel Спасибо!

[@DenBat_75]

С colorIndex тоже косяк

[@Versie2007]

А разве нельзя часть функций реализовать через встроенные функции Икселя?

[@easyexcellesson]

+Max Checkanov на сколько мне известно, кроме кажется имени пользователя остальные функции нельзя реализовать через встроенные функции

[@Versie2007]

+Easy Excel 2. =ЯЧЕЙКА("имяфайла") (ну а далее просто с помощью текстовых функций вычленить имя листа). 3. =ЛИСТЫ() (функция доступна, вроде бы, начиная с 2013 офиса). Вообще, мы с коллегами реализовали этот функционал без вба и для 2003, но пока файл с функцией не нашёл. Возможно использовали функию ИНФОРМ(). 5. ЦЕЛОЕ((МЕСЯЦ(A1)+2)/3) Просто если файл, например, затем рассылается по магазинам сети, как в моём случае, от ВБА приходится отказываться, поэтому варианты с формулами предпочтительнее. Да и возможно быстрее, хотя кто его знает.

[@Versie2007]

Про то, что пункт 3 реализовали для 2003 офиса, соврал: надо было, чтобы пользователи не создавали лишних листов и всегда был только один лист. Использовали для решения пункт 2.

[@englishandukrainianaremyfa9846]

У МЕНЯ ОДНА ФУНКЦЫЯ НЕ РОБОТАЕТ

[@lamanhasanova8264]

ЗДРАСТИ,ПОЧЕМУ У МЕНЯ В "VİSUAL BASİC" НЕ ПИШЕТСЯ С РУС.БУКВАМИ.У МЕНЯ СТАРАЯ ВЕРСИЯ EXCELL 2007 ,МОЖЕТ ПОЭТОМУ.ОТВЕТЬТЕ ПОЖАЛУЙСТА НА ЭТОТ ВОПРОС ОЧЕНЬ ВАЖНО.

[@easyexcellesson]

Где именно не пишется, приведите пример

[@lamanhasanova8264]

нампример в visual basic ,когда открываю modul

[@lamanhasanova8264]

например в visual basic ,когда открываю модул

[@lamanhasanova8264]

например в visual basic ,когда открываю модул

[@АндрейТарасов-д7я]

Ни о чем... Следовало назвать VBA для додиков...

[@lvanovlvan]

Терпеть ненавижу кейсы.

[@viacheslavkonaichev2013]

=ROUNDUP(MONTH(A1)/3;0), автору дизлайк

[@alexruban6089]

Сам ты квАртал. ..