Коллеги, здравствуйте! У меня задача в следующем: Надо в каждой строке следующую ячейку красить в зависимости от цвета предыдущей. Если больше, то "красный", если меньше, то "зеленый".
Коллеги, понимаю что задача вроде простая, но мой "профессионализм" не позволяет ее решить. Весь день сидел за компьютером , разбирался с условным форматированием, создавал разные правила, пробовал изменять их - "не получилось", позвал брата с ноутбуком - всю ночь сидели "с рюмочкой", и пробовала решить данную задачу. Поверьте, рюмочка не мешала, но задача не была решена...
Коллеги - профессионалы, помогите решить задачу! Собирать группу друзей для решения задачи в бане я не хочу)
Доброго времени суток! Необходим макрос, чтобы при изменении листа с данными скидывалась последняя ячейка столбца D отправлялась мне по смс на моб телефон.
Нужна помошь в решении следующей задачи: Необходимо организовать рассылку по 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" красным цветом.
Вот такой макрос. Помогите кто чем может. Файлы в приложении.
Помогите с макросом: необходимо каждый день в 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 не найден" Помогите пожалуйста!!!
Помогите написать макрос Происходит постоянный импорт данных Из отфильтрованного массива данных необходимо скопировать все строки (кроме заголовка) в отдельную Книгу на последнюю пустую строку.
Исходный фаил: Альфа-директ Конечный Файл: Журнал учёта маржи
Доброго времени суток! Нужен макрос при активации которого он будет "анализировать" столбец G и при нахождении значений меньше 35% будет добавлять эту строку в отдельный документ.
Есть две книги 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\Рабочий стол\для загрузки котироок
Есть большой массив данных. Как сделать макрос, чтобы после каждой непустой строки вставлялась пустая строка, в которую копировалась предыдущая строка.
Есть большое количество 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