Большое спасибо. Мне интересен 4-й вариант : по дате определить квартал, попробую на практике. Я раньше делала это через встроенные функции EXCEL: МЕСЯЦ и ЕСЛИ.
Определить номер квартала можно и встроенной функцией DatePart. Параметры функции DatePart(): "yyyy" Год "q" Квартал "m" Месяц "y" День года "d" День "w" День недели "ww" Неделя "h" Час "n" Минута "s" Секунда Public Function КварталПоДате(Дата As Date) КварталПоДате ="Кв." & DatePart("q", Дата) End Function
Подскажите как можно написать код для добавления строки на текущем листе, писала через рекодер, получается что каждого листа у меня отдельный макрос, хочется чтобы сам макрос понимал текущий лист и на нем добавлял строку.
Здравствуйте.подскажите а каким образом можно создать таблицу чтобы можно было играть с ежемесячным платежом? то есть у меня платеж 19500 например. И я хочу посмотреть что будет если я буду платить по 20 000 как это сделать?
Здравствуйте. ну у меня есть такая таблица в экселе она показывается выплаты ежемесячно до конца срока кредитования. но в один день я например заплатил вместо 19500 - 30 000 рублей и платеж в месяц у меня немного уменьшился. И вот в данной таблице мне не указать заместо одного платежа 19500 платеж 30 000. и в итоге я не вижу как изменился у меня кредит - погашение основного долга и процентов
+Easy Excel 2. =ЯЧЕЙКА("имяфайла") (ну а далее просто с помощью текстовых функций вычленить имя листа). 3. =ЛИСТЫ() (функция доступна, вроде бы, начиная с 2013 офиса). Вообще, мы с коллегами реализовали этот функционал без вба и для 2003, но пока файл с функцией не нашёл. Возможно использовали функию ИНФОРМ(). 5. ЦЕЛОЕ((МЕСЯЦ(A1)+2)/3) Просто если файл, например, затем рассылается по магазинам сети, как в моём случае, от ВБА приходится отказываться, поэтому варианты с формулами предпочтительнее. Да и возможно быстрее, хотя кто его знает.
Про то, что пункт 3 реализовали для 2003 офиса, соврал: надо было, чтобы пользователи не создавали лишних листов и всегда был только один лист. Использовали для решения пункт 2.
ЗДРАСТИ,ПОЧЕМУ У МЕНЯ В "VİSUAL BASİC" НЕ ПИШЕТСЯ С РУС.БУКВАМИ.У МЕНЯ СТАРАЯ ВЕРСИЯ EXCELL 2007 ,МОЖЕТ ПОЭТОМУ.ОТВЕТЬТЕ ПОЖАЛУЙСТА НА ЭТОТ ВОПРОС ОЧЕНЬ ВАЖНО.
Здорово, спасибо! Наконец то мне объяснили просто и доступно, как пишутся хотя бы простенькие пользовательские функции.
Полезные приемы❤ спасибо автору!
Крутые видео и хорошее качество! Делай еще про ВБА!
спасибо за уроки, очень интересно и полезно)
спасибо за уроки
Видео Огонь - ты красавчик!
очень полезно и понятно!
Spasibo.
Благодарю!
Большое спасибо. Мне интересен 4-й вариант : по дате определить квартал, попробую на практике. Я раньше делала это через встроенные функции EXCEL: МЕСЯЦ и ЕСЛИ.
Аналогично
слава богу тут на заднем фоне ничего нет... спасибо за ваши уроки!
Подсчет листов можно сделать проще:
Public Function ПодсчетЛистов()
ПодсчетЛистов = Application.ActiveWorkbook.Worksheets.Count
End Function
Я долго смеялся, когда увидал ЧТО он предложил для подсчета листов :)
Вообще достаточно =sheets.count
Определить номер квартала можно и встроенной функцией DatePart. Параметры функции DatePart():
"yyyy" Год
"q" Квартал
"m" Месяц
"y" День года
"d" День
"w" День недели
"ww" Неделя
"h" Час
"n" Минута
"s" Секунда
Public Function КварталПоДате(Дата As Date)
КварталПоДате ="Кв." & DatePart("q", Дата)
End Function
Подскажите как можно написать код для добавления строки на текущем листе, писала через рекодер, получается что каждого листа у меня отдельный макрос, хочется чтобы сам макрос понимал текущий лист и на нем добавлял строку.
Если вы хотите чтобы макра сама перебирала все листы в книге (допустим их ОЧЕНЬ много) то погуглите как приписать цикл
Здравствуйте ! Какую книгу посоветуете по VBA , хочу её освоить ?
Джон Уокенбах. Профессиональное программирование на VBA
Easy Excel Спасибо!
Здравствуйте.подскажите а каким образом можно создать таблицу чтобы можно было играть с ежемесячным платежом? то есть у меня платеж 19500 например. И я хочу посмотреть что будет если я буду платить по 20 000 как это сделать?
Скажите, что именно вы хотите видеть в таблице? Кредитное погашение? Что конкретно, опишите, пожалуйста?
Здравствуйте. ну у меня есть такая таблица в экселе она показывается выплаты ежемесячно до конца срока кредитования. но в один день я например заплатил вместо 19500 - 30 000 рублей и платеж в месяц у меня немного уменьшился. И вот в данной таблице мне не указать заместо одного платежа 19500 платеж 30 000. и в итоге я не вижу как изменился у меня кредит - погашение основного долга и процентов
А разве нельзя часть функций реализовать через встроенные функции Икселя?
+Max Checkanov на сколько мне известно, кроме кажется имени пользователя остальные функции нельзя реализовать через встроенные функции
+Easy Excel
2. =ЯЧЕЙКА("имяфайла") (ну а далее просто с помощью текстовых функций вычленить имя листа).
3. =ЛИСТЫ() (функция доступна, вроде бы, начиная с 2013 офиса). Вообще, мы с коллегами реализовали этот функционал без вба и для 2003, но пока файл с функцией не нашёл. Возможно использовали функию ИНФОРМ().
5. ЦЕЛОЕ((МЕСЯЦ(A1)+2)/3)
Просто если файл, например, затем рассылается по магазинам сети, как в моём случае, от ВБА приходится отказываться, поэтому варианты с формулами предпочтительнее. Да и возможно быстрее, хотя кто его знает.
Про то, что пункт 3 реализовали для 2003 офиса, соврал: надо было, чтобы пользователи не создавали лишних листов и всегда был только один лист. Использовали для решения пункт 2.
С colorIndex тоже косяк
Function КварталПоДате(Дата As Date)
КварталПоДате = "Квартал " + Int((Month(Дата) - 1) / 3) + 1
End Function
У МЕНЯ ОДНА ФУНКЦЫЯ НЕ РОБОТАЕТ
ЗДРАСТИ,ПОЧЕМУ У МЕНЯ В "VİSUAL BASİC" НЕ ПИШЕТСЯ С РУС.БУКВАМИ.У МЕНЯ СТАРАЯ ВЕРСИЯ EXCELL 2007 ,МОЖЕТ ПОЭТОМУ.ОТВЕТЬТЕ ПОЖАЛУЙСТА НА ЭТОТ ВОПРОС ОЧЕНЬ ВАЖНО.
Где именно не пишется, приведите пример
нампример в visual basic ,когда открываю modul
например в visual basic ,когда открываю модул
например в visual basic ,когда открываю модул
Ни о чем... Следовало назвать VBA для додиков...
Терпеть ненавижу кейсы.
=ROUNDUP(MONTH(A1)/3;0), автору дизлайк
Сам ты квАртал. ..