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

Страницы: 1
VBA + условное форматирование
 
Уважаемые знатоки, прошу вашей помощи в следующей проблеме:

При добавлении УФ (с с формулой ниже) в ячейку H8 с помощью VBA-макроса оно не срабатывает до тех пор, пока не зайдешь в редактирование условия УФ и нажмешь ОК (при этом само условие не изменяя)

Формула:

Код
=СУММ(($C$3:$CB$3>=СЕГОДНЯ())*($C$3:$CB$3<СЕГОДНЯ()+21)*(($C$5:$CB$5-$C$4:$CB$4)>0))


Код:


Код
Sub UF()
    Cells.FormatConditions.Delete
    With Range("H8")
        .FormatConditions.Add Type:=xlExpression, Formula1:="=СУММ(($C$3:$CB$3>=СЕГОДНЯ())*($C$3:$CB$3<СЕГОДНЯ()+21)*(($C$5:$CB$5-$C$4:$CB$4)>0))"
        With .FormatConditions(1)
            .Interior.Color = vbRed
            .StopIfTrue = True
        End With
    End With
End Sub


В чем может быть причина?
Заранее спасибо за помощь!
Изменено: Darkman - 21.09.2013 00:11:23
СУММПРОИЗВ () + СТРОКА()
 
Уважаемые знатоки!
Прошу Вашей помощи в следующей проблеме: при использовании функции СТРОКА, внутри функции СУММПРОИЗВ, формула выдает значение #ЗНАЧ!. При явном указании номера строки - все считается корректно (см. пример).

Задача следующая: проверить, случается ли превышение дневных расходов над дневными доходами в течение следующих 21 дней (от текущей даты).

P.S. Дополнительные строки добавить нельзя, формулы массива также просьба не предлагать, так как данная формула будет использоваться в условном форматировании.
За пояснения, почему функция СТРОКА не желает работать - буду отдельно благодарен  :)
Заранее огромное спасибо!
СУММПРОИЗВ данных в нескольких столбцах
 
Уважаемые знатоки, прошу вашей помощи.  
 
Поступают данные по продажам нескольких товаров в таком виде, как в примере (изменить формат, увы, возможности нет никакой), причем один и тот же товар может продаваться по разной цене.    
Необходимо посчитать выручку (цена*количество продаж) по каждому товару за определенную дату (для примера по товару Good 2 за 01.08.2012).  
 
Очень надеюсь на вашу помощь с формулой.  
 
Заранее спасибо!
Offtop: VBA Outlook 2003 - переключение редактора сообщений
 
Уважаемые знатоки, заранее приношу извинения, что на форуме Excel задаю вопрос по Outlook 2003, но вся надежда только на вас.  
Необходимо программно изменить используемый редактор сообщений с встроенного на Word, а затем обратно.    
Ручками это делается в настройках (скрин во вложении), можно ли это осуществить программно кодом на VBA.    
Копаю сейчас в сторону .EditorType = olEditorWord, но пока что-то не получается.  
 
Надеюсь на вашу помощь, заранее спасибо!
VBA: передача значения переменной
 
Уважаемые знатоки, может вопрос и простой, но как передать значение переменной из процедуры Excel процедуру Outlook?  
 
То есть необходимо следующее: выполняется код в Excel, в ходе выполнения присваивается значение переменной, далее запускается код в Outlook, в который передается значение переменной, вычисленной в Excel.  
 
Заранее спасибо!
VBA: копирование массива в буфер обмена
 
Уважаемые знатоки, прошу помощи. К сожалению поиском не нашел похожей темы.  
Задача следующая: скопировать в буфер обмена одномерный массив, для того, чтобы его можно было вставить в виде таблицы в совершенно другое приложение.  
 
 
Dim a(1 To 5) As String  
 
a(1) = test_1  
a(2) = test_2  
a(3) = test_3  
a(4) = test_4  
a(5) = test_5  
 
Заранее спасибо за помощь!
VBA: фильтр сводной таблицы
 
Уважаемые знатоки, помогите решить проблему, уже сломал себе мозг.  
Задача: отфильтровать в сводной таблице данные с датой менее 15.12.2011  
 
Использую код:  
 
Dim j As Integer  
Sheets(1).Select  
With ActiveSheet.PivotTables("summary").PivotFields("дата")  
       For j = 1 To .PivotItems.Count  
           If .PivotItems(j).Value < #12/15/2011# Then  
               .PivotItems(j).Visible = False  
               Else  
               .PivotItems(j).Visible = True  
           End If  
       Next j  
End With  
 
Вылетает с ошибкой 1004: "Нельзя установить свойство Visible для класса PivotItem"  
 
Причем этот же код нормально срабатывает на других сводных таблицах. Подскажите, в чем дело, и в какую сторону копать?  
 
Заранее спасибо!
Глюк Excel или особенность операции вычитания?
 
Уважаемые знатоки, столкнулся со следующей проблемой:  
При операции вычитания некоторых чисел, Excel выдает неверный результат.  
Пример:  
Вводим в ячейку выражение =42655,66-33256,06  
Увеличиваем количества отображаемых знаков после запятой (например до 30, формат ячейки - числовой)  
Получаем результат - 9 399,600000000010000000000000000000  
 
Вопрос, откуда взялась единица в одиннадцатом знаке после запятой? Это глюк Excel или я просто чего-то не знаю?  
Вроде и мелочь, а создает кучу проблем с условным форматированием и т.п.  
 
P.S. Проверено в Excel 2007 и Excel 2010, замечено на некоторых разных парах чисел.
VBA: открытие определенного модуля в окне VBE
 
Уважаемые знатоки, снова прошу Вашей помощи. Задача следующая: необходимо, чтобы при открытии книги, автоматически открывалось окно VBE с кодом определенного модуля данной книги (в примере модуль "Code_sample").  
 
Для автоматического вызова окна VBE использую процедуру:  
 
Private Sub Auto_open()  
Application.VBE.MainWindow.Visible = True  
End Sub  
 
А вот как сделать, чтобы сразу отображался код определенного модуля?  
Заранее спасибо за любую помощь!
VBA: выделение отфильтрованного диапазона
 
Уважаемые знатоки, вопрос следующий: как средствами VBA выделить первую ячейку отфильтрованного диапазона (в данном примере A130). Фильтров может быть одновременно несколько на разных столбцах.  
Пока обхожусь таким костылем  
 
Range ("A1").Select  
SendKeys "{Down}", True  
 
Может кто-нибудь подскажет более красивое решение без посыла нажатия клавиши?  
Заранее спасибо за помощь!
СУММЕСЛИ по номеру столбца
 
Уважаемые знатоки, подскажите пожалуйста, возможно ли использовать функцию СУММЕСЛИ, если диапазон суммирования - весь столбец и известен лишь его номер (определяется с помощью ПОИСКПОЗ).  
Если подобная тема уже была - просто ткните носом.  
Заранее спасибо.
VBA: открытие файла с максимальной датой в имени
 
Уважаемые знатоки VBA, прошу вашей помощи. Задача следующая:  
1. На диске имеется папка с кучей разнообразных файлов.  
2. Среди этих файлов встречаются файлы с именем specification_dd.mm.yyyy.xls (где dd.mm.yyyy - произвольная дата).  
3. Необходимо с помощью VBA открыть файл specification_dd.mm.yyyy.xls с максимальной датой в имени файла.  
 
Заранее спасибо за любую помощь!
VBA: сравнение диапазонов.
 
Уважаемые знатоки VBA, необходима ваша помощь.  
 
Задача следующая: имеется книга, состоящая из двух листов с данными (см. прикрепленный файл). Необходим VBA-макрос, который бы сравнивал значения в столбцах A на Листе1 и Листе2 и автоматически делал бы цветную заливку (любым цветом) в столбце А Листа2 уникальных значений (т.е. отсутствующих в столбце A Листа1).  
 
Заранее спасибо за помощь.
VBA - вставка суммы
 
Уважаемые знатоки VBA, необходима ваша помощь.  
Нужен макрос, вставляющий формулу суммы в столбце B, напротив каждой записи "Всего".  
Вся проблема в том, что количество показателей в каждой группе не является фиксированным, а постоянно меняется.  
Надеюсь на вашу помощь.
Страницы: 1
Наверх