Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » URSA
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Методы и свойства заданного диапазона
 
#
06.08.2015 14:34:26
Всем доброго времени суток!

Предварительно макрос формирует сводную таблицу. В сводной таблице может быть несколько столбцов, все зависит от объема данных. Допустим была сформирована таблица из 3-х столбцов. Наименование столбцов: Столбец1, Столбец2, Столбец3. Далее макросом нужно определить соответствие наименования столбцов заданному условию и выполнить действие, т. е. если значения в строке 1 равны массиву (Столбец1, Столбец2, Столбец3), то делаем следующее действие.

Начинаю делать так, но не додумался что дописать в блоке With:
Код
Set rngData = ThisWorkbook.Worksheets("Лист1").[A1].CurrentRegion

With rngData
  With .Rows(1)
   If .(метод/свойство???) = Array("Столбец1", "Столбец2", "Столбец3") Then .Range("C:E").Insert
  End With
End With
Умом понимаю что задачка простая, но не могу определить какой метод/свойства Rows применить?
 
Перейти    
Проверка значения в искомой ячейке
 
#
07.07.2015 12:25:48
Всем доброго времени суток!

К примеру, задаю диапазон:
Код
Set rngData = ThisWorkbook.Worksheets("Лист1").[A1].CurrentRegion

В данном диапазоне хочу проверить значение в предпоследней ячейке первой сроки. Если ИСТИНА, то столбец нужно удалить. Для этого пишу:
Код
If rngData.Cells(1, Columns.Count - 1).Value = "31.12.2015" Then
    Columns(Columns.Count - 1).Delete
Else
End If

Запускаю макрос и желаемое действие не происходит.
Подскажите, что делаю неправильно?  
Изменено: URSA - 07.07.2015 12:26:04
 
Перейти    
Синтаксис функции ЕСЛИ в макросе
 
#
25.06.2015 14:43:39
Всем привет!

Использую в макросе следующую строчку (см. код ниже). VBA ругается на ошибку в синтаксисе. Вроде все скобки, кавычки и запятые проставлены правильно. Подскажите, пожалуйста, где ошибка?
Код
.Application.Range("b2:b" & lnLastRow).Formula = "=IF(VLookup(Right(a2,2),Список!$O$2:$R$200,4,0)="проект", _
        VLookup(Right(a2,2),Фикты_BusCode!$A$2:$C$150,3,0),IF(VLookup(D2,Список!$H$1:$K$200,4,0)="все ЦФО", _
            Left(a2,3),VLookup(D2,Список!$H$1:$K$200,4,0)))"
 
Перейти    
PivotTable (метод для сохранения сводной таблицы значениями)
 
#
24.06.2015 10:49:10
Всем доброго времени суток!

Подскажите, каким методом PT воспользоваться, чтобы сохранить ее значениями?
 
Перейти    
Суммирование данных с применением функции ВПР для нескольких условий
 
#
14.12.2013 00:57:24
Здравствуйте!
Нужен совет профессионалов.
Есть лист №1 с первичными данными и лист №2 с раскрывающимися списками, на который необходимо эти данные суммировать.
Также есть лист №3 с вспомогательными данными (подразделения, периоды и т.п.).
На первом листе не хватает данных для суммирования.
Также есть ограничение - никаких формул на первом листе не должно быть.
Необходима сложная составная формула, которая бы содержала в себе функции ЕСЛИ - СУММЕСЛИМН -ВПР
Буду рад любому мнению.
Спасибо.
 
Перейти    
фильтр VBA при изменении данных в списках
 
#
04.12.2013 09:03:26
Добрый день!

Воспользовался следующим макросом фильтрации данных - http://www.planetaexcel.ru/techniques/3/137/
Но данный макрос полностью не решает мою задачу.

У меня такая задачка.
В моем файле 4 выпадающих списка.
В именованном диапазоне "Условия" у меня только один параметр ">0", который установлен по умолчанию и меняться не будет.
Уточните, пожалуйста, что необходимо поменять/дописать в макросе, чтобы фильтрация осуществлялась автоматически каждый раз при выборе данных в любом из выпадающих списков?
Изменено: URSA - 04.12.2013 13:42:17
 
Перейти    
Страницы: 1
Наверх