Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Преобразовать udf в процедуру, Преобразование пользоват.функции VBAв макрос
 
Подгрузил.
Преобразовать udf в процедуру, Преобразование пользоват.функции VBAв макрос
 
Добрый день.
Объединенная ячейка содержит числа с разделителем ;
Необходимо чтобы в этой же ячейке числа складывались.
Нужна именно процедура, а не пользоват. функция
За ранее благодарен.

Прикрепил пример


Код
Function xSum(cl As String) 
Dim arr
Dim i As Integer
arr = Split(cl, ";") 
For i = 0 To UBound(arr)
xSum = xSum + Val(arr(i))
Next
End Function  
Изменено: FINic - 24.05.2024 07:28:28
Транспонирование таблицы
 
AleksSid, спасибо и Вам
Транспонирование таблицы
 
Всякая умная таблица (как инструмент excel) плоская, но не всякая плоская умная
Транспонирование таблицы
 
Спасибо, коллеги!  БМВ весьма признателен - кудесник!
Транспонирование таблицы
 
Здравствуйте.
Представлена таблица нужно её развернуть для дальнейшей обработки. формулами и только ими.

В чем собственно суть
1) из исходной таблицы перенести столбец показателей (повтор каждого показателя по количеству дат в первой строке исходной таблицы)
2) перенести даты в плоскую таблицу для каждого показателя

С первым пунктом благополучно справился собственноручно.
Со вторым затык, хотя чувствую решение как всегда на поверхности.
Прошу оказать посильную помощь
Увеличение времени работы макроса
 
justirus, еще раз благодарю
Увеличение времени работы макроса
 
justirus, Спасибо большое за труды. Замечательно работает.

Поясните пожалуйста что делает эта часть кода
Код
Dim active_view
active_view = ActiveWindow.View
ActiveWindow.View = xlNormalView
Увеличение времени работы макроса
 
Сделал так исходя из своих знаний ВБА, а к кнопке привязался т.к. счел удобным - работать надо как с сокращённой формой так и с полной. Догадываюсь, что можно массивом обработать. но увы недотягиваю...
Увеличение времени работы макроса
 
Здравствуйте.
В файле на листе есть форма которая должна преображаться в более короткую форму посредством макроса скрытия строк по условию. Макрос работает сносно и достаточно быстро. Но если воспользоваться предварительным просмотром печати или перейти в страничный режим макрос притормаживает и работает значительно дольше. Подскажите, как решить эту проблему (таких листов будет много).
Хамам Не место на НАШЕМ форуме!, http://planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=50788&result=new
 
Мораль такова: "к людям надо помягше, а на вопросы смотреть ширше"
Хамам Не место на НАШЕМ форуме!, http://planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=50788&result=new
 
Тоже мягко говоря не приятно: http://planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=50189&MID=417300&tags=&q=FINic&FORUM_ID%5B0%5D=0&DATE_CHANGE=0&order=relevance&s=%D0%9D%D0%B0%D0%B9%D1%82%D0%B8#message417300
И проблема не была решена, и чувство нехорошее от общения осталось. И поблагодарил я только The_Prist за то, что снисходительно и по-человечески отнёсся, а не за его, тем не менее, содержательный ответ. Проблему решил сам же вместо ActiveCell.FormulaR1C1 надо ActiveCell.FormulaLocalR1C1. Но это так к слову.

Цитата
не можете помочь конкретно по теме - лучше и не отвечайте, просто пройдите мимо
Замечательное правило
Последовательное копирование данных
 
А сводная таблица Вам не подойдёт? Тот случай, как кажется.
Макросом заменить функцию ЕСЛИ по заданным условиям
 
Ну тоже на крайний случай :
=ЕСЛИ(ИЛИ(G2={1:2:3:4:6:7:8:10});"Не важно";ЕСЛИ(G2=9;"Акт.Частичное невыполнение заказа";"Акт.Заказ не выполнен"))
=ЕСЛИОШИБКА(ВЫБОР($G2;"НЕ ВАЖНО";"НЕ ВАЖНО";"НЕ ВАЖНО";"НЕ ВАЖНО";"Акт.Заказ не выполнен";"НЕ ВАЖНО";"НЕ ВАЖНО";"НЕ ВАЖНО";"Акт.Частичное невыполнение заказа";"Не важно");"")
Анекдот дня, Постим сюда понравившиеся:)
 
Пришло время Мастеру проверять своих учеников. Он позвал троих, взял белый лист бумаги, капнул на него чернила и спросил:
  — Что вы видите?
  Первый ответил: «Чёрное пятно». Второй: «Кляксу». Третий: «Чернила».
  Монах заплакал и ушёл в свою келью. Позже ученики спросили:
  — Почему Вы плакали?
  Монах сказал:
  — Никто из вас не увидел белого листа.
Сумма значений в excel 2013 (да, нет, плюс, минус)
 
Ну можно и так например:

=СЧЁТЕСЛИ((G1:ИНДЕКС(G:G;СТРОКА()-1));"ДА") - считает все, что выше итоговой ячейки или
=СУММ(--(G1:ИНДЕКС(G1:G6;СТРОКА()-1;0)="да");--(G7:G1048576="да")) - считает и все что сверху итог.ячейки (G6) и снизу. Формула массива. Ввод ctrl-shift-enter
умная Таблица не работает((
 
Ayren, смарт-тегом, по умолчанию они (смарт-теги) включены. Остальное - в справке, доступно изложено.
умная Таблица не работает((
 
Надо включить "вычисляемый столбец" Чтобы добавлять строки - TAB.
Ошибка VBA 1004 при выполнении кода
 
KuklP, Да, Дима молодец, Вы - нет. :idea:

Тема закрыта
Ошибка VBA 1004 при выполнении кода
 
The_Prist, Спасибо!
Мотя,, KuklP, Размышления о "жесткости вещей" особой пользы не принесёт, когда заданны строгие первоначальные условия совсем не абстрактной задачи. "мы знаем что задачка не имеет решения, но нам необходимо знать как её решать".
The_Prist, еще раз спасибо!
Ошибка VBA 1004 при выполнении кода
 
может тип данных поменять на double?
Ошибка VBA 1004 при выполнении кода
 
Не работает тогда и именно в таблицах где данные забиты. Подмечено, что если открыть файл и перебить значение, то макрос срабатывает для этой ячейки, а для последующих данных опят сбоит.
Ошибка VBA 1004 при выполнении кода
 
:) нет. Как раз сейчас читаю про это у Уокенбаха.
Ошибка VBA 1004 при выполнении кода
 
Значение активной ячейки. В самой ячейки может быть и формула.
Вообще искомым результатом должна быть формула которая берет именно значение из "текущей" активной ячейки и складывается со значением в ячейки отстоящей от неё на 4 позиции справа. Мне нужна именно формула. Свойство offset неподойдет, поэтому и исползую ссылку. Это своего рода накопительная по месяцам, но результат предыдущего месяца должен быть отражен в формуле как значение.
Ошибка VBA 1004 при выполнении кода
 
Добрый день!
Подскажите пожалуйста, почему при выполнении след.процедуры возникает ошибка 1004, Application defined or object defined error?
Код
Sub накопительная()
Dim s As Variant
s = ActiveCell.Value
ActiveCell.FormulaR1C1 = "=RC[4]+" & s
End Sub
"Финансовое моделирование с использованием Excel" Д.Жарова
 
Простите, но пп 3.9 мне кажется я не нарушал. как быть допустим с этим: http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=8041&MID=57041#message57041
Ещё раз прошу извинить если задел чьи-либо авторские чувства.
"Финансовое моделирование с использованием Excel" Д.Жарова
 
Уважаемые форумчане остро необходима книга "Финансовое моделирование с использованием Excel" Д.Жарова
и именно она. Собственно вот здесь эта книга этого автора упоминалась. Найти в инете пока не могу, поэтому если у кого-то где-то завалялось искомое издание (и/или прямая ссылка для скачивания), поделитесь пожалуйста с хорошим человеком. Спасибо.
OFF: Новый форум
 
Выражаю благодарность всем ребятам экспертам и автору сайта (Holder'у):)).    
Хорошие идеи, немало способствующие решению персональных, довольно специфичных задач преимущественно нахожу именно здесь. Уровень владением VBA заметно вырос. И публика замечательна. Ждем обновки.
[ Закрыто] Совсем офф, Но очень хочется мнения трезвомыслящих людей :)
 
Власть крупного капитала это плутократия. Демократия - власть народа. Если по науке.    
А вообще нужно иметь чудесный нравственный императив, чтобы устраивать в храме бесовские пляски и чертову катавасию. Так что вопрос не в политике, а в хулиганстве, и именно в нем. А хула на господа, к слову, самый страшный грех.  
А в целом тему надо закрыть. А то у слабонервных и вправду возникнет когнитивный диссонанс. Этот сайт посещают ведь для познания EXCEL.
Страницы: 1
Наверх