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

Страницы: 1
Подпись данных (итог) в линейчатой гистограмме с накоплением
 
Подскажите, пожалуйста, как вставить подписи данных итоговых значений в линейчатой гистограмме с накоплением.
С столбчатой все получилось, изменив тип диаграммы ряда «Итог» на график.
Изменено: lazareva - 22.09.2016 11:31:03
Группировка данных по 4-х уровнях с помощью макроса
 
Влад, Огромное вам спасибо! Заработало!
Группировка данных по 4-х уровнях с помощью макроса
 
Есть таблица в которой нужно группировать данные по 4 уровням. Начала группировать вручную но на 2000 строке (всего 9400) поняла, что без макроса не обойдусь. Нашла вот такой, вот здесь http://www.planetaexcel.ru/techniques/9/47/,
Код
Sub Multilevel_Group()
    Dim level As Single, i As Single
    Dim start As Single, LastRow As Single
 
    Const FIRST_ROW = 2         'первая строка списка
    Const FIRST_COLUMN = 1      'первый столбец списка
    Const NUMBER_OF_LEVELS = 3  'количество уровней
 
    Set ws = ActiveSheet
    ws.UsedRange.ClearOutline   'убираем все группировки на листе
    LastRow = WorksheetFunction.Match("Конец", ws.Columns(FIRST_COLUMN), 0) 'определяем номер последней строки
 
    'проходим во вложенном цикле по уровням и группируем
    For level = 1 To NUMBER_OF_LEVELS
        start = 0
        For i = FIRST_ROW To LastRow
            'если нашли начало группы - запоминаем номер строки
            If ws.Cells(i, level+FIRST_COLUMN-1) <> "" And _
                   WorksheetFunction.CountA(ws.Cells(i + 1, FIRST_COLUMN).Resize(1, level)) = 0 Then start = i
 
            'если нашли конец группы - группируем
            If WorksheetFunction.CountA(ws.Cells(i + 1, FIRST_COLUMN).Resize(1, level)) > 0 And start > 0 Then
                ws.Rows(start + 1 & ":" & i).Group
                start = 0
            End If
        Next i
    Next level
End Sub
но почему-то выдает ошибку. Подскажите, что я делаю не так.
Изменено: lazareva - 27.05.2016 15:28:30
Макрос удаления лишних пробелов в Excel
 
kuklp, большое спасибо! То что надо!
Макрос удаления лишних пробелов в Excel
 
Мне стыдно,что я научилась только копировать макросы, а написать самой трудновато. Немножко потрудившись, вот что получилось. Работает, но мня не устраивает то что надо выделять диапазон перед выполнением макроса. Диапазонов у меня много и они разбросаны. Как сделать так, чтоб он работал в столбце I и столбце J пока не разобралась. Еще нужно учесть, что в этих столбцах будут данные, которые уже прошли через макрос

Код
Sub удалить_неразрывный_пробел()
Dim rCell As Range
    For Each rCell In Selection
        rCell = Replace(rCell, Chr(160), "")
        rCell.TextToColumns
    Next
End Sub
Изменено: lazareva - 20.05.2016 09:35:41
Макрос удаления лишних пробелов в Excel
 
Спасибо, kuklp, сработало (окно Immeiate)! Остался один вопрос. Данные в документ вносятся каждый день. Что делать после ввода новых данных?
Изменено: lazareva - 19.05.2016 17:41:34
Макрос удаления лишних пробелов в Excel
 
Спасибо, Мотя. Пробел забрала, но проблема не решена, сума не считает.
Макрос удаления лишних пробелов в Excel
 
Как удалить пробелы внутри числа (неразрывный пробел) с помощью макроса. Сейчас использую «Найти и Заменить», так как формулу =СЖПРОБЕЛЫ(ПОДСТАВИТЬ(J5;СИМВОЛ(160);"";1))*1 использовать в моем случае не удобно.
Страницы: 1
Наверх