Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

sergo44441>> Re: Может кто-нибудь подскажет?


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

Выпуск 15
от 2012-10-05

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

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

Основные разделы сайта
Статьи
Форум

Новости сайта в формате RSS
Новые сообщения форума в формате RSS
Читать в Яндекс.Ленте

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

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

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

Рассылки Subscribe.Ru
Православные:
Ежедневные библейские чтения
Смоленский календарь
Для выздоравливающих алкоголиков и наркоманов
Книга "День за днем"
Книга "24 часа в сутки"
Ежедневные размышления анонимного алкоголика
Самообразование:
"Профессиональные приемы работы в Microsoft Excel"

Наши сайты

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

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

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

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

Наши друзья

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

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

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

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



sergo44441>> Re: Может кто-нибудь подскажет?
2012-09-26 21:36 http://forum.msexcel.ru/profiles/sergo44441-u3995.html
Пожалуй, так. Проверьте на всякий пожарный еще раз


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_Реле РЭК77/4(LY4) 10А 24В АC ИЭК_(20/300) .........
Надо убрать слово ИЭК из ячеек, как это можно безболезненно сделать.
Если IEK_ всегда находится  в начале  тогда
Код:
=ПСТР(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:
  • Найти: IEK_
  • Заменить на: оставляем поле пустым
  • Жмем кнопочку "Параметры" и снимаем галочку с "Ячейка целиком" если она установлена
  • Заменить все.


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


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


В избранное