| ← Октябрь 2012 → | ||||||
|
1
|
2
|
3
|
4
|
6
|
7
|
|
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
13
|
14
|
|
|
15
|
16
|
17
|
18
|
20
|
21
|
|
|
22
|
23
|
24
|
25
|
27
|
28
|
|
|
29
|
30
|
31
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://msexcel.ru
Открыта:
17-06-2006
Адрес
автора: job.education.exl-owner@subscribe.ru
Статистика
3.828 подписчиков
0 за неделю
0 за неделю
sergo44441>> Re: Может кто-нибудь подскажет?
Профессиональные приемы работы в Microsoft Excel Выпуск 15 Подписчиков: 5948 Рассылка сайта "Профессиональные приемы работы в Microsoft Excel"
Новости сайта в формате RSS Порекомендуйте нашу рассылку друзьям Обратная связь Наши рассылки: Наши сайты Профессиональные приемы работы в Microsoft Excel bonifatiy.narod.ru Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии. StudentTools.Narod.Ru Для тех, кто любит учиться Наши друзья VBAtips.ru - wordexpert.ru planetaexcel.ru |
Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel"
Svetlasha>> Re: Может кто-нибудь подскажет? 2012-09-26 22:25 http://forum.msexcel.ru/profiles/svetlasha-u153192.html Ой, спасибо Вам большое! ZORRO2005>> Re: Может кто-нибудь подскажет? 2012-09-26 22:29 http://forum.msexcel.ru/profiles/zorro2005-u4225.html Еще вариант. Wasilic>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-09-27 00:22 http://forum.msexcel.ru/profiles/wasilic-u24852.html как сделать так, чтобы макрос проверял диапазон "kuda", и, в случае совпадений значений, введенных в диапазон "otkuda" Никак! "otkuda" и "kuda" это переменные содержащие координаты диапазона откуда надо копировать данные и куда копировать. Тем более что, в данном примере, координаты "kuda" - пустое место. sergo44441>> Re: Макрос, преобразующий вид документа 2012-09-27 08:37 http://forum.msexcel.ru/profiles/sergo44441-u3995.html Вроде, методика понятна. Задача облегчится, вы сделаете таблицу соответствия видов оплаты в варианте1 и их группировок в варианте 2 iKriss>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-09-27 10:39 http://forum.msexcel.ru/profiles/ikriss-u147911.html А как тогда реализовать такую задачу? Сравнение диапазонов и проставление отметок в случае совпадения? 0mega>> Переключатели сформировать по отдельным группам 2012-09-27 10:48 http://forum.msexcel.ru/profiles/0mega-u34319.html Дорого времени суток B программе используются переключатели (кружечек с точкой внутри) Bсе переключатели работают по принципу " Только один включен" как эти переключатели расформировать по отдельным группам. Чтобы был включен только один , но в своей группе. ShAM>> Re: Макрос, преобразующий вид документа 2012-09-27 13:00 http://forum.msexcel.ru/profiles/sham-u106530.html http://www.excel-vba.ru/forum/index.php?topic=1591.0;topicseen _Boroda_>> Re: Переключатели сформировать по отдельным группам 2012-09-27 15:34 http://forum.msexcel.ru/profiles/boroda-u12234.html см вложение 0mega>> Re: Переключатели сформировать по отдельным группам 2012-09-27 15:56 http://forum.msexcel.ru/profiles/0mega-u34319.html Александр, добрый день. Предложенное решение почти устраивает. Дело в том что Вы "объеденили" 3 переключателя вместе (красные стрелки) И они работают по принципу " только 1 влючен" и остался еще 1 переключат , который только включается (выделен голубым ) P.S. Александр, это не тот случай когда мне надо вставить и забыть. Это относится к разряду " я хочу знать как..." Секреты в студию cheshiki1>> Re: Переключатели сформировать по отдельным группам 2012-09-27 16:49 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html 1. создаете переключатели. 2. В Элементах управления формы есть кнопка Группа, жмем её и объединяем переключатели в группы. olexey>> Re: Как раскинуть невязку в углы... 2012-09-27 17:05 http://forum.msexcel.ru/profiles/olexey-u153000.html спасибо, монстрик ничего..правда для этого варианта лабы углы не меняются и хватило бы предыдущего варианта, но это пригодится на будущее 0mega>> Re: Переключатели сформировать по отдельным группам 2012-09-27 18:33 http://forum.msexcel.ru/profiles/0mega-u34319.html cheshiki1 спасибо за ответ В Элементах управления формы есть кнопка Группа, жмем её и объединяем переключатели в группы. Каким офисом пользуетесь ? В наличии 2-а разных офиса ни в одном из них нет группы ?! Только связь с ячейкой Может я не там ищу cheshiki1>> Re: Переключатели сформировать по отдельным группам 2012-09-27 20:23 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html не там ищете. для 2007 и выше. Wasilic>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-09-27 22:17 http://forum.msexcel.ru/profiles/wasilic-u24852.html Сравнение диапазонов и проставление отметок в случае совпадения? Ну эта задача больше к формулистам. А пока посмотрите эти ссылки http://forum.msexcel.ru/microsoft_excel/sravnenie_dvuh_diapazonov_spiskov-t8533.0.html http://forum.msexcel.ru/microsoft_excel-b1.760/;sort=subject;desc Возможно найдете свое решение. KuklP>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-09-28 00:35 http://forum.msexcel.ru/profiles/kuklp-u39713.html iKriss, давайте-ка заглянем в правила форума. Особое внимание п.2. mitja>> Как добавить цифру? 2012-09-28 01:14 http://forum.msexcel.ru/profiles/mitja-u153072.html Доброе время суток . Посмотрел по форуму , много чему научился . спасибо что вы есть ! Но Есть вопросы. Вставил исходник . 1. после токи с запятой идёт дата : число месяц и последняя цифра год как с помощью формул добавить единицу перед годом, что бы при разделении программа правильно работала? Спасибо за помощь mitja>> Re: Как добавить цифру? 2012-09-28 01:28 http://forum.msexcel.ru/profiles/mitja-u153072.html Во вложении то что требуется . пришлось много делать в ручную. Хотелось бы просто вставить данные и увидеть примерно то что в вложении . по истечении срока не плохо бы было что бы данные автоматически удалялись . MCH>> Re: Как добавить цифру? 2012-09-28 01:43 http://forum.msexcel.ru/profiles/mch-u48782.html Дату можно извлучь формулой: Код: =ДАТА(ПРАВСИМВ(A1)+2010;ПСТР(A1;17;2);ПСТР(A1;15;2))
mitja>> Re: Как добавить цифру? 2012-09-28 09:17 http://forum.msexcel.ru/profiles/mitja-u153072.html Дату можно извлучь формулой: За формулу спасибо пригодится, хотелось бы конкретный ответ на мой вопрос.
Код: =ДАТА(ПРАВСИМВ(A1)+2010;ПСТР(A1;17;2);ПСТР(A1;15;2)) Roozevelt>> Re: Построить гистограмму 2012-09-28 09:29 http://forum.msexcel.ru/profiles/roozevelt-u57332.html Serge 007 - отлично! Единственное, я бы поменял в сводной таблице в значениях "сумма по полю" на "сумма по количеству" ( по условию задачи). 0mega>> Re: Переключатели сформировать по отдельным группам 2012-09-28 11:05 http://forum.msexcel.ru/profiles/0mega-u34319.html не там ищете. для 2007 и выше. А у 7-го где ? 0mega>> Re: Как добавить цифру? 2012-09-28 11:24 http://forum.msexcel.ru/profiles/0mega-u34319.html Цитировать ... хотелось бы конкретный ответ на мой вопрос. Так, ведь MCH написал готовую формулу Эту формулу вставляйте в столбец "В" и протяните вниз до конца таблицы P.S. Если в исходнике в D1 немного изменить формулу ="Осталось "&B1-I$1&" дней." Тогда увас появится возможность выделить и протянуть вниз, а не писать в каждой ячейке новую формулу ( как Вы делали ) cheshiki1>> Re: Переключатели сформировать по отдельным группам 2012-09-28 11:30 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html неужели на рисунке не видно что активна вкладка "разработчик". vuler>> Анализ перевозок сводная таблица 2012-09-28 13:45 http://forum.msexcel.ru/profiles/vuler-u153289.html Помогите пожалуйста проанализировать базу перевозок. в общем есть огромная таблица, приведу короткий пример чтобы было понятно. Просто в Екселе не силен. станция_отправления кол-во ваг станция_назнач Вязьма 2 Челябинск Брянск 5 Сочи Вязьма 8 Адлер Брянск 19 Баку Нужно получить сводную таблицу. Вязьма 10 вагонов Брянск 24 вагонов А так же маршрутный анализ Вязьма - Адлер -8 Челябинск - 2 Брянск - Баку -19 Сочи - 5 Alxxxx74>> Re: Списки в Excel 2012-09-28 14:18 http://forum.msexcel.ru/profiles/alxxxx74-u146906.html Существует несколько вариантов, например так:
1. Выбираете ячейку, в которой должен находиться выпадающий список; 2. Переходите в меню ДАННЫЕ\ПРОВЕРКА_ДАННЫХ и выбираете ограничение СПИСОК 3. В появившемся окне даете ссылку на ячейки, содержащие источник данных: a. =$B$3:$B$6 - прямая ссылка (работает только для ячеек, расположенных на том же листе, что и сам список) b. =Животные - именованная ссылка (работает вне зависимости от взаимного расположения источника_данных и списка, но предварительно требуется присвоить имя Животные указанному диапазону => см. меню ВСТАВКА\ИМЯ\ПРИСВОИТЬ) с. =СМЕЩ($B$2;1;0;СЧЁТЗ($B:$B)-1;1) - формула, возвращающая динамически изменяемый список животных; ограничения: новых животных в список нужно добавлять без пропусков, ненужные значения в столбце B не допускаются; 4. Проверить работоспособность вновь-созданного поля со списком 5. Скопировать ячейку во все остальные места, где тре... 0mega>> Re: Переключатели сформировать по отдельным группам 2012-09-28 14:41 http://forum.msexcel.ru/profiles/0mega-u34319.html Бдагодарю Нашел cheshiki1>> Re: Анализ перевозок сводная таблица 2012-09-28 15:07 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html обыкновенные [url=http://msexcel.ru/content/view/34/2/]_сводные_[/url] справятся с этим. iKriss>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-09-28 15:17 http://forum.msexcel.ru/profiles/ikriss-u147911.html Сравнение диапазонов и проставление отметок в случае совпадения? Ну эта задача больше к формулистам. А пока посмотрите эти ссылки http://forum.msexcel.ru/microsoft_excel/sravnenie_dvuh_diapazonov_spiskov-t8533.0.html http://forum.msexcel.ru/microsoft_excel-b1.760/;sort=subject;desc Возможно найдете свое решение. Спасибо за ответ, но формулы не устраивают. В данном случае все должно работать именно по макросам, чтобы из диапазона, куда вводятся значения, после работы макроса данные удалялись. То есть механика следующая: 1. В диапазон otkuda вводятся данные 2. По нажатию кнопки макрос построчно сравнивает данные с бОльшим, чем otkuda, диапазоном kuda, в... Barbarian12>> Re: Добавление введенного значения на другой лист 2012-09-28 17:46 http://forum.msexcel.ru/profiles/barbarian12-u139204.html Более-менее разобрался, но не до конца.  В файле есть две формы: первая - кнопочка чуть выше, по нажатии которой, введенный клиент добавляется в лист "база клиента" и в колонке О автоматом проставяется имя учетной записи пользователя, внесшего клиента. Необходимо чтобы по нажитии на кнопку "показать клиентов" выгружались только те клиенты, имя которых совпадает с именем пользователя, открывшего файл. Сейчас это работает немного через одно место, т.к. в макросах плохо ориентируюсь и просто написал формулу и записал макрос. Когда был маленький список, все было хорошо, но когда кол-во значений перевалило за тысячу, формула начала подтормаживать и приходится искать альтернативный, более простой путь. Помогите, пожалуйста P.S. Если сейчас нажать на кнопку "показать клиентов" вывалятся нулевые значения, т.к. по нажии на кнопку имя учетной записи проставляется на листе "база клиентов" в ячейке P1. (изменил файл, т.к. спутал колонки с учетной записью) olga>> как убрать из ячейки определенное слово 2012-09-28 19:02 http://forum.msexcel.ru/profiles/olga-u153251.html Имеется список: IEK_Расцепитель незав. PH-800/1600(РH-40/43) ИЭК_(5/120) IEK_Расцепитель миним.напр. PM-800/1600(РМ-40/43) ИЭК_(Н/Д/120) IEK_Реле РЭК77/4(LY4) 10А 24В АC ИЭК_(20/300) ......... Надо убрать слово ИЭК из ячеек, как это можно безболезненно сделать. MCH>> Re: как убрать из ячейки определенное слово 2012-09-28 19:46 http://forum.msexcel.ru/profiles/mch-u48782.html Не совсем понял. Нужно удалить "ИЭК" и далее? Код: =ЛЕВСИМВ(A1;ПОИСК(" ИЭК";A1&" ИЭК")-1) Вар2: выделяем столбец; Поиск/Замена (Ctrl+H); в поле "Найти" указываем " ИЭК*"; в поле "Заменить на" ничего не пишемили только само слово "ИЭК"? Код: =ПОДСТАВИТЬ(A1;"ИЭК_";)
Михаил I>> excel и javascript – как убрать сообщение о выполнении скрипта? 2012-09-28 21:14 http://forum.msexcel.ru/profiles/mihail_i-u153316.html Привет всем. Есть файл Excel, на листе которого расположен элемент ActiveX - WebBrowser, который при открытии файла excel и разрешении макросов загружает web страницу с расчетом. В расчете, по видимому, участвует javascript, при выполнении которого excel выдает следующее сообщение: «На этой странице произошла ошибка скрипта» Продолжить? Нажимаем да, и программа срабатывает. Вопрос – можно как то убрать это сообщение? Спасибо заранее Михаил I>> Re: excel и javascript – как убрать сообщение о выполнении скрипта? 2012-09-28 22:58 http://forum.msexcel.ru/profiles/mihail_i-u153316.html Наверное в пятницу вечером не лучший вариант спрашивать) В общем мне уже подсказал тут добрый человек как это сделать программно и проблема решилась: Лист1.WebBrowser1.Silent = True Wasilic>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-09-28 23:52 http://forum.msexcel.ru/profiles/wasilic-u24852.html чтобы он брал первое значение из диапазона otkuda, сравнивал его со всеми значениями диапазона kuda, выполнял или не выполнял какую-либо операцию, после чего брал следующее значение диапазона otkuda и так далее до последней заполненной ячейки диапазона otkuda... В общем то, задача макросом решаема. Но есть одно но. Чем больше данных на листе «Лог выданных» тем дольше будет производится поиск совпадений.Если на листе «Прием актов» будет 25 актов и 25 БСО, то макрос должен будет просмотреть Лог выданных 50 раз. Не проще ли проконтролировать совпадение номеров на момент ввода. См. пример. Макрос на кнопке СРАВНИТЬ. Хотя, наверняка, есть более быстродействующий макрос, но это уже к Сергею KuklP. Gregsun>> Excel-DNA: Программа для конвертации VBA Excel в С++ 2012-09-29 05:37 http://forum.msexcel.ru/profiles/gregsun-u8509.html Всем доброе время суток. После долгих поисков удалось найти программу Excel-DNA . http://exceldna.codeplex.com/ Остальные платные.  У меня установлена программа EXCEL 2007. но я не могу понять некоторые нюансы по установке программы. -------------------------------------------------------------------- Getting started with Excel-DNA ============================== Do this first: -------------- * The .NET 2.0 runtime must be installed (or .NET 4 with additional settings). The .NET Framework Version 2.0 Redistributable Package is available from Microsoft here: http://www.microsoft.com/downloads/details.aspx?FamilyID=0856eacb-4362-4b0d-8edd-aab15c5e04f5&DisplayLang=en * Macros security in Excel must not be 'Very High' or 'High' (if set to Medium -- it will prompt whether to enable each macro library). To use the .NET macr... KuklP>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-09-29 06:31 http://forum.msexcel.ru/profiles/kuklp-u39713.html Можно еще так проверять, но лучше, действительно, на момент ввода. Хотя и так д.б. достаточно быстро: Код: Sub КнопкаСравнить1() Сделал еще и на момент ввода.
Dim i&, r, e& r = Sheets("Лог выданных").Range("B1:B" & Sheets("Лог выданных").Range("B" & Rows.Count).End(xlUp).Row) On Error Resume Next For i = 2 To Range("A" & Rows.Count).End(xlUp).Row e = 0: e = Application.Match(Cells(i, 1), Application.Index(r, , 1), 0) Sheets("Лог выданных").Range("I" & e) = IIf(Err, "", Cells(i, 1) & " сдан " & [d1]): Err.Clear Next r = Sheets("Лог выданных").Range("d1:d" & Sheets("Лог выданных").Range("d" & Rows.Count).End(xlUp).Row) For i = 2 To Range("b" & Rows.Count).End(xlUp).Row e = 0: e = Application.Match(Cells(i, 2), Application.Index(r, , 1), 0) Sheets("Лог выданных").Range("J" & e) = IIf(Err, "", Cells(i, 2) & " сдан " & [d1]): Err.Clear Next End Sub mitja>> Re: Как добавить цифру? 2012-09-29 09:22 http://forum.msexcel.ru/profiles/mitja-u153072.html Спасибо всем кто откликнулся на мой вопрос , остальное сам додумаю. 0mega>> Re: как убрать из ячейки определенное слово 2012-09-29 09:50 http://forum.msexcel.ru/profiles/0mega-u34319.html Имеется список: Если IEK_ всегда находится в начале тогда ... IEK_Реле РЭК77/4(LY4) 10А 24В АC ИЭК_(20/300) ......... Надо убрать слово ИЭК из ячеек, как это можно безболезненно сделать. Код: =ПСТР(A1;5;999)
Gregsun>> Re: Excel-DNA: Программа для конвертации VBA EXCEL в С++ 2012-09-29 11:47 http://forum.msexcel.ru/profiles/gregsun-u8509.html Вот здесь подробней об установке. http://exceldna.codeplex.com/wikipage?title=Getting%20Started&referringTitle=Home shiroky>> Обучение языку VBA 2012-09-29 12:49 http://forum.msexcel.ru/profiles/shiroky-u140700.html Доброго времени суток, уважаемые форумчане. В связи со спецификой работы появляется много задач по обработке текста в ексель. Понимаю, что многие рутинные операции можно было бы упростить за счет макросов. Но запись макросов через одноименную функцию не подходит. требуется решение не совсем простейших задач. хочу поучиться языку и писать макросы самостоятельно. навыков программирования нет. посоветуйте материалы, книги, сайты, пожалуйста, подходящего для моего уровня знаний в программинге( нулевой). в интернете нашел много книг, но их много, на основе чего выбирать - не знаю работаю в office 2007 miroed>> Выделение диапазона на соседнем листе по определенному критерию 2012-09-29 22:51 http://forum.msexcel.ru/profiles/miroed-u8926.html Подскажите, пожалуйста. Перед макросом выделяется одна из ячеек столбца D листа 00. Как макросом выделить область определенной строки на листе "02" ? Строка для выделения области на листе 01 выбирается по содержимому столбца С возле активной ячейки столбца D листа 00 Номера столбцов для области выделения указаны в столбцах F и G листа 00. Если можно, то синтаксис попроще, специально для меня . Что-то похожее на это :Range("R[13]C[11]:R[14]C[12]").Select Range("INDIRECT(ADDRESS(BM101,432,4)):INDIRECT(ADDRESS(BM101,440,4))").Select KuklP>> Re: Выделение диапазона на соседнем листе по определенному критерию 2012-09-29 23:35 http://forum.msexcel.ru/profiles/kuklp-u39713.html Код: Public Sub www()
Dim r As Range Set r = ActiveCell With Sheets(2) .Activate .Range(.Cells(r(, 0), r(, 3)), .Cells(r(, 0), r(, 4))).Select End With End Sub miroed>> Re: Выделение диапазона на соседнем листе по определенному критерию 2012-09-30 00:02 http://forum.msexcel.ru/profiles/miroed-u8926.html Спасибо за помощь. Но это - не мое, не мой стиль, к сожалению. Я макросы в Экселе не пишу, а "записываю". Потом открываю, смотрю, корректирую, если понадобиться. Поэтому мне надо еще проще, понятнее. Неужели нельзя сделать что-то такое, похожее на это ? Range("R[13]C[11]:R[14]C[12]").Select Еще варианты есть ? 0mega>> Re: Обучение языку VBA 2012-09-30 08:24 http://forum.msexcel.ru/profiles/0mega-u34319.html На паралельном форуме мне дали одну ссылочку, но самостоятельно я так и не смог оседлать этого конька. Попробуйте , может пригодится http://files.mail.ru/K5N2LV miroed>> Re: Выделение диапазона на соседнем листе по определенному критерию 2012-09-30 09:45 http://forum.msexcel.ru/profiles/miroed-u8926.html Этот макрос не работает так, как требуется. Область выделяется и ее границы по столбцам заданы верно. Но макрос не выбирает для выделения области на листе "01" необходимые строки, номера которых определяются содержимым ячеек столбца "С" листа "00" напротив активной ячейки столбца "D" листа "00". Это содержимое (критерий выбора строки) должно искаться в столбце "А" на листе "01". Строка на листе "01" с таким же значением и будет искомой строкой, в которой необходимо выделить диапазон. KuklP>> Re: Выделение диапазона на соседнем листе по определенному критерию 2012-09-30 10:02 http://forum.msexcel.ru/profiles/kuklp-u39713.html Вы писали: Код: Строка для выделения области на листе 01 выбирается по содержимому столбца С Вот я и выбирал номер строки. А мысли я угадывать не умею.Измените: Код: .Range(.Cells(r(, 0), r(, 3)), .Cells(r(, 0), r(, 4))).Offset(3).Select И будет Вам счастье.
miroed>> Re: Выделение диапазона на соседнем листе по определенному критерию 2012-09-30 10:10 http://forum.msexcel.ru/profiles/miroed-u8926.html Подскажите, пожалуйста. На листе "00" есть активная ячейка. В этой же строке в столбцах расположенных справа от активной ячейки имеется : два номера столбцов и номер строки. Требуется макросом выделить на другом листе "01" диапазон в строке, номер которой указан на листе "00". Ширина выделенного диапазона определяется номерами столбцов, указанных на листе "00". Другими словами : макрос должен "взять" номер нужной строки и номера столбцов справа от активной ячейки на листе "00", зайти на лист "01" и выделить диапазон согласно взятым на листе "00" данным. Я макросы в Экселе не пишу, а "записываю". Потом открываю, смотрю, корректирую, если понадобиться. Поэтому мне надо попроще, понятнее. Что-то такое, похожее на это : Range("R[13]C[11]:R[14]C[12]").Select Или это Range("INDIRECT(ADDRESS(BM101,432,4)):INDIRECT(ADDRESS(BM101,440,4))").Select miroed>> Re: Выделение диапазона на соседнем листе по определенному критерию 2012-09-30 10:23 http://forum.msexcel.ru/profiles/miroed-u8926.html Вы писали: Код: Строка для выделения области на листе 01 выбирается по содержимому столбца С Вот я и выбирал номер строки. А мысли я угадывать не умею.Измените: Код: .Range(.Cells(r(, 0), r(, 3)), .Cells(r(, 0), r(, 4))).Offset(3).Select И будет Вам счастье.Зер гут ! Все работает, красота !!!! Спасибо, хорошего дня ! Dmitr68>> Re: Выделение диапазона на соседнем листе по определенному критерию 2012-09-30 11:45 http://forum.msexcel.ru/profiles/dmitr68-u18737.html Можно и без макроса: vladturbo>> Формат даты предыдущий месяц 2012-09-30 12:54 http://forum.msexcel.ru/profiles/vladturbo-u56826.html Добрый день! Подскажите! Необходимо макросом создавать папку и присваивать ей имя состояшее из даты в формате mmmm.yyyy + текст, однако mmmm - должен быть предыдущим. Т.е. если папка создается в сентябре, то имя ей присваивается август и т.д. Sub Создание_папки() Dim PathToSave As String, FolderName As String, FellPathToSave As String Dim fs As Object PathToSave = "C:\" FolderName = CStr(Format(Now, "mmmm.yyyy") & "Электроэнергия") FellPathToSave = PathToSave & FolderName & "\" Set fs = CreateObject("Scripting.FileSystemObject") If Not fs.FolderExists(FellPathToSave) Then fs.CreateFolder (FellPathToSave) End If End Sub Poltava>> Re: Формат даты предыдущий месяц 2012-09-30 13:15 http://forum.msexcel.ru/profiles/poltava-u39021.html Код: FolderName = CStr(Format(DateAdd("m", -1, Now), "mmmm.yyyy") & "Электроэнергия") vladturbo>> Re: Формат даты предыдущий месяц 2012-09-30 13:20 http://forum.msexcel.ru/profiles/vladturbo-u56826.html Спасибо! vladturbo>> Сохранить книгу EXCEL в папку по условию 2012-09-30 15:45 http://forum.msexcel.ru/profiles/vladturbo-u56826.html Добрый день уважаемые! Необходимо сохранить книгу в папку, при чем, имя этой папки каждый месяц изменяется. Имя папки состоит из названия месяца, года и обозначения, к примеру Август 2012 Электроэнергия. Макросом необходимо сохранять ежемесячно книги в папку, в сентябре в папку август, в октябре в папку сентябрь и т.д. Sub Макрос4() Cells.Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("A1:K48").Select Application.CutCopyMode = False ActiveSheet.PageSetup.PrintArea = "$A$1:$K$48" Range("A1").Select ActiveWorkbook.SaveAs FolderName = (Format(DateAdd("m", -1, Now), "mmmm yyyy") & " Ýëåêòðîýíåðãèÿ") \ "ÊFC.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=Fal... Poltava>> Re: Сохранить книгу EXCEL в папку по условию 2012-09-30 17:21 http://forum.msexcel.ru/profiles/poltava-u39021.html Первое что приходит в голову это проверка на существование папки или файла с заданным именем если настал новый месяц имя поменялось то его не будет и вызываем программу создания если есть значит делать ничего не нужно. Проверить существование можно такой функцией Код: Private Function PathExists(Path As String) As Boolean
On Error Resume Next 'Включаем подавление ошибок GetAttr (Path) 'Пытаемся получить атрибуты обьекта If Err = 0 Then PathExists = True 'Если атрибут получен обьект существкет End Function KuklP>> Re: Сохранить книгу EXCEL в папку по условию 2012-09-30 17:49 http://forum.msexcel.ru/profiles/kuklp-u39713.html В общий модуль: Код: Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Sub www() Dim s$: ActiveSheet.Copy With ActiveSheet .UsedRange.Value = .UsedRange.Value: .PageSetup.PrintArea = "$A$1:$K$48" s = ThisWorkbook.Path & "\" & Format(DateAdd("m", -1, Now), "mmmm_yyyy") & "\Электроэнергия\" MakeSureDirectoryPathExists s: .SaveAs s & "EFC.xls": .Parent.Close End With End Sub vladturbo>> Re: Сохранить книгу EXCEL в папку по условию 2012-09-30 19:11 http://forum.msexcel.ru/profiles/vladturbo-u56826.html В таком случае начинает ругаться на строку MakeSureDirectoryPathExists s: .SaveAs s & "EFC.xls": .Parent.Close пишет sub or function not defined Sub Макрос4() Cells.Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("A1:K48").Select Application.CutCopyMode = False ActiveSheet.PageSetup.PrintArea = "$A$1:$K$48" Range("A1").Select With ActiveSheet .UsedRange.Value = .UsedRange.Value: .PageSetup.PrintArea = "$A$1:$K$48" s = ThisWorkbook.Path & "\" & Format(DateAdd("m", -1, Now), "mmmm_yyyy") & "\Электроэнергия\" MakeSureDirectoryPathExists s: .SaveAs s & "EFC.xls": .Parent.Close End With Range("A1").Select End Sub Poltava>> Re: Сохранить книгу EXCEL в папку по условию 2012-09-30 19:28 http://forum.msexcel.ru/profiles/poltava-u39021.html Скорее всего Макрос4 и MakeSureDirectoryPathExists расположены в разных модулях либо снимите статус Private с процедуры либо поместите в один модуль хотя испытывать негде так что могу ошибаться. KuklP>> Re: Сохранить книгу EXCEL в папку по условию 2012-09-30 19:30 http://forum.msexcel.ru/profiles/kuklp-u39713.html Во-первых, я написал Вам полный текст программы. Зачем Вы напихали туда своего мусора? Она и так делает все, что должна делать Ваша программа. Полный текст того, что я выложил, вставьте в начало общего модуля и запустите Sub www. Какой у Вас эксель? Prist>> Re: как убрать из ячейки определенное слово 2012-09-30 21:30 http://forum.msexcel.ru/profiles/prist-u4859.html Я думаю надо удалить только "IEK_" Выделяете столбец со значениями-Ctrl+H:
Poltava>> Re: Сохранить книгу EXCEL в папку по условию 2012-10-01 23:11 http://forum.msexcel.ru/profiles/poltava-u39021.html Посмотрите этот файл. Немного переделал код от KuklP - теперь нет привязки к С26 (но должно быть не более 1 вызова функции руб на листе ) - имя папки соответствует названию активного листа и дате - имя файла берется из ячейки D14 - в результирующем файле удален список из ячейки D14 - при наличии файла выдает запрос о замене(подкорректировал чтоб не вылетало при отказе) - сохраняет теперь всегда в 2003 офисе, а не в той версии в которой сейчас открыт файл Макрос будет работать для любого листа в книге создавая для каждого соответствующую папку Олег*>> Перенос дат из текстового файла с помощью макроса 2012-10-01 23:14 http://forum.msexcel.ru/profiles/oleg-u24862.html Добрый день! Проблема состоит в следующем. Имеется текстовый файл с датами и прочими данными. По задумке, в Блокноте это все копируется в буфер обмена при помощи "Выделить все" > "Копировать", а потом в Экселе просто нажимаем самодельную кнопку "Вставить" и дальше все делается "по щучьему велению, по моему хотению" Так задумано... Ну в прочем так все и происходит, кроме одного... Даты вставляются криво, хотя в их столбце назначения уже заранее выбран правильный, вроде бы, формат. На самом деле, эта проблема вылезла у меня уже далеко не в первый раз и всегда приходилось устраивать танцы с бубном, чтобы как-нибудь с Экселем договориться. Может быть посоветуете, как грамотно обойти эту проблему? Буду крайне признателен. P.S. Текстовый файл с датами и рабочую книгу с макросом прилагаю. Serge 007>> Re: Перенос дат из текстового файла с помощью макроса 2012-10-01 23:34 http://forum.msexcel.ru/profiles/serge_007-u25260.html Без макросов ЗЫ Можно тоже самое записать макрорекордером ЗЫЗЫ Можно так же настроить свойства (например периодичность обновления), как на этапе импорта, так и позже Poltava>> Re: Сохранить книгу EXCEL в папку по условию 2012-10-01 23:43 http://forum.msexcel.ru/profiles/poltava-u39021.html Только подумал что нужно еще и диапазон печати отвязать от листа. Теперь диапазон печати определяется автоматически Poltava>> Re: Система учета сверхнормативного времени работы в офисе 2012-10-01 23:59 http://forum.msexcel.ru/profiles/poltava-u39021.html 1) Вы лучше вместо картинок файл екселя с формами приложите 2) Со второй вкладкой не совсем понял, что туда выводить и в каком виде Hugo121>> Re: Перенос дат из текстового файла с помощью макроса 2012-10-02 00:14 http://forum.msexcel.ru/profiles/hugo121-u30647.html Код: Option Explicit
Private Sub CommandButton1_Click() Dim a, i& Columns("A:I").ClearContents With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .GetFromClipboard a = Split(.GetText(1), vbNewLine) On Error Resume Next For i = 1 To UBound(a) a(i) = CDate(a(i)) Next Range("A1").Resize(UBound(a), 1) = Application.Transpose(a) End With End Sub Олег*>> Re: Перенос дат из текстового файла с помощью макроса 2012-10-02 00:17 http://forum.msexcel.ru/profiles/oleg-u24862.html Без макросов Спасибо за совет, но это все-таки не совсем то, что мне нужно. Мне нужно именно с помощью макроса. Дело в том, что макрос УЖЕ написан и работает. Большой хороший макрос (целую неделю разрабатывал и отлаживал). Он абсолютно все делает автоматически: вставляет данные из текстового файла в Эксель, преобразует их в удобный для анализа вид, обсчитывает, анализирует, выдает данные в виде таблицы с условным форматированием (для наглядности). И еще собираюсь сделать автоматический вывод диаграммы на основе полученных результатов. И все это делается автоматически. Я (пользователь) по ходу всего процесса только заряжаю текстовый файл в "ствол", а потом нажимаю на две кнопки. Первая "Вставить", вторая - "Обработать". А если без макроса, тогда, во-первых, будет много лишних тормозов, а во-вторых, пройдет определенное время, в течение которого я буду занят другими проблемами, и я просто забуду как ... KuklP>> Re: Перенос дат из текстового файла с помощью макроса 2012-10-02 01:00 http://forum.msexcel.ru/profiles/kuklp-u39713.html ЗЫ Можно тоже самое записать макрорекордером Код: Sub www()
' вместо "H:\Temp\6\Даты.txt" - свой путь. Workbooks.OpenText Filename:="H:\Temp\6\Даты.txt", Origin:=1251, StartRow _ :=1, DataType:=xlDelimited, Tab:=True, FieldInfo:=Array(1, 4) [a1].CurrentRegion.Copy ThisWorkbook.Sheets(1).[a1] ActiveWorkbook.Close 0 End Sub Олег*>> Re: Перенос дат из текстового файла с помощью макроса 2012-10-02 01:13 http://forum.msexcel.ru/profiles/oleg-u24862.html Hugo121 Спасибо, работает как надо!!! Правдо мудрёно очень, надо будет попробовать разобраться что к чему, но факт есть факт - работает. KuklP Спасибо за совет, но это все-таки не совсем то, что нужно. По этому методу надо будет всегда быть привязанным к определенному файлу с одним и тем же именем. А у меня файлы разные и в разных местах. Самое удобное для меня это щелкнуть нужный файл в Тотал Коммандере, потом "Выделить все", потом "Скопировать", ну а дальше уже на кнопки жать внутри Эксельного макроса
Hugo121>> Re: Перенос дат из текстового файла с помощью макроса 2012-10-02 01:19 http://forum.msexcel.ru/profiles/hugo121-u30647.html Есть ещё вариант - в тотале жмакнуть на файле cm_CopyFullNamesToClip, а далее совместить мой код с кодом Сергея Олег*>> Re: Перенос дат из текстового файла с помощью макроса 2012-10-02 01:36 http://forum.msexcel.ru/profiles/oleg-u24862.html Есть ещё вариант - в тотале жмакнуть на файле cm_CopyFullNamesToClip, а далее совместить мой код с кодом Сергея Нет, нет, буду работать по вашему методу. Так мне гораздо удобнее будет. P.S.А кстати, любопытно, что это за знак появляется после прогона? 
anastasiya>> Re: Система учета сверхнормативного времени работы в офисе 2012-10-02 08:33 http://forum.msexcel.ru/profiles/anastasiya-u153476.html на работе нет доступа к интернету, поэтому фото, по второй вкладке: необходимо что-бы при вводе определенного фио выпадала табличка с его наработкой KuklP>> Re: Система учета сверхнормативного времени работы в офисе 2012-10-02 08:53 http://forum.msexcel.ru/profiles/kuklp-u39713.html anastasiya? Вы когда писали сообщения вот это видели: Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит.(Правила форума, п.2)? Не будет файла с примером, значит тема бессмыслена и будет удалена. iKriss>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-10-02 10:45 http://forum.msexcel.ru/profiles/ikriss-u147911.html Понимание постепенно проявляется, но не полностью =) Подскажите, пожалуйста, как привязать сравнение не только по номерам актов и БСО (ячейки листа "Прием актов"), а еще и по ячейке "E1" - "фамилия мастера" iKriss>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-10-02 10:50 http://forum.msexcel.ru/profiles/ikriss-u147911.html И все-таки надо на кнопку сделать макрос. Т.к. изменения происходят по вводу сразу же, в случае ошибки надо лезть в "лог выданных" и править, а так - зашел, вбли номера, проверил, потом нажал "готово" и программа выполнилась. Можно ли просто переписать в первой строчке "Sub кнопка_принять", чтобы он работал не по изменению, а по кнопке? И куда и в каком виде надо дописать еще один критерий? ) Спасибо огромное за Вашу неоценимую помощь!
KuklP>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-10-02 11:12 http://forum.msexcel.ru/profiles/kuklp-u39713.html Никак. У Вас в обоих листах актов мастер один, указан в заголовке. Иначе придется переделывать на них структуру таблиц, добавлять колонки с мастерами. И алгоритм сравнения будет совсем другой. А потом вы придумаете еще какое-нибудь условие? Мне уже жаль впустую потраченного времени... PS Вашим мастерам выдают акты с одинаковыми номерами? Это мягко говоря, странно. iKriss>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-10-02 11:29 http://forum.msexcel.ru/profiles/ikriss-u147911.html Это условие изначально было. ОК, нельзя - так нельзя. Можно ли просто перепривязать на кнопку? Или надо сам макрос переписывать. И время не впустую потрачено, отнюдь! Оба вариант макроса, кои мне тут сделали, будут использованы в дальнейшей работе обязательно! Николай Николаевич>> Re: Помогите разобраться с настройками поиска ( методом Find ) 2012-10-02 11:37 http://forum.msexcel.ru/profiles/agnostic-u1314.html Заменил Find на Match. Мне не помогло. Пример с Match привел. Возможно, неправильно использовал предложенные функции. Пожалуйста, помогите. Dimchiko>> Организация плавающего маркера "сегодняшний день" 2012-10-02 11:50 http://forum.msexcel.ru/profiles/dimchiko-u4609.html Господа! очень надо сделать так, чтобы при открытии книги (или активации листа - не важно) столбик в строке 1 которого стоит сегодняшняя дата - подсвечивался бы (скажем, голубым) цветом (можно подсвечивать только 1-ую ячейку). При этом хотелось бы, чтобы этот столбик (ячейка) был, скажем, 10-м слева при закрепленном первом столбце (как в примере). Надпись "сегодня->>>" как в примере - лишь для примера, суть в цветовой подсветке и постоянном месте на экране при активации листа. KuklP>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-10-02 11:52 http://forum.msexcel.ru/profiles/kuklp-u39713.html Ждем пример с измененной структурой таблиц. iKriss>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-10-02 16:09 http://forum.msexcel.ru/profiles/ikriss-u147911.html эти записи - просто пример цифр. Мастер выбирается из выпадающего списка в ячейке E1, кажется iKriss>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-10-02 16:16 http://forum.msexcel.ru/profiles/ikriss-u147911.html блин, честно говоря, не знаю, как надо написать все это правильно =) вы скажите, в каком виде вам предоставить данные? 0mega>> Макрос. Скопировать строку и поместить в другой столбец 2012-10-02 16:52 http://forum.msexcel.ru/profiles/0mega-u34319.html Доброго времени суток. Напишите, пожалуйста, макрос. Есть информационная строка AE9:AI9 После заполнения строки - вся информация скопировалась в некий "буфер памяти" и оставалась там до ручного удаления или специальной команды После этого строка AE9:AI9 должна обнулиться и могла принять новую информацию Более подробная информация непосредственно в файле ZORRO2005>> Re: График учёта рабочего времени 2012-10-02 18:35 http://forum.msexcel.ru/profiles/zorro2005-u4225.html Кросс: http://www.programmersforum.ru/showthread.php?t=213098 olga>> Re: как убрать из ячейки определенное слово 2012-10-02 22:10 http://forum.msexcel.ru/profiles/olga-u153251.html Спасибо большое за помощь olga>> Как скопировать из ячейки значение, получившееся в результате применения формата 2012-10-02 22:14 http://forum.msexcel.ru/profiles/olga-u153251.html Еще есть одна проблема, буду очень признательна за помощь. Например, в ячейке указано значение 12/120, получившееся в результате применения к числу 12 формата 0"/120", надо скопировать получившееся значение 12/120, когда копируешь и вставляешь спец.в ставкой значение, вставляется цифра 12. Цифры все разные, формат примерно одинаковый. Wasilic>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-10-02 23:09 http://forum.msexcel.ru/profiles/wasilic-u24852.html Чтобы правильно написать макрос, нам необходимо понять саму задачу. Попробую разжевать неясности. 1. № акта и № БСО внесённые в одну строку таблицы листа "Прием актов" - взаимосвязаны или нет? Или они, номера, могут вноситься как придётся? Номера актов сами по себе, а номера БСО сами по себе? Это нужно знать для организации поиска, тоесть, если номера взаимосвязаны то, искать в логе строку с номером акта, БСО и фамилией мастера можно одновременно, точно так же, как записано в форме листа "Прием актов". 2. Если же номера актов и БСО "сами по себе" то к чему тогда привязана сумма? Ведь поиск придется делать раздельно по актам и по БСО. И совпадает ли количество актов и БСО, или может быть разное? 3. Какое примерное количество записей можат быть на листе "Лог..." 0mega>> Re: Организация плавающего маркера "сегодняшний день" 2012-10-02 23:31 http://forum.msexcel.ru/profiles/0mega-u34319.html ...сделать, чтобы всегда столбик с текущей датой был в центре (условно говоря - 10-ый слева).... Сегодня находится в столбце "Т" Олег*>> Re: Перенос дат из текстового файла с помощью макроса 2012-10-03 00:17 http://forum.msexcel.ru/profiles/oleg-u24862.html Ну всё, целый день сегодня пыхтел, весь интернет перелорптил, чтобы разобраться в этом вопросе окончательно. Вроде бы удалось Вариант, предложенный Hugo121, очень хорош, но, как выяснилось, подходит только для работы с текстовым файлом, состоящим только из одних дат, еще точнее, из дат, расположенных в одной колонке. Поэтому мой первоначальный пробный файл Даты.txt был обработан Экселем без проблем, а вот более сложный файл (Даты+Имена.txt), состоящий уже из двух колонок с данными (даты и имена), был обработан неправильно. Разумеется, это можно как-то подкорректировать, но там такие темные дебри (Split, Transpose...), что туда и лезть-то не хочется Поэтому я решил пойти по другому пути В варианте Hugo121 мы вытаскиваем данные из буфера обмена, потом их обрабатываем, а затем сами вставляем в рабочую книгу. А что если нам поступить похитрее, - подумал я, и меня озарило Одним словом, мы теперь поступаем так же как описано выше, но только до опр... Wasilic>> Re: Организация плавающего маркера "сегодняшний день" 2012-10-03 00:32 http://forum.msexcel.ru/profiles/wasilic-u24852.html Столбец и так получался по середине. Ну уж если должен быть 10-м, то так. Serge 007>> Re: Перенос дат из текстового файла с помощью макроса 2012-10-03 00:45 http://forum.msexcel.ru/profiles/serge_007-u25260.html Спасибо за совет, но это все-таки не совсем то, что мне нужно. Мне нужно именно с помощью макроса. Олег*, почему Вы так уверены что макросы - это панацея?А если без макроса, тогда, во-первых, будет много лишних тормозов, а во-вторых, пройдет определенное время, в течение которого я буду занят другими проблемами, и я просто забуду как и что надо делать для получения конечного результата. По большому счёту, макросы нужны только в тех ситуациях, когда с задачей не справляется сам Excel. В Вашем случае нет никаких причин применять макросы. И "тормоза" будут (особенно на больших массивах) именно из-за применения VBA. И забыть ничего не получится, т.к. делать руками ничего не надо будетОн абсолютно все делает автоматически: вставляет данные из текстового ...
Hugo121>> Re: Перенос дат из текстового файла с помощью макроса 2012-10-03 00:57 http://forum.msexcel.ru/profiles/hugo121-u30647.html Чуть подсократил: Код: Private Sub CommandButton1_Click()
Columns("A:I").Select Selection.ClearContents Range("A1").Select 'Извлекаем текст из буфера обмена. With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .GetFromClipboard 'Обработанный текст возвращаем обратно в буфер обмена. .SetText Replace(.GetText, "/", ".") .PutInClipboard End With 'Ну а теперь доверимся советам макрорекордера: On Error GoTo ВыводСообщения Range("A1").Select ActiveSheet.PasteSpecial Format:="Текст в кодировке Unicode", Link:=False, _ DisplayAsIcon:=False On Error GoTo 0 Exit Sub ВыводСообщения: MsgBox "Ошибка копирования из буфера обмена!" End Sub ZORRO2005>> Re: Как скопировать из ячейки значение, получившееся в результате применения формата 2012-10-03 02:01 http://forum.msexcel.ru/profiles/zorro2005-u4225.html olga, во вложении видео, как привести значения с форматом 0"/120" к нормальному виду. Затем эти значения просто копируете. KuklP>> Re: Перенос дат из текстового файла с помощью макроса 2012-10-03 09:14 http://forum.msexcel.ru/profiles/kuklp-u39713.html Имхо проще и гораздо надежней: Код: Sub www() Dim s ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path s = Application.GetOpenFilename("Text Files (*.txt),*.txt", , "Open textfile", , 0) If s = False Then Exit Sub Workbooks.OpenText s, Origin:=1251, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ Tab:=True, FieldInfo:=Array(Array(1, 4), Array(2, 1)) [a1].CurrentRegion.Copy ThisWorkbook.Sheets(1).[a1] ActiveWorkbook.Close 0 End Sub И никаких танцев с бубнами. ambler>> Проблема с датами 2012-10-03 09:46 http://forum.msexcel.ru/profiles/ambler-u151399.html Добрый день! Прислали таблицу с датами... 500-600 строк, все даты сделаны по тупому типа 19-23.11.12. Внимание вопрос: Можно как то автоматизировать процесс, чтобы вручную не перебивать все 600 строк. Надо прибавить 3 дня к конечному сроку и еще 1 день после. Т.е.: Было 19-23.11.12 Стало: 26-27.11.12. Пока сам попытаюсь разобраться. __Nadya__>> Соровка в сводной таблице 2012-10-03 10:18 http://forum.msexcel.ru/profiles/nadya-u139326.html Добрый день! Подскажите, как при построении сводной таблице отменить всю сортировку, для того чтобы данные выводились в томже порядке как и в изначальной таблице. Во вложении пример: нужно чтоб участки вставали в сводной в том же порядке как и выше. NKjulanoff>> Re: Как раскинуть невязку в углы... 2012-10-03 10:39 http://forum.msexcel.ru/profiles/nkjulanoff-u153552.html Я хочу что бы значение ячейки D16 автоматом распределялось в ячейки Е11, Е12, Е13, если D16 делится на 3, то в Е11, Е12, Е13 одинаковые значения, сумма которых составляет D16, все гладко. Когда нет - то получается как писал выше. ShAM>> Re: Проблема с датами 2012-10-03 11:41 http://forum.msexcel.ru/profiles/sham-u106530.html Может, так? ambler>> Re: Проблема с датами 2012-10-03 11:44 http://forum.msexcel.ru/profiles/ambler-u151399.html Может, так? Спасибо, гениально
Наталья>> Re: Суммирование значений колонки на предмет поиска суммы чисел, равной "x" 2012-10-03 11:45 http://forum.msexcel.ru/profiles/natalya-u153550.html А подскажите, пожалуйста, как сделать так, чтобы при использовании SHBruteSum.bas и суммировании выводились все числа, которые могли дать эту сумму и н.п. "+123,45"... т.е. если какое-то число не вошло полностью в требуемую сумму, а от него используется только "хвостик"? И еще, попробовала воспользоваться усовершенствованным вариантом BruteAndGreedyAlg, но там выдается ошибка при попытке задействовать большие числа. KuklP>> Re: Проблема с датами 2012-10-03 11:50 http://forum.msexcel.ru/profiles/kuklp-u39713.html Работает с высделенным диапазоном: Код: Public Sub www()
Dim c As Range, d As Date For Each c In Selection.Cells d = Mid$(c.Value, InStr(1, c, "-") + 1) c = Day(d + 3) & "-" & d + 4 Next End Sub ambler>> Re: Проблема с датами 2012-10-03 11:52 http://forum.msexcel.ru/profiles/ambler-u151399.html Работает с высделенным диапазоном: Код: Public Sub www() Dim c As Range, d As Date For Each c In Selection.Cells d = Mid$(c.Value, InStr(1, c, "-") + 1) c = Day(d + 3) & "-" & d + 4 Next End Sub И вам спасибо огромное
kengy>> Re: Суммирование значений колонки на предмет поиска суммы чисел, равной "x" 2012-10-03 12:10 http://forum.msexcel.ru/profiles/kengy-u153512.html Добрый день. Возможно ли переделать макрос под немного измененную задачу? Нужно чтобы маркос искал комбинации значений, которые в сумме равны заданному числу. Но! только в рамках определенного покупателя (см. вложение). Также нужно что бы макрос как-то выделял те позиции сумма которых равны заданному числу, цветом например, или символом, что б можно было бы фильтром быстро их найти. Спасибо iKriss>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-10-03 13:47 http://forum.msexcel.ru/profiles/ikriss-u147911.html Чтобы правильно написать макрос, нам необходимо понять саму задачу.
Попробую разжевать неясности. 1. № акта и № БСО внесённые в одну строку таблицы листа "Прием актов" - взаимосвязаны или нет? Или они, номера, могут вноситься как придётся? Номера актов сами по себе, а номера БСО сами по себе? Это нужно знать для организации поиска, тоесть, если номера взаимосвязаны то, искать в логе строку с номером акта, БСО и фамилией мастера можно одновременно, точно так же, как записано в форме листа "Прием актов". - нет, не связаны. Обычно выдаются и сдаются вместе, т.е. выдаются акт №1199 и БСО №467899, и сдаются так же, но иногда сдается только один БСО без акта, или акт без БСО. 2. Если же номера актов и БСО "сами по себе" то к чему тогда привязана сумма? Ведь поиск придется делать раздельно по актам и по БСО. И совпадает ли количество актов и БСО, или может быть разное? Сумма всегда привязана... iKriss>> Re: перенос данных диапазоном, помогите с синтаксисом 2012-10-03 15:51 http://forum.msexcel.ru/profiles/ikriss-u147911.html Идеально =)) Спасибо большое! ZORRO2005>> Re: Соровка в сводной таблице 2012-10-03 15:53 http://forum.msexcel.ru/profiles/zorro2005-u4225.html А про первый вариант немного не поняла - как его сделать и подходит ли он. http://office.microsoft.com/ru-ru/excel-help/HA010242688.aspx#BM4 Есть еще вариант добавить столбец в исходную таблицу(см. вложение на 2 листах) . Vetebeshnik>> Округление параметра до ближайшего заданного большего и построение графика 2012-10-03 16:20 http://forum.msexcel.ru/profiles/vetebeshnik-u153184.html Доброго времени суток! Товарищи ветераны помогите неопытному юзеру!  Проблема 1:имеется таблица данных с задаваемыми параметрами длины (мм) и расхода (м3/с). Необходимо по ним определить коэффициент из таблицы. Проблема решается функцией "индекс" - это мне понятно, но как округлять значения до заданного: - длины до 50, 100, 200, 300, 400....(необхимо принимать ближайшее большее) - расхода до 0,5, 1,0, 1,5,.....(необходимо принимать ближайшее большее) а как быть если нужно ближайшее меньшее? Проблема 2: Имеется таблица данных для оси Х и оси У. По ней производится постоение графика. Одновременно на этом графике необходимо постоить график характеристики из справочника (т.е. есть только его графический вариант, математической зависимости для постоения графика характеристики нет). Необходимо найти точку пересечения первого и второго графиков и отложить значения точки пересечения по по осям. Спасибо огромное зараннее! Dimchiko>> Re: Организация плавающего маркера "сегодняшний день" 2012-10-03 17:13 http://forum.msexcel.ru/profiles/dimchiko-u4609.html вот теперь то, что надо!!!! СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!! Michael Holbrook>> Выбор большего значения по индексу 2012-10-03 17:21 http://forum.msexcel.ru/profiles/michael_holbrook-u149447.html Всем привет! 2 дня борюсь с непосильной для себя задачей. Состоит она в том, что у меня есть 2 ячейки, в каждой из которых находится какое-то текстовое значение. Эти текстовые значения у меня индексированы. Необходимо на основе их индексов вставить в ячейку текстовое значение, у которого индекс выше. В моем примере это ячейки L6 и M6. В ячейках V10 и W10 я нахожу соответствующие им индексы из таблицы AN7:AO43. Затем в ячейке U10 выбираю бОльшее значение из V10 и W10. И в конце на основе большего значения ищу по индексу соответствующий ему текст, который должен записаться в ячейку L6. Как видно у меня, в ячейке M6 находится бОльшее значение и оно должно автоматом переместиться в L6, но это не происходит. Заранее извиняюсь за большое количество операций. Возможно можно найти способ проще, но пока ничего не выходит. Сорри, что прикрепил архив, файл весит 3 мб. chombi>> Re: Округление параметра до ближайшего заданного большего и построение графика 2012-10-03 17:47 http://forum.msexcel.ru/profiles/chombi-u127831.html Для первого вопроса =ИНДЕКС(C5:Q20;ПОИСКПОЗ(E24;A5:A20;1);ПОИСКПОЗ(E23;C3:Q3;1)) (Для округления в большую сторону заменить 1 на -1) ZORRO2005>> Re: Выбор большего значения по индексу 2012-10-03 18:22 http://forum.msexcel.ru/profiles/zorro2005-u4225.html Думаю ошибка в ПОИСКПОЗ() L6: Код: =ПОИСКПОЗ(P6;$AA$28:$AA$43) Разве нужно получить 8, а не 9?
Vetebeshnik>> Re: Округление параметра до ближайшего заданного большего и построение графика 2012-10-03 19:04 http://forum.msexcel.ru/profiles/vetebeshnik-u153184.html Ув. chombi! Предложенный вариант не дает нужного результата. При +1 выдает 1,21(должно быть 1,39), а при -1 - выдает н/д. Возможно я что-то не понял. srp>> вычитание дат и времени 2012-10-03 19:12 http://forum.msexcel.ru/profiles/srp-u70948.html Господа, добрый вечер. есть четыре поля: Дата Начала, Время Начала, Дата Окончания, Время Окончания. Необходимо в пятом поле получить длительность (Дата/Время Окончания - Дата/Время Начала) Помогите, пожал. MCH>> Re: Округление параметра до ближайшего заданного большего и построение графика 2012-10-03 19:30 http://forum.msexcel.ru/profiles/mch-u48782.html Для певого вопроса и по имеющимся данным, без изменения исходной таблицы: Код: =ИНДЕКС(C5:Q20;МАКС(ОКРУГЛВВЕРХ(E24/0,5;);1);МАКС(ОКРУГЛВВЕРХ(E23/100;)+(E23>50);1))
MCH>> Re: вычитание дат и времени 2012-10-03 19:31 http://forum.msexcel.ru/profiles/mch-u48782.html Код: =(C2+D2-A2-B2)*24 Олег*>> Re: Перенос дат из текстового файла с помощью макроса 2012-10-03 23:10 http://forum.msexcel.ru/profiles/oleg-u24862.html Serge 007 Наверно, истина как всегда лежит где-то посередине KuklP И все-таки мне удобнее именно через буфер обмена эту проблему решать. Все равно ведь надо текстовый файл этот перед употреблением открыть в Блокноте и посмотреть, что там внутри (тот ли это файл, ошибки может какие-нибудь сразу в глаза бросятся и т.п.). Ну а уж коль скоро он уже открыт, то там уже почти автоматом напрашивается "Выделить все" > "Копировать". Наверно, это дело вкуса и привычки, но для меня удобно именно так.Hugo121 Спасибо! Сейчас попробовал этот вариант. Отлично работает. Но, правда, задержку вставить все-таки все равно пришлось. Может от компа зависит. У меня старенький. Эта самая Replace удобная штука, должен признать. А я о ней как-то и не знал. Все по-старинке пользуюсь Mid и InStr Беру ее на вооружение А то что можно не два раза вызывать GetObject, а только один, я догадывался, и сначала так и сделал, но начались глюки, тогда я решил... Vetebeshnik>> Re: Округление параметра до ближайшего заданного большего и построение графика 2012-10-04 07:03 http://forum.msexcel.ru/profiles/vetebeshnik-u153184.html MCH - спасибо огромное! все работает! chombi>> Re: Округление параметра до ближайшего заданного большего и построение графика 2012-10-04 08:37 http://forum.msexcel.ru/profiles/chombi-u127831.html Ув. chombi! Предложенный вариант не дает нужного результата. При +1 выдает 1,21(должно быть 1,39), а при -1 - выдает н/д. Возможно я что-то не понял. Упс, не учел, что диапазон не отсортирован по убыванию. В таком виде -1 не будет работать.
Sofim>> Как в текстовой строке убрать повторы? 2012-10-04 10:18 http://forum.msexcel.ru/profiles/sofim-u153579.html Добрый день! Дано, например: А,Агп,Арб,Ббю,Бюд,Г,Д,Зсп,Иэг,Кдр,Пап,Пац,Пр,Сав,Сад,Сау,Сав,Сзо,Смо,Спв,Сск,Ссо,Стм,Ф Нужно убрать из строки повторяющиеся значения (в данном случае "Сав") Результат нужно поместить в виде текста в произвольную ячейку. Заранее спасибо. KuklP>> Re: Как в текстовой строке убрать повторы? 2012-10-04 10:32 http://forum.msexcel.ru/profiles/kuklp-u39713.html Sofim, читайте Правила. Где дано, куда разместить... Тут гадать должны? rienfer>> Задание СУММЕСЛИ с плавающими границами диапазонов. 2012-10-04 11:13 http://forum.msexcel.ru/profiles/rienfer-u153610.html Добрый день. Помогите, пожалуйста, правильно прописать формулу суммирования. Суть формулы в следующем: есть некие разделители данных в столбцах( в столбике M:M - инд, в столбике L:L - списать, номера строк у разделителей одинаковые). Формула должна искать все ячейки с определенным текстом (расход[[#Эта строка];[индекс]]) в столбике M:M начиная с разделителя и суммировать соответствующее этим ячейкам значения в столбике L:L( опять же начиная с разделителя). Исходя из логики написала вот так: СУММЕСЛИ((АДРЕС(ПОИСКПОЗ("инд";[индекс];0)+1;13;2)):M6000;расход[[#Эта строка];[индекс]];(АДРЕС(ПОИСКПОЗ("списать";расход[количество];0)+1;12;2)):L6000) Однако excel активно ругается на формулу. Буду рада, если подскажите, как правильно преобразовать формулу или как иначе можно решить проблему. Заранее спасибо. Sofim>> Re: Как в текстовой строке убрать повторы? 2012-10-04 11:55 http://forum.msexcel.ru/profiles/sofim-u153579.html Вот файл пример к моему вопросу... cheshiki1>> Re: Задание СУММЕСЛИ с плавающими границами диапазонов. 2012-10-04 12:23 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html ф-ция адрес работает в сцепке с ДВССЫЛ - ДВССЫЛ(АДРЕС(.....)) но это не лучший вариант. Опишите суть того что вы хотите посчитать. По предыдущему посту чет не очень понял. KuklP>> Re: Как в текстовой строке убрать повторы? 2012-10-04 12:23 http://forum.msexcel.ru/profiles/kuklp-u39713.html Код: Public Sub www()
Dim c As Range, s, a, i&, j a = [b3].CurrentRegion With CreateObject("scripting.dictionary") For i = 1 To UBound(a) For Each s In Split(a(i, 1), ",") .Item(s) = "" Next a(i, 1) = Join(.keys, ","): .RemoveAll Next End With [d3].Resize(UBound(a)) = a End Sub На сегодня все. До встречи на следующей неделе. |
| В избранное | ||
