Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 След.
Фильтр для отчетного периода Q4 2018 и всего 2019 года, Логические функций IF, OR, AND
 
Максим В., готово.
Спасибо!
Фильтр для отчетного периода Q4 2018 и всего 2019 года, Логические функций IF, OR, AND
 
Подскажите пожалуйста одну вещь.
Как сделать, если месяц 10,11,12/2018 года то возвращяем значение Q4 а если с 1-12 месяц/2019 то возврашаем значение [B]P8

формула вернула нужный данные. Я не учел что нужно "подкрутить" формулу так что бы не просто TRUE or FALSE, a конкретный период.
Фильтр для отчетного периода Q4 2018 и всего 2019 года, Логические функций IF, OR, AND
 
Идеально.
Спасибо!
Фильтр для отчетного периода Q4 2018 и всего 2019 года, Логические функций IF, OR, AND
 
Доброго времени сутук.
Нужна Ваша помощь
Задача. Формулой выделит,  IF(AND(10,11,12 месяцы 2018 и все месяцы с 1-12, 2019 года),TRUE,FALSE))
Данная формула необходима для дальнейших расчетов модели, фильтры не подходят.
Всем огромное спасибо кто отзовется.
Перевести условное форматирование в обычное - VBA., Универсальный и специализированные варианты.
 
Цитата
bedvit написал:
Оптимизировал некоторые моменты.
51 лист в книге;
время на обработку, cca 2 мин
размер файла initial 9.7 MB -> после макроса 10.1 MB. (+сca 4%)
В течении дня буду тестировать еще. Обязательно дам знать.

Update от 5/27/19 работает стабильно.
Ошибок нет.
Спасибо огромное!
Изменено: Alex D - 27 Май 2019 12:22:12
Перевести условное форматирование в обычное - VBA., Универсальный и специализированные варианты.
 
Цитата
bedvit написал:
Это из-за чего? из-за перевода формата?
После удаление всего лишнего  мой фаил cca 700 KB, нельзя зацепить на форуме (фаил > 100 KB ) + security reasons не дают мне этого сделать.

После макроса.
Я обратил внимание, если выделить все листы, далее HOME -> Clear -> Clear Formats -> Save этот же фаил, размер упал с 9 MB до 7 MB
Понятно, что все форматы которые были стерлись и фаил стал меньше.
Я не специалист... только учусь... но такое ощущение что после макроса все "форматирования" дублируются.
Изменено: Alex D - 23 Май 2019 16:20:43
Перевести условное форматирование в обычное - VBA., Универсальный и специализированные варианты.
 
Цитата
bedvit написал:
Тестируйте.
Доброго дня bedvit,
Прогнал, [версия: 7 от 22/05/2019] по 41 листу. cca 7 мин. Ошибки, нет.

Update:

Фаил с 9 MB подрос до 250 MB
Сохронял, как новый .xls / .xlsm - тоже самое

Спасибо Вам  и форуму!
Изменено: Alex D - 23 Май 2019 14:53:10
Перевести условное форматирование в обычное - VBA., Универсальный и специализированные варианты.
 
Цитата
Версия с сохранением структуры листа (группировки столбцов/строк) в случаях выделения целой строки или столбца или всего листа (с данными).
Прошу извинить меня, что влезаю...
@bedvit можно мне обнаглеть... и попросить показать как применить к 40 листам в книге?
Что-то подобное...
Код
Sub all_sheets()
Dim ws As Worksheet
For Each ws In Worksheets
    'code...
Next ws
End Sub
Спасибо!
Изменено: Alex D - 22 Май 2019 13:47:19
Выделение ячеек по условию в отчете по текущему месяцу. Сохранение формата ячейки и удаление правила., Условное форматирование, VBA
 
Цитата
bedvit написал:
Добавил код.
Спасибо огромное!
Как часы
Копирование данных из одной книги в другую без открывания самой книги.
 
Здравствуйте.
Подскажите как изменить код. Код был найден на просторах интернета.
Имеется две книги A и B. Нужно скопировать данные с листа "Input SAP" книги A  в книгу B c листом тем же названием "Input SAP"
Код задачу свою выполняет, только когда пользователь находится на активном листе "Input SAP" книги B.
Приложение. 2 файла
Спасибо большое кто отзовется!
Код
Sub copy_data()
Dim vFile As Variant
Dim wbCopyTo As Workbook
Dim wsCopyTo As Worksheet
Dim wbCopyFrom As Workbook
Dim wsCopyFrom As Worksheet

Set wbCopyTo = ActiveWorkbook
Set wsCopyTo = ActiveSheet

    'Open file with data to be copied
    vFile = Application.GetOpenFilename("Excel Files (*.xl*)," & "*.xl*", 1, "Select Excel File", "Open", False)
    
    'If Cancel then Exit
    If TypeName(vFile) = "Boolean" Then
        Exit Sub
    Else
        Set wbCopyFrom = Workbooks.Open(vFile)
        Set wsCopyFrom = wbCopyFrom.Worksheets(1)
    End If
    
    'Copy Range
    wsCopyFrom.Range(Range("A1:P1"), Range("A1:P1").End(xlDown)).Copy
    wsCopyTo.Range("A1").PasteSpecial Paste:=xlPasteValues
   
    'Close file that was opened
    wbCopyFrom.Close SaveChanges:=False

End Sub
Выделение ячеек по условию в отчете по текущему месяцу. Сохранение формата ячейки и удаление правила., Условное форматирование, VBA
 
Цитата
bedvit написал:
Перевести условное форматирование в обычное - VBA.
Спасибо большое! Очень дельный инструмент!
Вопрос. В листе имеется группировка столбцов и строк. Как подогнать код, что бы он их не убирал?
Цитата
Sanja написал:
Разбираться с ним нет особого желания.
Моя вина. Исправил.
Выделение ячеек по условию в отчете по текущему месяцу. Сохранение формата ячейки и удаление правила., Условное форматирование, VBA
 
Цитата
Sanja написал:
Что удалять-то?
Alt + F11 там модуль. Он там один.
Если запустите nce_period появится УФ и FC_delete (Ваш)
Выделение ячеек по условию в отчете по текущему месяцу. Сохранение формата ячейки и удаление правила., Условное форматирование, VBA
 
Цитата
Sanja написал:
Приложите файл-пример. 40 листов, не нужно 3-5 хватит
Пример в студию )
Спасибо
Выделение ячеек по условию в отчете по текущему месяцу. Сохранение формата ячейки и удаление правила., Условное форматирование, VBA
 
Цитата
Sanja написал:
Попробуйте такой макрос
Спасидбо большое, но Interior Color стал черным и только на выделенном листе. Всего 40+ листов в файле.
Выделение ячеек по условию в отчете по текущему месяцу. Сохранение формата ячейки и удаление правила., Условное форматирование, VBA
 
Доброго времени суток,
Нужна помощь, коллеги.
Задача. Удалить условное форматирование (правила), но оставить формат ячеек. Часть рабочего код ниже.
Спасибо всем, кто откликнется.
Код
Sub nce_period()
Application.ScreenUpdating = 0

'conditional formatting highlite column, according to current month in ranga "P:AA",
    With Range("A6:BN170").FormatConditions.Add( _
        Type:=xlExpression, _
        Formula1:="=AND(RC3<>"""",R5C=TEXT(TODAY(),""[$-809]mmm""))")
        .SetFirstPriority
        .Interior.Color = RGB(217, 217, 217)
    End With

'conditional formatting de-emphasize previous column, according to current month in ranga (P:AA),
    With Range("A6:BN170").FormatConditions.Add( _
        Type:=xlExpression, _
        Formula1:="=AND(RC3<>"""",R5C=TEXT((EDATE(TODAY(),-1)),""[$-809]mmm""))")
        .SetFirstPriority
        .Interior.Color = RGB(255, 255, 255)
    End With

Application.ScreenUpdating = 1
End Sub
Трехуровневая / многоуровневая группировка данных c помощью VBA
 
Код
Sub apply_groups()
Application.ScreenUpdating = 0

Dim c As Integer
 Sheets("Input SAP").Activate
 ActiveSheet.Outline.ShowLevels RowLevels:=3 ' level of rows
    c = Range("A1").CurrentRegion.Rows.Count
    Range("B2:B" & (c - 2)).Rows.Group
    Range("B2:B" & (c - 2)).Rows.Group
    For i = 2 To c - 2
        If Range("A" & i) = "" Then
            Range("A" & i).Rows.Ungroup
        End If
    Next i
Application.ScreenUpdating = 1

End Sub

Вот такое получилось :)

@Маугли большое спасибо!
Трехуровневая / многоуровневая группировка данных c помощью VBA
 
Маугли , спасибо, за код. Он работает. Но есть необходимость вот в этом месте. Три уровня и на листе "2" - это таблица.
Фаил прикреплен.

Цитата
eeigor написал:  среднее условие, вроде, избыточное:  And Cells(c.Row, 2) <> ""
Пытаюсь, так же понять... Ваш коментарий. Всмыле разобраться, как можно сгруппировать данные.

Коллеги, нужна ваша поддержка.
Спасибо.
Изменено: Alex D - 10 Май 2019 11:06:55
Трехуровневая / многоуровневая группировка данных c помощью VBA
 
Доброго времени суток.
Помогите пожалуйста с группировкой данных. Нужен макрос который сгруппирует данные, как во вложенном листе.
Спасибо всем кто откликнется.
Выделение ячеек по условию в отчете по текущему месяцу, macro, vba
 
Цитата
Сергей написал:
не все так просто как кажется формула в УФ
Не уверен что сюда заглянуть. Но все же поправлю себя.
УФ - сильня штука. Ниже приведен макрос на строгой суд. Если кто вернется сюдя, дайте пожалуйста коментарии.
Спасибо.
Код
Sub nce_period() 'NCE_report (final)
Application.ScreenUpdating = False

Range("A6:BN170").Select             'highlite current period
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(RC3<>"""",R5C=TEXT(TODAY(),""[$-809]mmm""))"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .Color = RGB(217, 217, 217)
        End With

Range("A6:BN170").Select             'de-emphasize previous period
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(RC3<>"""",R5C=TEXT((EDATE(TODAY(),-1)),""[$-809]mmm""))"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .Color = RGB(255, 255, 255)
        End With

Range("C1:BN170").Select            'highlite NCE Assets
   Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(RC3=""NCE Assets"",R5C<>"""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .Color = RGB(191, 191, 191)
        End With

Range("C1:BN170").Select            'highlite NCE Liabilities
   Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(RC3=""NCE Liabilities"",R5C<>"""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .Color = RGB(191, 191, 191)
        End With

Range("C1:BN170").Select            'highlite Net capital employed (NCE)
   Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(RC3=""Net capital employed (NCE)"",R5C<>"""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .Color = RGB(191, 191, 191)
        End With
      
Range("C1:BN170").Select            'highlite Asset
   Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(RC3=""Asset"",R5C<>"""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .Color = RGB(191, 191, 191)
        End With
      
Range("C1:BN170").Select            'highlite Liabilities
   Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(RC3=""Liabilities"",R5C<>"""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .Color = RGB(191, 191, 191)
        End With
      
Range("C1:BN170").Select            'highlite NCE
   Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(RC3=""NCE"",R5C<>"""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .Color = RGB(191, 191, 191)
        End With
End sub
Изменено: Alex D - 29 Апр 2019 11:36:52
Выделение ячеек по условию в отчете по текущему месяцу, macro, vba
 
Цитата
OblivionR написал:
Alex D, ну на первое время может подойдет, вставить нужно в рабочий лист.
Спасибо огромное! Протестируем сегодгя.
Выделение ячеек по условию в отчете по текущему месяцу, macro, vba
 
Это фискальный год такой. Да так нужно.
Выделение ячеек по условию в отчете по текущему месяцу, macro, vba
 
Максим В., спасибо большое за пример.
К сожелению, это не применимо к моем случаю. В отчете не прописаны номера месяцов. Функции были указаны, что бы логику показать.
Отчет выглядит приблизительно вот так. Фаил в приложении.

Цитата
Юрий М написал: УФ - условное форматирование
Спасибо за направление, но нужен макрос.
Спасибо, если взгляните еще раз.
Выделение ячеек по условию в отчете по текущему месяцу, macro, vba
 
Цитата
Сергей написал:
ОФТОП
в точку!
Выделение ячеек по условию в отчете по текущему месяцу, macro, vba
 
Цитата
БМВ написал:
1. Почему не УФ
А что такое УФ?
Цитата
БМВ написал:
- прозрачного цвета не бывает :-)
тут и не поспоришь
Выделение ячеек по условию в отчете по текущему месяцу, macro, vba
 
Доброго времени суток,
Коллеги, прошу помочь с таким макросом. Есть отчет. Фаил в приложении.
Задача. Если '=MONTH(TODAY())=V3 (4 месяц, Апрель) & '=ISBLANK(C6) (содержится текст), значит выделить ячейку  V6 цветом серым.
В 5 месяце Мае, когда приступишь к отчету, при запуске макроса, должен выделить 5 месяц Май, и соответсвенно вернуть в 4 месяц Апрель в прозрачный цвет.
Применимо только к activesheets.
Надеюсь, задачу сформулировал корректно.
Всем спасибо кто откликнется.
Транспонирование данных в таблице формулой, INDEX, MATCH, vlookup
 
Цитата
Stics написал:
Добрый день!как вариант
Спасибо, большое!

Цитата
IKor написал:
в I3 и растянуть вправо и вниз
Огонь!

Цитата
IKor написал:
"создание плоской таблицы из оригинала с чередующимися строками"
Я тоже домал какое дать название. Последую Вашему совету. Спасибо за пример!

Задача решена. Спасибо большое!
Транспонирование данных в таблице формулой, INDEX, MATCH, vlookup
 
Доброго времени суток,
Нужна помощь старших коллег :)
Задача, нужно транспонировать  значения в таблице, формулой. Фаил в приложении.
Спасибо всем кто откликнется.
Функция для извлечения значения из массива текста
 
Спасибо Вам большое... вечер проведу с пользой.
Функция для извлечения значения из массива текста
 
Я учусь :)
Функция для извлечения значения из массива текста
 
Цитата
Максим В. написал: А так не пойдет?
Спасибо, Ваш вариант - хорош. Если бы показали, как это выглядит как функция VBA... если можно.
Цитата
Sanja написал: Может будет так достаточно
Спасибо, большое.  
Страницы: 1 2 3 4 След.
Наверх