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

Страницы: 1
Как в Excel закрасить ячейки в каждой строке по условию если предыдущая ячейка больше либо меньше
 
Коллеги, здравствуйте!
У меня задача в следующем:
Надо в каждой строке следующую ячейку красить в зависимости от цвета предыдущей. Если больше, то "красный", если меньше, то "зеленый".


Коллеги, понимаю что задача вроде простая, но мой "профессионализм" не позволяет ее решить. Весь день сидел за компьютером , разбирался с условным форматированием, создавал разные правила, пробовал изменять их  - "не получилось", позвал брата с ноутбуком - всю ночь сидели "с рюмочкой", и пробовала решить данную задачу. Поверьте, рюмочка не мешала, но задача не была решена...

Коллеги - профессионалы, помогите решить задачу! Собирать группу друзей для решения задачи в бане я не хочу)
Отправка СМС
 
Доброго времени суток!  
Необходим макрос, чтобы при изменении листа с данными скидывалась последняя ячейка столбца D отправлялась мне по смс на моб телефон.  
 
Кто что посоветует?
Рассылка на email (c условием)
 
Всем доброго времени суток!  
 
Нужна помошь в решении следующей задачи:  
Необходимо организовать рассылку по E-mail, при изменении листа.  
 
Описание задачи:  
Есть 2 документа "ЖУРНАЛ УЧЁТА" и "Список E-mail".    
"ЖУРНАЛ УЧЁТА" открыт постоянно, и в него в любую секунду может может вставиться строчка с "вылетевшим клиентом". Строчка вставляется другим макрососм из другого документа.  
Необходимо после появления новой строчки в "ЖУРНАЛ УЧЁТА", обращаться по номеру портфеля (напр. 1253-238) к файлу "Список E-mail" и искать сотответствующее мыло клиента.  
На это мыло надо отправить письмо, вот текст:  
 
Уважаемый "ФИО" (берём из файла "ЖУРНАЛ УЧЁТА")!  
Вы достигли ограничительного уровня: "Уровень маржи" (берём из файла "ЖУРНАЛ УЧЁТА"). Уровень принудительного закрытия позиций 25%.  
Для снижения рисков просим Вас либо закрыть часть позиций, либо внести дополнительные денежные средства на ваш брокерский счёт.    
Для разъяснений и уточнения Вы можете связаться с нами по контактным телефонам: (8482)452312 и (8482)324235  
___________________________________________________________  
С уважением, Василевский Евгений  
 
 
Вот примерно так. Сильно не пинайте, я только начинаю разбираться с VBA. Помогите кто чем может.=)
Выключение макроса
 
Доброго времени суток!  
 
Проблема в следующем:  
Макрос зациклен сам на себя, т.е. в самом коде есть следующее:  
Application.OnTime Now + TimeValue("00:00:15"), "Find_Copy"  
Он каждый раз обрабатывает большой объём данных, и копирует "выпавшие" в отдельную книгу.    
 
Загвоздка в том, что мне необходимо выключать этот макрос в 19.00. Как это сделать?  
Помогите пожалуйста!!  
и сильно не пинайте, я начинающий.  
 
в приложении есть код
Выключение макроса
 
Всем доброго времени суток!  
 
Задача в следующем:  
Есть макрос который Запускается в 10.30 и работает с периодичностью в 30 сек.  
Необходимо чтобы макрос "выключался" в 18.30 по окончании рабочего дня  
 
Подскажите как это сделать?
Макрос копирования с условием
 
Всем доброго времени суток!  
Помогите пожалуйста со следующей проблемой!  
 
Есть два файла с большими таблицами.  
Необходим макрос, который бы брал строку в файле "Для вставки в регистр.xls" и осуществлял поиск строки в файле "РЕГИСТР ВН. УЧЕТА СДЕЛОК.xls" по ячейкам столбцов:  
"Наименование/Код клиента",    
"Вид сделки",    
"Тип сделки"    
"Цена одной ЦБ",    
"Количество ЦБ".  
 
При совпадении всех условийо копировал ячейку "Уровень маржи" из одного файла в другой  
Если одно из условий не совпадало он переходил к следующей строке в файле "РЕГИСТР ВН. УЧЕТА СДЕЛОК.xls" пока не просмотрел бы все.  
Если он дошёл до конца, а подходящей ячейки так и не нашёл он заливает всю строку в файле "Для вставки в регистр.xls" красным цветом.  
 
Вот такой макрос. Помогите кто чем может.  
Файлы в приложении.
Отправка файла через Outlook при условии его нахождения в папке
 
Всем доброго времени суток!  
 
Помогите с макросом: необходимо каждый день в 16-00 идти по заданному пути (\\Depo\RsBank51\Reports\Отчёты бэк-офиса\3173-229) и искать там файл за сегодняшнюю дату.  
Формат файла который ищем: m 3173-229 26.11.10.xls (то есть m 3173-229 "текущая дата".xls)  
Если файл есть - отправляем его точно по адресу (например 123@yandex.ru)  
Если файла нет, находим последнюю пустую строчку на листе откуда происходил макрос и пишем "m 3173-229 26.11.10.xls не найден"  
Помогите пожалуйста!!!
Запуск макроса
 
Помогите с кодом макроса, который запускал бы другой макрос каждые 15 секунд?  
 
если лень писать просто дайте ссылку  
 
Заранее спасибо!
Копировать строку в другую книгу, если ячейка не пустая
 
Помогите написать макрос  
Происходит постоянный импорт данных  
Из отфильтрованного массива данных необходимо скопировать все строки (кроме заголовка) в отдельную Книгу на последнюю пустую строку.  
 
 
Исходный фаил: Альфа-директ  
Конечный Файл: Журнал учёта маржи  
 
Помогите пожалуйста!
Поиск "проблемных значений" и вставка строки в новый документ Excel
 
Доброго времени суток!  
Нужен макрос при активации которого он будет "анализировать" столбец G и при нахождении значений меньше 35% будет добавлять эту строку в отдельный документ.  
 
Исходный Файл:Альфа-Директ  
Конечный файл:Журнал учёта  
 
Помогите пожалуйста!
Поиск проблемных значений и вставка строк в другой документ Excel
 
Есть две книги Excel: "Импорт" и "Журнал"  
В книгу "Импорт" каждую секунду происходит импорт данных из внешнего источника (данные меняются)  
 
Необходимо каждые 30 сек анализировать столбец "G" (книга "Импорт") и при нахождении значений в этом столбце ниже 35 копировать соответствующие строки в книгу "Журнал"  
 
Дополнительные условия копирования:  
Копировать в "Журнал" можно только если клиент за эту дату не повторялся. Т.е. проблемный клиент должен появляться в этом списке только один раз в день.  
Копируем в "Журнал" сдедующие ячейки:  
М2(Дата), М5(текущее время), С(i)(портфель "проблемного"), B(i)(ФИО "проблемного") и G(i) (маржа "проблемного")на соответствующие места.  
 
Помогите кто чем может!)))
Переименовать файлы в папке (с условием)
 
Есть папка где хранятся файлы с данными за каждый рабочий день (период 1 год)  
Сегодняшний формат названия файла: securies_rees_03042008.dbf (открывается в Excel)  
Необходимый формат имени файла: te030408.dbf - т.е. необходимо убрать 2 первых цифры года и изменить начало имени.  
 
Условие:  
т.к. файлы большие по объёму (48 - 100Мб) желательно, чтобы excel не открывал каждый файл в отдельности, на это уйдёт много времени  
папка с файлами по адресу: C:\Documents and Settings\PavidisEE\Рабочий стол\для загрузки котироок  
 
Помогите пожалуйста!
Создание пустой строки и копирование в неё содержимое предыдущей строки
 
Есть большой массив данных.  
Как сделать макрос, чтобы после каждой непустой строки вставлялась пустая строка, в которую копировалась предыдущая строка.  
 
Первоначальный вид:  
1  
2  
3  
4  
5  
 
Надо:  
1  
1  
2  
2  
3  
3  
4  
4  
5  
5
Создать из большого количества файлов один
 
Есть большое количество exceL документов лежащих в одной дирректории.  
Необходимо чтобы все данные которые в них есть копировались в отдельный файл и он сохранялся в этой дирректории.  
Помогите пожалуйста!
Макрос сохранения на определённое время
 
Есть файл в который экспортируются данные (с интервалом 1-3 сек.) и который надо сохранять в точно отведённое время.  
С экспортом проблем нет, файл должен быть сохранен в 11-30, 13-00, 15-00, 17-00 и 18-30  
 
Написал следующий макрос:  
 
 
Sub Backup_Active_Workbook()  
'  
' Макрос1 Backup_Active_Workbook  
' Макрос записан 04.10.2010 (PavidisEE)  
'  
'  
Dim x As String  
   strPath = "c:\Альфа-Директ история" ' путь  
   On Error Resume Next  
   x = GetAttr(strPath) And 0  
   If Err = 0 Then ' если путь существует - сохраняем копию книги  
       strDate = Format(Now, "dd/mm/yy hh-mm") ' формат даты  
       Windows("Альфа-Директ.xls").Activate  
       FileNameXls = strPath & "\" & Left(ActiveWorkbook.Name, _  
            Len(ActiveWorkbook.Name) - 4) & " " & strDate & ".xls" ' как будет называться сохранённый файл  
               
       ActiveWorkbook.SaveCopyAs Filename:=FileNameXls ' собсно, само сохранение  
   End If  
 
End Sub  
 
Sub Auto_Open()  
'  
       Application.OnTime TimeValue("11:30:00"), "Backup_Active_Workbook"  
       Application.OnTime TimeValue("13:00:00"), "Backup_Active_Workbook"  
       Application.OnTime TimeValue("15:00:00"), "Backup_Active_Workbook"  
       Application.OnTime TimeValue("17:00:00"), "Backup_Active_Workbook"  
       Application.OnTime TimeValue("18:45:00"), "Backup_Active_Workbook"  
         
'  
End Sub  
 
 
 
ЗАГВОЗДКА В ТОМ, ЧТО ОН СОХРАНЯЕТ ТОЛЬКО НА ОДНО ВРЕМЯ, А ДАЛЬШЕ НЕ РАБОТАЕТ.
Страницы: 1
Наверх