Добрый день. Объединенная ячейка содержит числа с разделителем ; Необходимо чтобы в этой же ячейке числа складывались. Нужна именно процедура, а не пользоват. функция За ранее благодарен.
Прикрепил пример
Код
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
Здравствуйте. Представлена таблица нужно её развернуть для дальнейшей обработки. формулами и только ими.
В чем собственно суть 1) из исходной таблицы перенести столбец показателей (повтор каждого показателя по количеству дат в первой строке исходной таблицы) 2) перенести даты в плоскую таблицу для каждого показателя
С первым пунктом благополучно справился собственноручно. Со вторым затык, хотя чувствую решение как всегда на поверхности. Прошу оказать посильную помощь
Здравствуйте. В файле на листе есть форма которая должна преображаться в более короткую форму посредством макроса скрытия строк по условию. Макрос работает сносно и достаточно быстро. Но если воспользоваться предварительным просмотром печати или перейти в страничный режим макрос притормаживает и работает значительно дольше. Подскажите, как решить эту проблему (таких листов будет много).
Уважаемые форумчане остро необходима книга "Финансовое моделирование с использованием Excel" Д.Жарова и именно она. Собственно вот здесь эта книга этого автора упоминалась. Найти в инете пока не могу, поэтому если у кого-то где-то завалялось искомое издание (и/или прямая ссылка для скачивания), поделитесь пожалуйста с хорошим человеком. Спасибо.