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