Профессиональные приемы работы в Microsoft Excel

Выпуск 59
от 2007-12-14

Подписчиков: 5873

Рассылка сайта "Профессиональные приемы работы в Microsoft Excel"

Основные разделы сайта

Статьи

Форум

Новости сайта в формате RSS
Новые сообщения форума в формате RSS

Порекомендуйте нашу рассылку друзьям

Обратная связь
Поддержка
(форум рассылки)

Наши рассылки:

Наши сайты

Профессиональные приемы работы в Microsoft Excel
Excel от новичка до эксперта

bonifatiy.narod.ru
В помощь выздоравливающим алкоголикам и наркоманам

Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии.

StudentTools.Narod.Ru Для тех, кто любит учиться

Наши друзья

VBAtips.ru -
подсказки и решения на VBA

wordexpert.ru
Профессиональная работа с текстом

planetaexcel.ru
Когда заешь - все просто

Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel"

Тема: Отв: Пользовательская ф-ция - : Oleg X
2007-12-07 06:57
вот функция твойВПР...

Тема: Отв: Выбор с конкретного листа - : Антон Суперт
2007-12-07 09:57
В этом архиве Книга А и Книга В. Там все сделано с помощью ссылок. Т.е. все значения из А переходят в Б включая нулевые. Так как подобных отчетов много, то приходится тратить много времени, чтобы в каждом из них убирать нулевые строчки. В идеале их вообще не должно быть. Т.е. в контексте ранее сказанного необходимо, чтобы программа сама смотрела какие листы заполнены, а какие нет и составляла конечный отчет на основании этого....

Тема: INDIRECT (ДВССЫЛ) с закрытыми файлами - : Анна Б.
2007-12-07 09:57
Добрый день! Подскажите, можно ли заставить ДВССЫЛ работать с закрытыми файлами? есть таблица с шапкой Янв, Февр, Март, Апр, и т.д. Есть файлы с такими же названиями. В таблице используется функция ДВССЫЛ. При протягивании формулы, соответственно данный должны браться из соответствующего файла (имя файла в соответствующем столбце в шапке) Читала на другом сайте про использование в формулах масива бинарное отрицание (- -)для того чтобы формула пересчитывала при закрытых файлах. Попробовала с ДВССЫЛ...

Тема: Отв: Выбор с конкретного листа - : Алексей Шмуйлович
2007-12-07 10:57
Антон, после просмотра примера я не стал понимать в Вашей задаче больше. Таблицы в примере не заполнены. Я даже не понимаю, что должно быть в колонке D в исходных таблицах. Непонятна структура хранения данных. Непонятно назначение таблиц. Непонятна периодичность заполнения. И я так и не понял, какие именно строки нужно скрыть в итоговом отчете, видимо потому, что они у меня все были пустыми. В идеале задачу складского учета лучше решать в СУБД. Как минимум в Access. Лучше в 1С:Торговля и склад. Если принц...

Тема: Как сделать? - : Denis E.
2007-12-07 11:57
Есть таблица, в ней в каждой клетке столбца есть название сайта и к нему прикрепленна длинная ссылка на конкретное место на сайте. Как мне сделать так чтобы эти ссылки отображались? И перенести их в соседний столбец....

Тема: Отв: Выбор с конкретного листа - : Антон Суперт
2007-12-07 11:57
Вы меня извините, если я не совсем ясно излагаю свои мысли. Может просто опыта маловато, но я Ваши замечания принимаю к сведению. Я постараюсь попробовать решить проблему с помощью сводных таблиц. Если что напишу. А Вам большое спасибо за содействие....

Тема: Отв: Простенький вопросик - : Leo Rusalka
2007-12-07 11:57
Большое спасибо всем отвечавшим, действительно что-то с форматом ячеек, вводила через мастера суммирования - получается. :)...

Тема: Отв: Пользовательская ф-ция - : Oleg X
2007-12-07 13:59
вот функция нашВПР...

Тема: как программно задать формат ячеек? - : Никита В.
2007-12-07 13:59
Здравствуйте. Подскажите пожалуйста, как программно задать формат ячеек, особенно интересует тип ячейки и ее цвет Спасибо....

Тема: Отв: Пользовательская ф-ция - : Татьяна К
2007-12-07 13:59
Добрый день! не совсем то, ф-ция должна работать как ВПР На листе1 исходные данные (ст-столбцы) ст1 ст2 фф 5 ФФ 6 На листе2 должна работать ф-ция ст3 ст4 ФФ ф-ция=6 фф ф-ция=5 ЫЫ ф-ция= н/д ыы ф-ция= н/д ...

Тема: Отв: Замена и объединение данных в Excel - : Сергей Петров
2007-12-07 15:53
Сергей Л. писал(а): Полностью автомат - это макросы. Сделать можно, но сейчас некогда возиться, кроме того неизвестна структура исходных данных... Отправляю пример, как это можно сделать наполовину вручную , при помощи функции ВПР. Думаю, там все понятно. Если что - спрашивайте. Вкратце: второй список сравнивается с первым на предмет совпадений. Если данные не совпадают, функция выводит 1 . В результате в итоговый список попадают ВСЕ значения первого списка и единицы из второго. Каждый шаг можно...

Тема: Отв: как программно задать формат ячеек? - : Никита В.
2007-12-07 15:53
Спасибо...

Тема: Как с минимальными затратами перевести таблицу в формат базы данных - : Макс К
2007-12-07 15:53
Имеется графк производства работ по объектам (из более 200) для анализа данных их необходимо прервести в другой формат. как это сделать с минимальными затратами для примера прикрепляю файл с ОДНИМ объектом У самого что-то сильно сложно получается .Заранее благодарен. ...

Тема: Отв: Калькулятор с чеком ! Ктонибудь знает функцию " Чек " ! - : Макс К
2007-12-07 15:53
Если еще интересует то держи (я в интернете не часто), чем смогу помогу. Пример на Лист2 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range( Значение1 ).Address Then Dim i As Integer i = Int(Range( Начало ).Value) Range( Значение1 ).Copy Range( A i).PasteSpecial Paste:=xlPasteValues Range( B i).Value2 = от Str(DateValue(Date)) + - + Str(TimeValue(Time)) Range( C i).Value2 = Str(Timer) Rows(i).Insert Shift:=xlDown Range( Значение1 ).Sel...

Тема: Отв: Калькулятор с чеком ! Ктонибудь знает функцию " Чек " ! - : Макс К
2007-12-07 15:53
Если еще интересует то держи (я в интернете не часто), чем смогу помогу. Пример на Лист2 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range( Значение1 ).Address Then Dim i As Integer i = Int(Range( Начало ).Value) Range( Значение1 ).Copy Range( A i).PasteSpecial Paste:=xlPasteValues Range( B i).Value2 = от Str(DateValue(Date)) + - + Str(TimeValue(Time)) Range( C i).Value2 = Str(Timer) Rows(i).Insert Shift:=xlDown Range( Значение1 ).Sel...

Тема: Отв: как программно задать формат ячеек? - : Сергей М
2007-12-07 15:53
Основное преимущество VBA - наличие макрорекордера. Можно записать макрос, и почитав его текст узнать что и как делается прграммно. Например, макрос Sub Макрос1() ' ' Макрос1 Макрос 'Макрос записан 07.12.2007 (Serge) ' ' Range( D1 ).Select Selection.NumberFormat = h:mm AM/PM With Selection.Interior .ColorIndex = 50 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End Sub нам показывает, что тип ячейки задавать надо Range( .....

Тема: Отв: Как сделать? - : Oleg X
2007-12-07 15:53
У тебя в столбце гиперссылки? Пришли кусок файла....

Тема: Отв: Как сделать? - : Denis E.
2007-12-07 16:05
Вот пример. У каждого названия сайта есть своя гиперссылка. Как сделать так чтобы уту ссылку переместить в соседний столбец, как в примере...

Тема: Отв: Пользовательская ф-ция - : Татьяна К
2007-12-07 16:05
Большое спасибо!!!!! это подойдет...

Тема: Отв: Как задать выполнение макроса через формулу ? - : Tort 7
2007-12-07 16:05
Спасибо за ответ Oleg X !:) К сожалению, вашу пользовательскую функцию я пока так и не смог заставить работать с многострочным макросом.:side: Эта функция похоже предназначена для однострочного макроса. P.S. Вопрос остаётся открытым ! ...

Тема: Отв: Как с минимальными затратами перевести таблицу в формат базы данных - : Алексей Шмуйлович
2007-12-07 18:17
Задача интересная и часто встречается. Только название темы не совсем удачное. Прочитав про формат базы данных, я подумал о dbf или Access. А оказалось, что необходимо свернутую, т.е. перекрестную таблицу развернуть в первичные исходные данные. Т.е. по одной строчке на ячейку данных и в каждую строку выводим название столбца из шапки и название показателя из строки. Решил я задачу с помощью VBA. Правда, хотел было сделать в общем виде, чтобы работало вне зависимости от струтуры таблицы. А для этого необх...

Тема: Отв: Разворот с вертикали на горизонталь - : Dmitriy Rogozin
2007-12-07 18:17
Подсказали вот такое решение Sub Transp_3() Dim Dan() Dim A As Long, i As Long, j As Long, x As Integer, y As Long A = ActiveSheet.Range( A65536 ).End(xlUp).Row x = Int(A / 3 + 1) ReDim Dan(1 To A) For i = 1 To A Dan(i) = Cells(i, 1) Next i Range(Cells(1, 1), Cells(A, 1)).ClearContents y = 1 For j = 1 To x For i = 1 To 3 Cells(j, i) = Dan(y) y = y + 1 If y > A Then Exit Sub Next i Next j End Sub И для возврата в обратное состояние Sub ReTrans_3() Dim A() Dim i As Long, Las...

Тема: Из столбца извлечь нужные цифры, дающие в сумме определенное (заказанное) число - : Бриз _
2007-12-07 21:05
Доброго дня всем знатокам!!! Имеем столбец цифр от 1 до допустим 1500 (допустимо повторение в разных ячейках одинаковых чисел). Цифры отсортированы по возрастанию (можно и наоборот). 1. Необходимо выбрать из этого столбца четыре цифры сумма, которых составит 1000 (одну тысячу) (1+2+3+994=1000) 2. Хотелось бы выбрать и остальные варианты (незадействованных в п.1 цифр), которые тоже в сумме дают 1000. (4+5+6+985=1000 и т.д.) Результатом должно стать выведение искомых 4 цифр в отдельный столбец (столбцы) Н...

Тема: Отв: Как задать выполнение макроса через формулу ? - : Oleg X
2007-12-08 09:06
Ты в функцию myMacros() заглядывал? Туда можно поместить сколько угодно строк. Public Function myMacros(xs As Variant) As Variant . . . . . . . . . . . . myMacros = . . . . End Function Выложи свой макрос чтобы не осталось недопонимания...

Тема: Отправка файла с помощью Outlook Express - : Yuriy Мещанинов
2007-12-08 23:11
Созданный макрос после определенных действий, по гиперссылке открывает Outlook Express. Поле Тема уже заполнено, адреса тоже. Теперь к этому письму нужно прикрепить определенный файл, например D:\Doc1.doc. Отправлять автоматом не нужно. Никак не могу с этим справиться. Еще было бы здорово скопировать в тело письма текстовую строку (именно текст) из буфера обмена. Пока копирую макросом в буфер а уже руками в Outlook Express вставляю. Как подружить VBA и Outlook Express? Эта проблема в принципе решаема? Сп...

Тема: Скачать архив форума в одном файле - : Алексей Шмуйлович
2007-12-09 02:12
Дорогие друзья! Теперь Вы можете скачать архив форума в одном файле. Убедительно прошу, не используйте для скачивания всего сайта менеджеры закачек типа Телепорта - это приводит к перегрузке сервера и ставит под угрозу существование сайта :( Файл расположен по адресу http://forum.msexcel.ru/msexcel_ru_12-2007.rar...

Тема: Отв: Как отображать показания только в указанном интервале времени - : Tort 7
2007-12-09 03:12
:) ОГРОМНОЕ СПАСИБО Oleg X !B) Ваш вариант отлично работает !!! :woohoo: Я интересовался у многих знатоков EXCEL и VBA но только Вы дали мне простой и достаточно лёгкий для реализации способ решения моей сложнейшей задачи ! ( PS : Что конечно не уменьшает заслуг других знатоков - просто предложенные ими способы были более сложные в реализации и немного не совпадали с моим уровнем программирования на VBA и других языках ! ) Алексей Шмуйлович :cheer: я рад что Вы то...

Тема: Как преобразовать ячейку в таблицу? - : Андрей Богаткин
2007-12-09 15:22
Прошу помочь в следующем: В самой первой (A1) ячейке первого листа xls-файла находится текст следующего вида (каждый раз содержимое меняется): [АР-01.01.006] Стойка-бензоколонка для CD, (АР-01.01.006) (x1): RUR 1443.00 [АР-01.02.015] Декоративный столик Автомобиль , (АР-01.02.015) (x2): RUR 3744.00 [АР-01.01.019] Декоративное панно Мотоциклы , (АР-01.01.019) (x1): RUR 748.00 [АР-01.01.004] Декоративное панно Бильярд , (АР-01.01.004) (x1): RUR 641.00 [АР-01.01.018] Декоративное панно Бильярд , (А...

Тема: Отв: Как преобразовать ячейку в таблицу? - : Алексей Шмуйлович
2007-12-09 19:17
Если это введено одной строкой, то есть разные артикулы не разбиты на строчки, то в Excel обрабатывать нерационально. Сначала хорошо бы доработать в Word. Во-первых, разбить на строки. В Вашем примере можно ориентироваться на открывающую квадратную скобку. Делаем замену [ на знак абзаца ^p. Во-вторых, подготовить текст для разбивки на колонки. Введем разделители между разными разделами строки. Например |. Делаем замены соответствующих строчек на |: ) (x ): RUR , ( ] Все готово. Теперь копируем в...

Тема: Отв: Как преобразовать ячейку в таблицу? - : Oleg X
2007-12-10 10:18
...

Тема: Помогите плз - : Игорь Мартьянов
2007-12-10 18:08
Помогите, пожалуйсто! Есть следующая задачка: необходимо сохранять постоянно меняющиеся данные, причем меняются они и в номере ячейки. Сохранять необходимо в другом файле или книге. Например, появились данные, нажал сохранить или печать , наверное лучше печать, и они попали в другой файл или книгу, при этом ниже предыдущих. Примерно так. Заранее благодарю....

Тема: Помогите плз - : Игорь Мартьянов
2007-12-10 18:08
Помогите, пожалуйсто! Есть следующая задачка: необходимо сохранять постоянно меняющиеся данные, причем меняются они и в номере ячейки. Сохранять необходимо в другом файле или книге. Например, появились данные, нажал сохранить или печать , наверное лучше печать, и они попали в другой файл или книгу, при этом ниже предыдущих. Примерно так. Заранее благодарю....

Тема: Транспортная задача; Поиск решения - : perminov roman
2007-12-10 18:08
Помогите пожалуйста Решаем транспортную задачу при помощи функции Поиск решения Существую две таблицы 20 строк на 20 столбцов каждая По горизонтали указан Гос № автомобилей По вертикали названия предприятий Пункт отправки и груз одинаков для автомобилей и предприятий получателей. В первой таблице указано время движения (в минутах) от пункта отправки к пункту назначения. Во второй таблице указан расход топлива (в литрах) на каждый маршрут от пункта отправки к пункту назначения. Необходимо найти о...

Тема: Отв: Как сделать? - : Макс К
2007-12-10 18:08
Function ГАдрес(inString) As String ГАдрес= inString.Hyperlinks(1).Address End Function те. Создаешь функцию в VBA а потом просто ее тянешь (если я правильно понял твой вопрос) ...

Тема: Отв: Как сделать? - : Denis E.
2007-12-10 18:08
Помогите, плиз!!...

Тема: Выделение определенных строк - : Dmitriy Rogozin
2007-12-10 18:08
Как выделить строки 1,3,6,9,12, и т.д. в Столбце A. и задать им числовой тип данных без знаков после запятой...

Тема: Отв: Как с минимальными затратами перевести таблицу в формат базы данных - : Макс К
2007-12-10 18:08
Большое спасибо что не оставили проблемку без внимания. Ваш файл получил, веду разбор полета Если будет что новое пожалуйста сообщите. Еше раз СПАСИБО....

Тема: Отв: Как с минимальными затратами перевести таблицу в формат базы данных - : Макс К
2007-12-10 18:08
Большое спасибо что не оставили проблемку без внимания. Ваш файл получил, веду разбор полета Если будет что новое пожалуйста сообщите. Еше раз СПАСИБО....

Тема: Отв: INDIRECT (ДВССЫЛ) с закрытыми файлами - : Сергей М
2007-12-10 18:08
В-принципе работать с закрытыми файлами не может ни Office ни VBA. Можно в функци задать открытие Application.Workbooks.Open: обработку а потом закрытие: ActiveWorkbook.Close нужных файлов...

Тема: Отв: Как сделать? - : Алексей Шмуйлович
2007-12-11 04:33
Друзья, пожалуйста читайте правила. Называть тему Как сделать? не есть хорошо! Пожалуйста, переименуйте. А то начну выполнять правила и блокировать темы....

Тема: Отв: Векторная диаграмма - : Алексей Т
2007-12-11 04:33
Сергей М писал(а): Может быть проще будет нарисовать с помощью стандартных линий, создав небольшую процедуру для подщета координат и рисования? Можно пример на мыло 150915@mail.ru если не затруднит... За ранее спасибо....

Тема: Формула - : Алексей Т
2007-12-11 11:35
Например в ячейке F3 ставим число 5, а в ячейку М3 - 10, то получаем в ячейке G3 - 50, далее в ячейки I3 ставим например 0,2 получаем результат в ячейке H3 и K3. По ячейке К3 надо сделать вывод соответствует или нет... так как данные в ячейках F3 и G3 то К3>=1,1 Если данные ставим в ячейку Е3, а F3 и G3 не надо заполнять в этом случае то вывод по К3>=3. Та формула которая стоит все нормально но при выводах надо в ручную менять значение К3 или 3 или 1,1 в зависимости от заполнения... хочется чт...

Тема: Отв: Формула - : Алексей Т
2007-12-11 14:39
Спасибо огромное за помощь :)...

Тема: Отв: Транспортная задача; Поиск решения - : perminov roman
2007-12-11 14:39
Добавил файл с задачей ...

Тема: Отв: Формула - : Oleg X
2007-12-11 14:39
замени L2 на: =ЕСЛИ(E2>0;ЕСЛИ(K2>=3; соответствует ; не соответствует );ЕСЛИ(K2>=1.1; соответствует ; не соответствует ))...

Тема: Отв: Выделение определенных строк - : Сергей М
2007-12-11 17:36
For i= 0 To n Range( A CStr(3*i)).Select Next i...

Тема: Отв: Векторная диаграмма - : Сергей М
2007-12-11 18:38
Маленький экспромт Sub Макрос1() ' Макрос1 Макрос ' Макрос записан 11.12.2007 (Serge_M) ' ' Dim Угол As Integer Dim X As Single Dim Y As Single ActiveSheet.Shapes.AddShape(msoShapeRectangle, 80, 80, 240, 240).Select ActiveSheet.Shapes.AddLine(100, 200, 300, 200).Select Selection.ShapeRange.Line.EndArrowheadstyle="msoArrowheadTriangle" ActiveSheet.Shapes.AddLine(200, 300, 200, 100).Select Selection.ShapeRange.Line.EndArrowheadstyle="msoArrowheadTriangle" ...

Тема: Помогите - : Ира Правинова
2007-12-11 20:38
Как это сделать : =|x|/5*0.012 Где найти модуль( || ) ???...

Тема: Solver (задача) - : Natalja K
2007-12-11 20:38
Обувная фабрика планирует выпуск 2-х моделей обуви А и Б. Спрос на модели не определен, однако он может принимать одно из 2-х состояний. В зависимости от состояний прибыль фабрики различна и определяется матрицей: 52 22 22 49 Найти оптимальное соотношение между объемами выпуска каждой из моделей, при кот. фирме гарантируется средняя величина прибыли при любом состоянии спроса. Помогите, пожалуйста, решить задачу. Дан ответ 53% и 47%, по ответу решение сходится, ...

Тема: Совершенствование Текстовых функций - : Anatoli Анатолий
2007-12-11 20:38
Коллеги, Существуют две определённо сходные задачи которые не дает мне покоя. Задача1. Есть столбец данных отсортированных по возрастанию. Возрастающий числовой или текстовый ряд имеет разрывы (типа кусочной функции). Необходимо структурировать данные по кускам последовательно указываю только начало и конец куска. Так как это указано в прилагаемом файле. Задача2. Есть ячейка со следующими примерными данными (префиксы в кодах). а)‘298 21-29,5,71-79 б)‘599 3181, 3184, 4161, 4165-4167, 52, 55, 58, 7...

Тема: Отв: Векторная диаграмма - : Алексей Т
2007-12-11 20:38
Спасибо. Но хотелось бы уже в формате .xls это посмотреть :) попробую вечеринком :)...

Тема: Отв: Помогите - : Infinitiv
2007-12-11 21:16
...

Тема: Отв: Помогите - : Ира Правинова
2007-12-11 21:16
Я нашла. Спасибочки!!! А если спрашивается так: =|x|/5*0.012 при x #8804; -1 u =x/0.212*2*12 при #8805; -1...

Тема: Отв: Помогите - : Ира Правинова
2007-12-11 21:16
А как это вписывать???:woohoo: :woohoo: :woohoo: :woohoo: :woohoo:...

Тема: Отв: Помогите - : Infinitiv
2007-12-11 21:16
Функция abs()...

Тема: Отв: Векторная диаграмма - : Алексей Т
2007-12-11 21:16
Спасибо. Но хотелось бы уже в формате .xls это посмотреть :) попробую вечерком :)...

Тема: Отв: Помогите плз - : Алексей Шмуйлович
2007-12-11 23:37
Игорь, Вы очень путано описали условия задачи. Прежде всего, Вы нарушили п. 1 правил форума - пожалуйста, переименуйте тему осмысленно. Эту тему я блокирую. Во-вторых, нужно уточнить задачу. Вам ныжно сохранять значения 2 - 3 ячеек, то есть вести что-то типа журнала (я так истолковываю фразу попадали в другой файл или книгу, при этом ниже предыдущих ). Или нужно сохранять весь файл каждый раз в новой книге?...

Тема: Отв: Solver (задача) - : Алексей Шмуйлович
2007-12-11 23:37
Наталья, решение искать нужно определенно с помощью надстройки Поиск решений (Solver). Можете посмотреть статью http://msexcel.ru/content/view/128/1/. Только на счет матрици и прибыли непонятное условие. Что означает каждое число в этой матрице?...

Тема: Отв: Векторная диаграмма - : Алексей Т
2007-12-11 23:37
Что то не получается :(...

Тема: Отв: Помогите - : Infinitiv
2007-12-11 23:37
...

Тема: Отв: Solver (задача) - : Natalja K
2007-12-12 07:35
Мне не понятно какие в этом случае будут ограничения. Спасибо за ссылку. С условиями минимизации, максимизации у меня проблем нет, а тут нужно найти среднюю величину. Вот где собака......

Тема: Отв: Solver (задача) - : Natalja K
2007-12-12 07:35
Поскольку спрос на модели не определен, он может приниматьодно из 2-х состояний: либо 52 22 по горизонтали, либо 52 22 по вертикали, аналогично 22 и 49. Над матрицей указано условие. Сама матрица определяет прибыль фирмы....

Тема: Отв: Векторная диаграмма - : Алексей Т
2007-12-12 07:35
Все работает :)...

Тема: Как создать журнал из постоянно меняющихся данных - : Игорь М
2007-12-12 09:39
Как создать журнал из постоянно меняющихся данных. К примеру, постоянно меняющиеся ячейки А1,С1,Д1,М1 в книге1 или файле надо переносить в журнал в книгу2 или другой файл, при этом не теряя предыдущих данных....

Тема: Отв: Как создать журнал из постоянно меняющихся данных - : Игорь М
2007-12-12 13:14
Огромное спасибо выручили Владимир . писал(а): в ОБЩИХ чертах и с КНОПКОЙ :P .... ...

Тема: Отв: Транспортная задача; Поиск решения - : Владимир .
2007-12-12 13:14
ну ЕЖЕЛИ подсократить ... до 4-5 автомобилей и до 7 пунктов ... тогда, скорее всего, и ПОИСК РЕШЕНИЯ осилит 28-35 неизвестных ... :P...

Тема: Отв: Как создать журнал из постоянно меняющихся данных - : Владимир .
2007-12-12 13:14
в ОБЩИХ чертах и с КНОПКОЙ :P .... ...

Тема: Отв: Транспортная задача; Поиск решения - : Алексей Шмуйлович
2007-12-12 13:14
Владимир, то что вы написали верно для теоретической задачи. Может быть индивидуальный расход топлива для каждого конкретного автомобиля. Но из примера этого не видно. Так что в нашем конкретном случае можно сильно упростить задачу. По поводу второго замечания, то есть индивидуального расхода топлива для пары автомобиль / пункт доставки, то такое теоретически тоже возможно (например за счет разного отклика разных двигателей на разные дорожные условия). Но поверьте мне - я в некотором роде специалист - нет ...

Тема: Отв: Как создать журнал из постоянно меняющихся данных - : Игорь М
2007-12-12 13:14
Вот выглядит так ...

Тема: Отв: Совершенствование Текстовых функций - : Владимир .
2007-12-12 13:14
:) то, что решения ПОКА нет ... эт и так понятно ... смысл задавать ВОПРОС при имеющемся решении ... :P Так можно ли с поМощью Excel решить эту задачу или нет? ну скорее все-таки с помощью VBA и Excel ... потому как сделать на основе встроенных функций думаю будет вряд ли возможно ... так, что варианты а) и б) .... проходят в финал ... :) хотя что значит в данном случае УНИВЕРСАЛЬНАЯ функция ... задача достаточно СПЕЦИФИЧЕСКАЯ ... так, что и функция будет ТАКОЙ же .. ...

Тема: Отв: Совершенствование Текстовых функций - : Anatoli Анатолий
2007-12-12 13:14
Решения пока нет. Так можно ли с поМощью Excel решить эту задачу или нет? Варианты: а) написать пользовательскую универсальную функцию; б) написать специальный макрос; в) использовать грамотную комбинацию встроенных функций; г) возможно есть готовые примеры решений. Если кто может помогите....

Тема: Отв: Как создать журнал из постоянно меняющихся данных - : Владимир .
2007-12-12 13:14
если ПОДРОБНЕЙ, то СЛОЖНО говорить ПОДРОБНО ... НЕ видя ваших данных ... :) выкладывайте файлик и там поговорим ... :-))...

Тема: Отв: Транспортная задача; Поиск решения - : Владимир .
2007-12-12 13:14
ЭТО понятно ... :P но сдесь ДРУГОЙ глюк ВЫЛЕЗЕТ ... грузоподъемность машин разная, но НЕ это важно, а то, что машины с ОДИНАКОВОЙ грузоподъемностью МОГУТ расходовать РАЗНЫЙ объем топлива при поездке в ОДИН пункт ... разница НЕ большая, но ФАКт .. :) эт первое ... и второе ... вероятность того, что выбирая машино-часы для конкреной точки доставки мы получим ЛУЧШУЮ величину по топливу по сравнению с ДРУГОЙ точкой доставки, а равно как и ВООБЩЕ, ОЧЕНЬ мала ... хотя и СИЛЬНО отличаться от ОПТИМАЛ...

Тема: Фестиваль золотых рассылок Subscribe _ ru - : Алексей Шмуйлович
2007-12-12 13:14
Друзья! Прошу поддержать нашу рассылку Профессиональные приемы работы в Microsoft Excel , участвующую в фестивале золотых рассылок. В верхней части каждого выпуска есть ссылки для голосования. Пожалуйста, не забудьте оценить выпуск! P.S. Кстати, если у Вас еще остались в почтовом ящике старые выпуски рассылки, Вы можете проголосовать и за них. Голосование началось в 20-х числах ноября....

Тема: Отв: Совершенствование Текстовых функций - : Oleg X
2007-12-12 14:18
вот функция...

Тема: Отв: Транспортная задача; Поиск решения - : perminov roman
2007-12-12 14:45
Задача эта не институтская, а рассматривается на примере действующего предприятия. 22320 это правильно, 31 день в декабре * 12 (продолжительность смены 11 часов + 1 час можно задержаться) *60 минут Таблица с расходом топлива на 1 рейс тоже приведена ниже. Но даже если сгруппировать автомобили по грузоподьемности с одинаковым расходом топлива, то все равно получается матрица 13 х 20, а программа решает задачку максимум 10 х 20 (определил методом подгона). Определять через среднее можно, собственно так мы...

Тема: Отв: Транспортная задача; Поиск решения - : perminov roman
2007-12-12 16:43
С результатом Вы конечно перестарались. Фактически расход колеблется в районе 80 000 литров, по бюджету на декабрь 75 000 литров. Думаю что даже при самой лучшей оптимизации можно ожидать экономии в 1.5 раза до 50 000 литров, но не в 3 раза уж точно. А доставлять нужно обязательно, так как это корм для птицеводческих и свиноводческих фабрик. И я еще не заморачиваюсь над тем, что в одной машине нельзя осуществлять доставку разных марок корма....

Тема: Отв: Транспортная задача; Поиск решения - : Владимир .
2007-12-12 16:43
ну вряд ли стоит включать в обработку доставку 12.5 тонн ... :) вот уже 19 мест доставки ... машины НУЖНО сгруппировать в 10 групп ... НЕ больше (ваши же данные 20х10=200 переменных) .... ну и корректность ввода ОГРАНИЧЕНИЙ ... может что-то ручками придется ДОДЕЛАТЬ ... у меня, после доделки, получилось 24122,6 литра :-))...

Тема: Равенство ячеек но... - : Алексей Т
2007-12-12 20:48
Вопрос в следующем. Например ячйка А1=А2 но в ячейке А1 значение 100L а в ячейке А2 надо чтоб было 100*(100градусов). Как это осуществить или не возможно?...

Тема: Отключить автоматическую настройку формул при вставке строчки - : Vladimir Bogdankevich
2007-12-12 20:48
Я разделил лист EXCE на две части. :sick: Верхня часть - заголовок таблицы, состоит из заголовков и формул, нацеленных на нижнюю часть. Эта часть заморожена.:sick: Нижня часть разморожена, в её начало я иногда вставляю новую Сегодняшнюю строчку, при этом вчерашняя и все предыдущие строчки сдвигаются вниз.:woohoo: К сожалению EXCEL настолько умный, что он автоматически меняет формулы, так что после вставки новой строчки в заголовке всё равно отображаются данные за вчерашний день. Можно ли отключить ...

Тема: Отключить автоматическую настройку формул при вставке строчки - : Vladimir Bogdankevich
2007-12-12 20:48
Я разделил лист EXCE на две части. :sick: Верхня часть - заголовок таблицы, состоит из заголовков и формул, нацеленных на нижнюю часть. Эта часть заморожена.:sick: Нижня часть разморожена, в её начало я иногда вставляю новую Сегодняшнюю строчку, при этом вчерашняя и все предыдущие строчки сдвигаются вниз.:woohoo: К сожалению EXCEL настолько умный, что он автоматически меняет формулы, так что после вставки новой строчки в заголовке всё равно отображаются данные за вчерашний день. Можно ли отключить ...

Тема: Отв: Solver (задача) - : Natalja K
2007-12-12 20:48
Условия даны все. Я нашла среднее число матрици через AVERAGE, но SOLVER его не воспринимает. Это среднее нужно к чему-то привязать, т.е. составить математическую модель.????...

Тема: Отв: Транспортная задача; Поиск решения - : Владимир .
2007-12-12 20:48
даже еще лучше ... 54 842,25 ... вот ... а файлик ... я прикреплю мне НЕ жалко, но у меня там ВСЕГО 5 видов машин :( ...

Тема: Отв: Транспортная задача; Поиск решения - : perminov roman
2007-12-12 20:48
Вот эта цифра мне больше нравится, и это похоже на то, чего я и хотел добиться. Если можно, прикрепите пожалуйста файлик с Вашими расчетами, а я на досуге по изучаю....

Тема: Отв: Транспортная задача; Поиск решения - : Владимир .
2007-12-12 20:48
эт точно ... :P НЕ ту ЦЫФЕРЬ сказал ... 59 258,63 ... вот ......

Тема: Отв: Равенство ячеек но... - : Алексей Т
2007-12-13 00:50
Спасибо. еще вопрос по этой же теме... а если вариация в ячейке А1 то 100L то 100С в таком случае как быть? то есть если я ввожу в А1 100L или 100С в ячейке А2 все равно должно быть 100*...

Тема: Отв: отправка на заданный е-mail выделенных ячеек( в автомате) - : Алексей Шмуйлович
2007-12-13 00:50
Я с Outlook в VBA работал мало. Вот посмотрите тему - может подойдет или на мысль натолкнет: http://forum.msexcel.ru/component/option,com_joomlaboard/Itemid,32/func,view/id,3623/catid,21/. Там речь идет о вложении, но можно и просто текст письма менять. По поводу автоматического обновления в реалтайме, не совсем понятно, что Вы имеете в виду. Я так понимаю, что раз в 3 минуты оно у Вас и так само обновляется. Или нет? Вы какой технологие пользуетесь для извлечения данных из Инета? Еще, возможно, Вам приг...

Тема: Отв: Равенство ячеек но... - : Алексей Шмуйлович
2007-12-13 00:50
В А2 введите формулу: =ПОДСТАВИТЬ(A1; L ; * )...

Тема: Отв: Отключить автоматическую настройку формул при вставке строчки - : Алексей Шмуйлович
2007-12-13 00:50
Совсем настройку отключить не получится. Можно использовать для ссылки функцию =ИНДЕКС(). Например так: =ИНДЕКС(A9:A10;2) Только диапазон начните с шапки. Тогда функция будет всегда выдирать нужную строку относительно шапки по номеру строки. При добавлении новой строчки будет расширяться только просматриваемый диапазон, а номер нужной строчки останется тем же....

Тема: отправка на заданный е-mail выделенных ячеек( в автомате) - : юрий григорьев
2007-12-13 00:50
Есть таблица, которая обновляется с странички интернета 1 раз в 3 мин, по результатам обновления производятся действия которые затем выделяются, подаётся команда из меню отправить сообщение, открывается форма Outlook-а , где указываю E-mail адрес куда отправить, нажимаю собственно отправить. И тут вопросы: 1. Как обновлять данные со странички в таблицу в реал-тайме? 2. Как все мои действия автоматизировать? Как сделать данную задачу полностью автономной, без участия Homo. Заранее всем благодарен за пос...

Тема: Отв: Совершенствование Текстовых функций - : Алексей Шмуйлович
2007-12-13 00:50
Олег, если не сложно, выложите код в форум. Скачивать файл не всегда удолбно, а на функцию посмотреть любопытно....

Тема: Отв: Транспортная задача; Поиск решения - : Алексей Шмуйлович
2007-12-13 00:50
Даже интересно, моим методом расход меньше получится. Роман писал: А по поводу сортировки, я совсем не понял, если можно, покажите на примере. Роман, если еще актуально, то дайте мне исходные данные немного в другом виде: 1. По маркам (а не по госномерам!!!) автомобилей: количество, шт; грузоподъемность, т; путевой расход топлива, л/100 км; скорость движения, км/ч. 2. По пунктам назначения: потребность в грузе, т (это уже есть); расстояние от источника до пункта назначения, км. Тогда покажу н...

Тема: Отв: Solver (задача) - : Алексей Шмуйлович
2007-12-13 00:50
Тогда я сдаюсь. Я условия не понимаю....

Тема: Равенство ячеек но... - : Алексей Т
2007-12-13 00:50
Вопрос в следующем. Например ячйка А1=А2 но в ячейке А1 значение 100L а в ячейке А2 надо чтоб было 100*(100градусов). То есть я ввожу в ячейку А1 100L а в ячейке А2 автоматически должно появиться 100*. Как это осуществить или не возможно?...

Тема: Помогите разобраться... - : Матвей Синицкий
2007-12-13 02:55
Предвосхищая негодующие реплики, скажу: Да, пару дней назад обстоятельства заставили занятся поиском решения под названием ЧИСЛО ПРОПИСЬЮ ... Я нашел в интернете следующее решение (не скажу чьё и где, собственно взял, ибо не помню): ' Для получения, в ячейке листа, иходной суммы прописью, 'нужно: в ячейку вставить функцию СУММ_ПРОП_РУБ 'т.е. в ячейке будет прописано: = СУММ_ПРОП_РУБ (адрес_ 'ячейки_откуда_берется_исходное_значение) Public Function СУММ_ПРОП_РУБ(Исх_Значение As Currency) As St...

Тема: Отв: Транспортная задача; Поиск решения - : perminov roman
2007-12-13 09:51
Задача еще актуальна. Прикрепляю файлик с исходным данными с учетом вашего мнения. Уточняю, что расход топлива на один рейс и расход времени на один рейс это официальные утвержденные нормативы. Рейсом считается цикл: Погрузка-движение в пути-выгрузка-движение обратно-стал под погрузку. ...

Тема: Отв: Равенство ячеек но... - : Алексей Т
2007-12-13 09:51
Спасибо. А если просто формулой без VBA? Желательно просто формулой......

Тема: Отв: отправка на заданный е-mail выделенных ячеек( в автомате) - : Oleg X
2007-12-13 09:51
А вот код на чтение с WEB страницы для пункта 1 ' Открываем WEB страницу fl = http://www.phnet.ru/quotes/graph.asp?id=1689 issue= lstg= rnd= selectgraph=0 Workbooks.Open Filename:=fl ' Выделяем объект картинку (название Picture 2 ) '+ ActiveSheet.Shapes( Picture 2 ).Select ActiveSheet.Range( D22:F33 ).Select ' Удаляем Гиперссылку ''Selection.ShapeRange.Item(1).Hyperlink.Delete ' Копируем картинку Selection.Copy ' Workbooks(fl).Close Workbooks( graph.asp )....

Тема: Отв: Равенство ячеек но... - : Oleg X
2007-12-13 09:51
На VBA можно просто [A2] = val([A1]) * ...

Тема: Отв: Совершенствование Текстовых функций - : Oleg X
2007-12-13 09:51
Алексей, выкладываю Function myText(x0 As String) n1 = InStr(x0, ) xs = Left(x0, n1) x1 = Split(Mid(x0, n1 + 1), , ) For Each x2 In x1 If InStr(x2, - ) > 0 Then x3 = Split(x2, - ) For x = x3(0) To x3(1) xs = xs , x Next x Else xs = xs , x2 End If Next x2 myText = Replace(xs, , , ) End Function...

Тема: Отв: Транспортная задача; Поиск решения - : perminov roman
2007-12-13 11:14
Буду безумно благодарен, если у Вас это действительно получится, а то я уже потерял надежду....

Тема: Отв: Транспортная задача; Поиск решения - : Алексей Шмуйлович
2007-12-13 11:14
Роман, теперь я тоже понимаю, что нужна оптимизация. Дело в том, что Вы сразу не упомянули ,что нужно еще учитывать расход топлива и затраты времени на погрузку-разгрузку. Учитывая принципиально разное расстояние до объектов - от 3 до 136 км и грузоподъемность от 7 до 28 т, соотношение времени погрузки/разгрузки и времени перевозки может принципиально отличаться для пар автомобиль/пункт назначения. Хорошо, я попытаюсь решить задачу на оптимизацию....

Тема: перенос и сохранение данных - : Игорь М
2007-12-13 11:14
Есть еще один вопросик, как сделать так чтобы эти данные сохранялись вниз, т.е. необходимо будет сделать шапку с фильтром, а ниже нее данные. И еще если можно вопросик, можно ли сделать также автоматическое сохранение того листа, с которого переносятся данные, в отдельный файл и присваивать названия листу к примеру как номер данного акта, который тоже будет постоянно меняться. Заранее благодарю. ...

Тема: Отв: Равенство ячеек но... - : Алексей Т
2007-12-13 12:56
максимальное колличество знаков в ячейке будет три и буква то есть максимум 999С, минимум один и буква то есть 0L....

Тема: Отв: Равенство ячеек но... - : Алексей Т
2007-12-13 12:56
Попробовал получилось через =ЗАМЕНИТЬ но вылезла другая проблема... формула =ЗАМЕНИТЬ(A1;4;3; #186; ) она работает нормально если в ячейку А1 вводить трехзначное число с буквой 100L меняется на 100 #186; нормально, но если двух или одно то получается что буква остается и просто подставляется знак #186; 25L меняется на 25L #186; или 1L меняется на 1L #186; Как быть? что добавить в формулу?...

Тема: Отв: Транспортная задача; Поиск решения - : perminov roman
2007-12-13 12:56
Извините ошибся. БГК-Ракитное 1 - 14 км . Кстати расстояние указано в одну сторону. Автомобиль С996АМ который отличается от других с грузоподьемностью 14,8 и производство ППР Майский можно выбросить вообще, т.к. по техническим причинам он может обслуживать только одно это производство, другие автомобили едут в производство ППР Майский , только когда автомобиль 996 сломается. Отличие во времени не опечатка, т.к. два других выдуваются компрессором, а этот остался один пережиток прошлого, а выгружается ...

Тема: Отв: Транспортная задача; Поиск решения - : Алексей Шмуйлович
2007-12-13 12:56
А за счет чего разница во времени рейса для МАЗ/14,8/26,25 и МАЗ/14,8/26. Грузоподъемность одинаковая, скорость одинаковая. Я бы их укрупнил, но разница в продолжительности рейса большая. Действительно много переменных. Не справляется Excel....

Тема: Отв: Замена и объединение данных в Excel - : Сергей Петров
2007-12-13 12:56
Удалил дублль (Сергей Петров)...

Тема: Отв: Замена и объединение данных в Excel - : Сергей Петров
2007-12-13 12:56
Сергей Л. писал(а): Полностью автомат - это макросы. Сделать можно, но сейчас некогда возиться, кроме того неизвестна структура исходных данных... Отправляю пример, как это можно сделать наполовину вручную , при помощи функции ВПР. Думаю, там все понятно. Если что - спрашивайте. Вкратце: второй список сравнивается с первым на предмет совпадений. Если данные не совпадают, функция выводит 1 . В результате в итоговый список попадают ВСЕ значения первого списка и единицы из второго. Каждый шаг можно...

Тема: Отв: Транспортная задача; Поиск решения - : Алексей Шмуйлович
2007-12-13 12:56
Роман, а почему для пунктов назначения с одинаковым расстоянием разное время рейса для одного и того же автомобиля. Например БГК-Ракитное 1 и ООО БГК-Ракитное 17 км, но разное время. Можно сгруппировать и и пункты назначения с одинаковыми характеристиками по расходу топлива и времени....

Тема: Отв: Как создать журнал из постоянно меняющихся данных - : Владимир .
2007-12-13 12:56
ВНИЗ - это тогда КАК? я ДУМАЛ, что вниз - значит имеющиеся данные сдвигаются ВНИЗ ... :) а ТЕПЕРЬ я так понимаю, что ВНИЗ - значиту новые данные должны сохраняться в самом НИЗУ? :(...

Тема: Отв: отправка на заданный е-mail выделенных ячеек( в автомате) - : юрий григорьев
2007-12-13 14:56
Спасибо Алексей за внимание! Действительно раз в 3 мин оно и так обновляется. В прочем это легко установить, ведь я пользуюсь функцией EXCEL-я создать Веб-запрос. Реал-тайм имеется в виду- как только произошло обновление на страничке интернета, так сразу же и произойти должно обновление таблицы. Иначе обновление может быть и раз в час( там на страничке). А я как идиот 20 раз в холостую запрос делаю.Вот и хотел чтоб если там чз 20 сек обновление произошло, то я ссразу бы считал. И если следующее через два ...

Тема: Отв: Помогите разобраться... - : Матвей Синицкий
2007-12-13 14:56
по не понятной мне причине символ \ не отобразился при копировании кода... правильно: lngCategory = lngGroup \ 10...

Тема: Отв: Помогите разобраться... - : Владимир .
2007-12-13 14:56
а вот ЧТО это значит lngCategory = lngGroup 10 :-O если ДЕЛЕНИЕ, то НЕ правильно работает сама функция ... :(...

Тема: Отв: Помогите разобраться... - : Матвей Синицкий
2007-12-13 14:56
Уважаемый Алексей, какие могут быть обиды... Сам виноват - сам исправляюсь... Все это получилось не от моего дурного воспитания, а от невнимательности... Мог бы поместить это сообщение в уже существующий топик, но подумав (там приводится и разбирается другой код), решил создать отдельный... Если опять не прав, говорите - исправлюсь... Главное - найти решение проблемы!!!...

Тема: Отв: Транспортная задача; Поиск решения - : perminov roman
2007-12-13 14:56
Алексей, прикрепите пожалуйста еще раз файлик, а то открываются какие-то иероглифы ....

Тема: Отв: Помогите разобраться... - : Алексей Шмуйлович
2007-12-13 14:56
Матвей, пожалуйста не обижайтесь, но темы с такими названиями на форуме не разрешены. Пожалуйста, прочитайте правила форума и отредактируйте первое сообщение (его название). Иначе вынужден буду заблокировать топик....

Тема: Отв: Транспортная задача; Поиск решения - : Алексей Шмуйлович
2007-12-13 14:56
Роман, ну принцип Вы поняли. Я сгруппировал, что мог. У меня расчет пошел. Если какую-то машину и пункт назначения можно выкинуть, конечно, нужно выкидывать. Мне удалось сократить расход ГСМ только до 68790 л. Но это не предел - у меня комп слабоват - не хватает памяти и Excel просто виснет. На более сильной машине, думаю можно покрутить еще. Смотите в параметрах Поиска решений число и время итераций. ...

Тема: Отв: отправка на заданный е-mail выделенных ячеек( в автомате) - : юрий григорьев
2007-12-13 15:57
Понял Олег! Вы видимо на форуме и видели тему рассылка по e-mail Я там вопрос задал. Помогите пожалуйста разобраться, т.к. в макросе я их пока только записывать с помощью акселя могу. А приведённый там код по идее должен решить мою проблему. Заранее благодарен....

Тема: Отв: рассылка по e-mail - : Oleg X
2007-12-13 15:57
.Body = a2:d2 - ошибка здесь должна быть строка, или ячейка, т.е. .Body = [a2] или сцепить ячейки .Body = [a2] [b2] [c2] [d2]...

Тема: Отв: Как создать журнал из постоянно меняющихся данных - : Игорь М
2007-12-13 15:57
Я извеняюсь, наверное я неправильно объяснил, да правильно история должна оставаться сверху, и еще если можно вопросик. Можно ли после нажатия на кнопу для переноса данных сохранять Sheet1 в другом файле и называть главы в этом файле как какой нибудь меняющийся номер. Еще раз извеняюсь, и заранее благодарю....

Тема: Отв: рассылка по e-mail - : юрий григорьев
2007-12-13 15:57
Извиняюсь, но у меня вместо ответа вопросы. Меня устраивает в решении моей проблемы то что вы привели в пример. мне нужно чтобы ексель выполнил отправку письма автоматом после обработки данных. Из ячеек , пусть A2:D2 ( это должно быть собственно сообщением) Попробовал вставить ваши строчки в макрос, затем его исполнить, но получаю ошибки. Ваш код у меня выглядит: Sub #204; #224; #234; #240; #238; #241;16() Dim objOL As New Outlook.Application Dim objMail As MailItem Set objOL = New Outlook.Applica...

Тема: Отв: рассылка по e-mail - : юрий григорьев
2007-12-13 15:57
Извиняюсь, но у меня вместо ответа вопросы. Меня устраивает в решении моей проблемы то что вы привели в пример. мне нужно чтобы ексель выполнил отправку письма автоматом после обработки данных. Из ячеек , пусть A2:D2 ( это должно быть собственно сообщением) Попробовал вставить ваши строчки в макрос, затем его исполнить, но получаю ошибки. Ваш код у меня выглядит: Sub #204; #224; #234; #240; #238; #241;16() Dim objOL As New Outlook.Application Dim objMail As MailItem Set objOL = New Outlook.Applica...

Тема: Отв: отправка на заданный е-mail выделенных ячеек( в автомате) - : Oleg X
2007-12-13 15:57
виноват, мусор убрать забыл:( судя по вопросам код вам ясен :) ''Selection.ShapeRange.Item(1).Hyperlink.Delete- закоментирован а вместо Workbooks( graph.asp ).Close надо Workbooks(fl).Close...

Тема: Отв: отправка на заданный е-mail выделенных ячеек( в автомате) - : юрий григорьев
2007-12-13 15:57
Спасибо Олег! В принципе всё я это делаю как обычный юзер с помощью команды EXCEL-я создать веб-запрос . Но всё равно интересно как то же можно сделать и сVBA макросом. Отсюда Вам вопросы зачем в тексте кода 1.''Selection.ShapeRange.Item(1).Hyperlink.Delete 2.Workbooks( graph.asp ).Close и что будет если это не исполнить?...

Тема: Отв: Как создать журнал из постоянно меняющихся данных - : Игорь М
2007-12-13 16:58
Пардон файлик не запомнился. Отправляю следующий ...

Тема: Отв: Совершенствование Текстовых функций - : Anatoli Анатолий
2007-12-13 16:58
Oleg x, спасибо! Хорошая функция! Итак задача №2 решена....

Тема: Отв: Как создать журнал из постоянно меняющихся данных - : Игорь М
2007-12-13 16:58
2.новые данные появляются на 3-й строке 2-я строка остается неподвижной над ней шапка с автофильтром. Я вложил файлик Вами доделанный с пояснениями. ...

Тема: Отв: Как создать журнал из постоянно меняющихся данных - : Владимир .
2007-12-13 16:58
:P давайте так ... БЫЛА одна строка в журнале ... например строка 2 нажимаем на КНОПКУ для добавления новых данных .. 1. старые данные опускаются на 3-ю строку, а новые появляются на 2-й 2.новые данные появляются на 3-й строке по поводу дополнения ... про листы - конецно МОЖНО .. скажите ОТКУДА будет браться название и КУДА будет копироваться лист ... :)...

Тема: Отв: рассылка по e-mail - : юрий григорьев
2007-12-13 16:58
У меня до туда не доходит тормозится на Dim objOL As New Outlook.Application и выдаёт ошибку: User-defined type not defined...

Тема: Отв: рассылка по e-mail - : юрий григорьев
2007-12-13 20:00
Теперь подключил, но вываливает на первой же строчке- Sub Макрос16() ошибку-Only comments may appear after End Sub, End Function, or End Property(отметив всю строку жёлтой строчкой). Чо ему надо?...

Тема: Отв: рассылка по e-mail - : Alexandr Zlobin
2007-12-13 20:00
Tools-References. В списке Available References поставьте флажок Mickrosoft Outlool 11.0 Object Library...

Тема: Отв: рассылка по e-mail - : юрий григорьев
2007-12-13 20:00
Конечно нет, Александр! Я просто не знаю как это сделать. Подскажите плизз...

Тема: Отв: Как создать журнал из постоянно меняющихся данных - : Игорь М
2007-12-13 20:00
Огромное спасибо за уделенное внимание и время. Это именно то, что я хотел.:P...

Тема: Отв: Равенство ячеек но... - : Алексей Т
2007-12-13 20:00
Менять надо L или C в этом еще проблема то есть 100L или 25C или любое другое число с буквами L или C в ячейке A1 должны в ячейке А2 отображаться как число и знак градуса 100*...

Тема: Отв: Как создать журнал из постоянно меняющихся данных - : Владимир .
2007-12-13 20:00
:whistle: может так ... :) ...

Тема: Отв: рассылка по e-mail - : Alexandr Zlobin
2007-12-13 20:00
А библиотеку Outlook подключили?...

Тема: Отв: Транспортная задача; Поиск решения - : Алексей Шмуйлович
2007-12-13 22:01
Хорошо. Попробую в zip ...

Тема: Отв: список рассылок2 - : Alexandr Zlobin
2007-12-13 22:01
нет.Мне периодически (2 раза в месяц) присылают много excel формуляров. Там одним из пунктов заполнения значится Контакт (компания и почта). Я обрабатываю файлы автоматически. Хотелось бы динамически и менять список рассылки по этим контактам , т.к реально они все время меняются, отслеживать очень сложно....

Тема: Отв: список рассылок2 - : юрий григорьев
2007-12-13 22:01
Я точно не знаю что Вам Александр надо. Но со списком рассылки я работаю так. Висит прога ADR и работает с оутлуком. в оутлуке пишется сообщение передаётся для рассылки в ADR. Если нужно отправить по списку рассылки, то в ADR есть ящик где находятся адреса рассылки в текстовом файле. (Если чо то туда их можно закинуть из екселя автоматом). И ADR множит сообщения в соответствии с списком рассылки и начинает автоматом их отправку. Как это всё с VBA сделать я пока не знаю....

Тема: Отв: рассылка по e-mail - : Alexandr Zlobin
2007-12-13 22:01
Oleg X писал(а): Добавь .Add fl, 1, 1 где fl - имя файла а вместо .Display поставь .Send чтобы отсылать без диалога Однако диалог все равно вылезает, что типа программа вирус хочет оправить бла-бла . Сам бы хотел его игнорировать....

Тема: Отв: рассылка по e-mail - : юрий григорьев
2007-12-13 22:01
Получилось (в коде два раза endsub было) Но теперь загвоздка следующего плана: вываливает окошко от оутлука с запросом разрешить ли отправить сообщение? и пока не ответишь да всё висит Как без этого окошка отправку сделать, ведь иначе автомата не получается. Плизз Саша!...

Тема: Отв: рассылка по e-mail - : юрий григорьев
2007-12-13 22:01
Получилось (в коде два раза endsub было) Но теперь загвоздка следующего плана: вываливает окошко от оутлука с запросом разрешить ли отправить сообщение? и пока не ответишь да всё висит Как без этого окошка отправку сделать, ведь иначе автомата не получается. Плизз Саша!...

Тема: Отв: Равенство ячеек но... - : Алексей Т
2007-12-13 23:00
А вот есть маленькая проблемка при вводе 0 или 180 букву не надо ставить и соответственно при этой формуле отображается так - если 0 то просто знак *, если 180 то 18*... похоже чтоб всему соответствовало не получится......

Тема: Отв: Равенство ячеек но... - : Алексей Т
2007-12-13 23:00
=ЗАМЕНИТЬ(A1;ДЛСТР(A1);1; * ) вроде норма. Спасибо... почему не просто число - это надо для векторной то есть круг в 360 градусов поделен на левую часть L и правую C и в зависимости какая буква стоит возле числа в ту сторону и откладывается вектор... а в другой ячейке надо число без буквы чтоб там в ручную не заполнять как бы одно и тоже... Еще раз спасибо за помощь :)...

Тема: Отв: Помогите разобраться... - : Алексей Шмуйлович
2007-12-13 23:00
Да, обратный слеш \ почему-то не отображается. Странно, но в описании форума ничего про это не сказано. /\ \\...

Тема: Отв: Равенство ячеек но... - : Алексей Шмуйлович
2007-12-13 23:00
А почему бы не вводить просто числа, а в формуле просто прицеплять знак градуса....

Тема: Отв: Равенство ячеек но... - : Алексей Шмуйлович
2007-12-13 23:00
Вот такой вариант: =ЗАМЕНИТЬ(A1;ДЛСТР(A1);1; * )...

Тема: Отв: Равенство ячеек но... - : Алексей Т
2007-12-13 23:35
Вот все числа из которых будут вводится значения и которые надо будет переводить со знаком * 0 1L-179L (с шагом равным 1 1L 2L 3L...179L) 180 1C-179C (с шагом равным 1 1C 2C 3C...179C) любое из этих чисел может быть в ячейке например А1. Ограничимся этим может так проще будет....

Тема: Отв: Равенство ячеек но... - : Алексей Шмуйлович
2007-12-14 03:02
=ЕСЛИ(ИЛИ(ПРАВСИМВ(A1)= L ;ПРАВСИМВ(A1)= C );ЗАМЕНИТЬ(A1;ДЛСТР(A1);1; * );A1 * )...

Тема: Отв: Равенство ячеек но... - : Алексей Шмуйлович
2007-12-14 03:02
Если речь о направлении, не проще ли использовать знак (+/-)? Тогда с вычислениями никаких проблем не будет....

На сегодня все. До встречи на следующей неделе.