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

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

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

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

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

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

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

Spasibo.

Благодарю!

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

@DenBat_75

6 жыл бұрын

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

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

@Ivaninho

3 жыл бұрын

Аналогично

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

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

@frostlagtemane6923

Жыл бұрын

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

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

@easyexcellesson

7 жыл бұрын

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

@diasmaratovich7900

7 жыл бұрын

Easy Excel Спасибо!

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

@easyexcellesson

7 жыл бұрын

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

@profesor2009

7 жыл бұрын

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

С colorIndex тоже косяк

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

@easyexcellesson

8 жыл бұрын

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

@Versie2007

8 жыл бұрын

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

@Versie2007

8 жыл бұрын

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

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

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

@easyexcellesson

6 жыл бұрын

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

@lamanhasanova8264

6 жыл бұрын

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

@lamanhasanova8264

6 жыл бұрын

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

@lamanhasanova8264

6 жыл бұрын

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

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

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

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

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

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