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

Форум по Microsoft Excel

  Все выпуски  

Re: Сравнение 2-х колонок и удаление НЕодинаковых значений


Форум по Microsoft Excel

Выпуск 39
от 2010-10-07

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

Рассылка сайта "Профессиональные приемы работы в 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".


Re: Сравнение 2-х колонок и удаление НЕодинаковых значений
2010-09-30 07:53
спасибо,парни.выручили

Re: Сосчитать цифры а не слова. Сколько цифр в диапазоне?
2010-09-30 10:58
спасибо буду пробывать

Re: Нужно поменять местами
2010-09-30 11:18
А про include можно более подробно? у меня там список страниц, которые мы исключаем из меню. Как можно им воспользоваться, чтобы местами поменять? Извините, если вопросы идиотские, просто сколько где ни искала, так ответ и не нашла, а очень надо!

=====...

Прерывание макроса
2010-09-30 11:23
Я задумал написать что-то вроде скринсэйвера в XL. Меняющиеся узоры. Можно ли назначить клавишу или сочетание клавиш, которые прерывали бы выполнение макроса?

Re: Как соединять несколько файлов в один автоматически
2010-09-30 11:24
Один ответ:
Вполне вероятно, что возможно.

Выложите пример файла от филиала и файла отчета - тогда можно будет думать над решением.

Re: простое суммирование диапозона ячеек в столбце на VBA
2010-09-30 11:33
спасибо! Заработало в обоих случаях! Только...опять вопрос!
nilem - почему то, после подсчета и сбора данных - значения в некоторых(именно в некоторых) ячейках выводятся в зелеными треуголниками в углу ячейки, где предлагается преобразовать "в число". ...

Re: простое суммирование диапозона ячеек в столбце на VBA
2010-09-30 11:55
Выделяем пустую ячейку,
копируем,
выделяем наш диапазон,
спецвставка - сложить.

Re: Суммирование ячеек пo диапазону дат
2010-09-30 13:47
Всем большое спасибо!

Re: Подскажите про метку в ячейке
2010-09-30 13:58
Спасибо!!!

определение цвета
2010-09-30 14:00
Есть ли какая-то функция, которая выдает номер цвета заливки ячейки?
Например, я залил ячейку болотным таким цветом
    Range("F8").Select
    With Selection.Interior
        .ColorIndex = 43
        .Pattern = xlSolid
    End With
А в другом макросе м...

Re: простое суммирование диапозона ячеек в столбце на VBA
2010-09-30 14:04
Положите кусок файла и текст макроса

Re: определение цвета
2010-09-30 14:07
nnn=Range("F8").Interior.ColorIndex

Re: Сосчитать цифры а не слова. Сколько цифр в диапазоне?
2010-09-30 17:11
По первой формуле он не считает ячейки в которых содержится 2 и более числа. То есть он выдал мне 7, а одну ячейку не посчитал вовсе в которой содержится 6 чисел.
По второй формуле он считает, но! Но вот в ячейке содержится 6 (3 из них одинаковые) цифр...

"Нестандартное" подчеркивание данных.
2010-09-30 17:31
Добрый вечер ,вобщем стоит передомной задача ,сил нет уж думать) ,а с виду все просто :
нужно чтобы в зависимости от результата в ячейке А1 ,данные в ячейке А2 (зависят от другого результата) ,почкеркивались 6-ю разными способами ,а именно вот так :
[i...

Re: Создание своего "узора" в excel (2007-2010)
2010-09-30 17:33

Может, есть другие способы/варианты решения?!
прошу сюда http://forum.msexcel.ru/microsoft_excel/nestandartnoe_podcherkivanie_dannyh-t4125.0.html ,заранее извиняйт...

Мигающие напоминания нужно создать.
2010-09-30 18:01
Добрый день подскажите как быть. Есть таблица договоров с датами окончания срока действия. Необходимо, что бы истекающие сегодня договора мигали красным цветом и не прекращали мигать до изменения даты на новую (должны мигать ячейки с датами).
Заранее ...

Re: 2 задания
2010-09-30 19:25
а можно более детально обьяснить что и к чему в первом задании... что там за формула??

Re: Нужно поменять местами
2010-09-30 21:58
Без примера трудно понять, что имеется ввиду, выложите фрагментик

Re: Мигающие напоминания нужно создать.
2010-09-30 22:37
Доброго времени суток
Если и можно заставить мигать ячейки, то только через макрос. здесь я пасс
Если Вас устроит простое изменение цвета (не мигающее), тогда УФ вам в помощь

как обработать несколько прайс-листов со схожими данными?
2010-09-30 22:53
Доброго времени суток!
Дело в том, что мне приходится обрабатывать несколько прайс-листов с одними и теми же товарами от разных поставщиков и выбирать лучшую цену. Данные из рабочей базы об остатках товара на складах и средней скорости продаж в единица...

помогите пожалуйста сделать график
2010-10-01 00:22
вот данные , просто я в excel полный ноль. Очень нужна ваша помощь. Заранее спасибо.

Нужно из большого столбца вынуть ячейки с определенным словом (помогите, плиз)
2010-10-01 01:42
Здравствуйте.

У меня есть столбец ячеек - 200 000 примерно. В этих ячейках в 2-3 тысячах встречается определенной слово. Мне нужно как-то выдернуть ячейки с этим определенным словом, или же удалить все остальные.

Найти то я их могу нажатием CTRL+F, но ...

Re: помогите пожалуйста сделать график
2010-10-01 02:09
Нарисовал:

Сделать выборку из множества файлов по дате
2010-10-01 02:43
Уважаемые программисты можно ли Вам задать вопрос следующего содержания:
у меня есть каталог ексель книг с двумя страницами день и ночь, эти книги представляют собой суточные рапорта проверки параметров работы скважин, на листе имеються колонки: номер ...

Re: Нужно из большого столбца вынуть ячейки с определенным словом (помогите, плиз)
2010-10-01 02:57
а файл есть?

Re: Сосчитать цифры а не слова. Сколько цифр в диапазоне?
2010-10-01 05:59
up

Re: Загадочный макрос!
2010-10-01 07:29
Доброго времени суток
А насколько макрос является обязательным условием ?
Если без макроса - тогда так:
=ПСТР(A1;1;1)
=ПСТР(A1;3;1)
=ПСТР(A1;5;3)

Как вычеслить время в промежутке двух разных датах.
2010-10-01 08:06
 :Улыбка Мы руками все забиваем. Еслибы был бы формула что бы не писали сами. Образец прилагается. Мастера помогите


И еще сделать надо чтобы общий итог тоже учитывался 11 и 13 столбцы 

Re: Как вычеслить время в промежутке двух разных датах.
2010-10-01 09:04
Так что ли?

Как поменять оси в сводной диаграмме (Ex2003)
2010-10-01 09:10
Подскажите,пожалуйста, как поменять оси в сводной диаграмме. По умолчанию в диаграмме отображается верхняя строка по оси Y, а левый столбец по оси X. Хочу , чтобы верхняя строка сводной таблицы отображалась по оси X, а левый столбец по оси Y, но при эт...

Re: Бюджет с помощю сводных таблиц Excel
2010-10-01 09:55
Ой, кажется сама нашла Крутой Добавила в сводной таблице в область "Фильтр отчета" "период"(один из столбцов исходной таблицы). Красота!!! Улыбка

Re: Как поменять оси в сводной диаграмме (Ex2003)
2010-10-01 09:57
ну так на том форруме в этой теме так никто ничего и не придумал для решения этой проблемы, думал может здесь кто-нибудь знает

Re: Как поменять оси в сводной диаграмме (Ex2003)
2010-10-01 10:01

ну так на том форруме в этой теме так никто ничего и не придумал для решения этой проблемы, думал может здесь кто-нибудь знает
Цитировать
...Если в самой диаграмме по...

Re: Как вычеслить время в промежутке двух разных датах.
2010-10-01 10:01
Сергей спасибо Вам большое Вы мне очень помогли.

Все работает как надо.  Улыбка

Re: Мигающие напоминания нужно создать.
2010-10-01 10:04
ой, да сорри. я не заметил вложение. Ну в общем там не так немного. Нужно что бы выделение не пропадало после наступления следующего дня т.е. сегодня 1 октября выделено, а вот 30 сентября уже выделение пропало. Да и они все же не мигают, ну да ладно.

Re: Нужна сквозная нумерация страниц на 62-х листах в Excel 2007
2010-10-01 12:30
Вчера столкнулась с подобной задачей - распечатать отчет (несколько листов Excel с кучей страниц) со сквозной нумерацией.
Решение такое - стандартными средствами, без макросов:
В настройках печати:
Excel 2007 - кн.Офис - Печать - Печать, в разделе "Вы...

вычисление формул = "Вручную", с помощью макроса
2010-10-01 13:34
всем привет!

можно ли с помощью макроса, заблокировать в файле автоматическое вычисление формул.
если это делать через настройки, то получается что распространяется на все excel файлы, а мне необходимо только на 1.

заранее спасибо .

Re: вычисление формул = "Вручную", с помощью макроса
2010-10-01 13:54
В модуле книги положите

Код:
Private Sub Workbook_Activate()
Application.Calculation = xlCalculationManual
End Sub

Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationAutomatic
End Sub

Re: Расположение UserForm
2010-10-01 13:56
 подписи по оси за данные, в этом
случае необходимо удалить ненужный ряд данных (выбрать ряд из списка
«Ряд» и нажать на кнопку «Удалить»). Microsoft Excel позволяет добав-
лять ряды данных (кнопка «Добавить») для диаграммы с любого листа
книги из любо...

давно нет мониторов
2010-10-01 13:57
Shocker.Pro, извините Вы не забыли, что есть три календаря на вопрос зачем поясняю, что у пользователей давно нет мониторов 15 дюймов по диагонали, то есть позволяет видеть три календаря сразу. Это чтобы не делать например если сегодна 1 число то напри...

Re: вычисление формул = "Вручную", с помощью макроса
2010-10-01 15:40
Вложил в
 Ответ #1 : Сегодня в 13:54:58

Re: "Нестандартное" подчеркивание данных.
2010-10-01 15:40

Как Вы задали 5-ть условий для УФ ?
0mega, по скрину видно что у mendisabal 2007 Эксель. А в нём гораздо больше пяти условий для УФ Улыбка

Re: "Нестандартное" подчеркивание данных.
2010-10-01 15:48
да да ,в 2003м у мну так неполучалось ,и условий ,кстатьи, 6!

Re: вычисление формул = "Вручную", с помощью макроса
2010-10-01 15:53
работает в примере )

помоги пжл соеденить с моим файлом, просто у меня там уже есть макрос, чет они мешают друг другу, не получается их соеденить.

мой имеющийся макрос:
[code]Private Sub Workbook_Open()
    Dim cbBar As CommandBar
    With Application
...

Re: вычисление формул = "Вручную", с помощью макроса
2010-10-01 16:14
Application.Calculation = xlCalculationManual
кладем в Private Sub Workbook_Open()

Application.Calculation = xlCalculationAutomatic
в Private Sub Workbook_BeforeClose(Cancel As Boolean)

и оставляем оба моих (уж до кучи).
Если не получится - кладите фай...

Re: Сделать выборку из множества файлов по дате
2010-10-01 20:09
Сделайте шапку выходной таблицы, а то непонятно, какие данные туда подставлять

Макрос с циклом для формирования массива с данными
2010-10-01 20:14
Глобальная цель - это многокритериальная оптимизация математической модели, которая осуществляется путем поиска решения, но некоторые критерии не непрерывны, а имеют массивы, кроме того, ограничения так же представлены в виде массивов. Нужно сделать ма...

Re: как обработать несколько прайс-листов со схожими данными?
2010-10-01 20:15
для первой формулы, наверное так если(скорость продаж (наверное ед товара в день)*число дней в расчете-текущие остатки<=0;0;скорость продаж (наверное ед товара в день)*число дней в расчете-текущие остатки)
для второго нужны пояснения и примеры

Re: Макрос с циклом для формирования массива с данными
2010-10-01 20:20
For i=1 to 10
cells(4+i,4).value=cells(2+i,2).value
next i

Re: как обработать несколько прайс-листов со схожими данными?
2010-10-01 20:59
Высылаете свои прайсы на 123@icqrobot.ru и в обмен на денежные знаки получаете качественно сделанную работу Улыбка

Re: &quot;Нестандартное&quot; подчеркивание данных.
2010-10-01 22:13
мда  :'( :'( :'( ,радость моя была совсем недолгой  Злой Злой Злой ,вы представляете ,в формате можно так :

а в "условном форматировании" ТОЛСТОЙ ЛИНИИ НЕТ !!!  Злой :'( Злой :'( Злой :'(
[img]h...

связать ячейки и диапазоны? (помогите составить формулу)
2010-10-02 03:39
Набросал пример (не могу выложить оригинал таблиц)
вот скриншот:


Вложение с этим же примером.

Помогите составить формулу, пожалуйста.

если глюк с вложением:
http://depositfiles.com/fil...

Re: связать ячейки и диапазоны? (помогите составить формулу)
2010-10-02 03:46
allexxis
Вы пример в фотошопе набрасывали?
Отвечающим решать там же?

Re: связать ячейки и диапазоны? (помогите составить формулу)
2010-10-02 03:47

allexxis
Вы пример в фотошопе набрасывали?
Отвечающим решать там же?

странно, Вам не видно вложение?  В замешательстве

Re: связать ячейки и диапазоны? (помогите составить формулу)
2010-10-02 03:58
Виноват, увидел  Улыбка
Вопрос:
Почему знач1*2+знач4*2, а не знач1*2+знач4*5?

Re: связать ячейки и диапазоны? (помогите составить формулу)
2010-10-02 04:16

Виноват, увидел  Улыбка
Вопрос:
Почему знач1*2+знач4*2, а не знач1*2+знач4*5?

Вы абсолютно правы. Переделаю сейчас пример. Спешил...

Re: связать ячейки и диапазоны? (помогите составить формулу)
2010-10-02 04:38
Уже не нужно, смотрим вложение.

Re: связать ячейки и диапазоны? (помогите составить формулу)
2010-10-02 05:25

Уже не нужно, смотрим вложение.

Огромное спасибо!

diovan hctz 160
2010-10-02 08:07
buy acai without prescription , green laser pointer online relafen daily , norvasc grapefruit [url=http://posterous.com/peo...

Re: Мигающие напоминания нужно создать.
2010-10-02 11:40
Вот образец мигалки от Юрий М в соавторстве со ZVI.

Re: Сделать выборку из множества файлов по дате
2010-10-02 13:30
Вот для примера. На листе "Дни" обновляем список имеющихся файлов, потом на листе "Главная" выбираем даты "С" и "По", а также День/Ночь и получаем данные из файлов.
В исходных файлах почти все числовые данные сохранены как текст, поэтому
и в выходной т...

Re: Сделать выборку из множества файлов по дате
2010-10-02 14:04
Ну и мой вариант.
Чет у меня в файле  nilem ошибки выдает на строках:
    .Add Type:=xlValidateList, Formula1:="=" & adr
в модуле 1 и
Range("A5").Resize(k, 10).Value = x
в модуле 2

Re: Сделать выборку из множества файлов по дате
2010-10-02 18:13

Чет у меня в файле  nilem ошибки выдает на строках:
    .Add Type:=xlValidateList, Formula1:="=" & adr
в модуле 1 и
Range("A5").Resize(k, 10).Value = x
в модуле 2
Опять огр...

Re: Вставка в ячейку значения из созданной таблицы
2010-10-02 23:08
Друзья, снова нужна ваша помощь. В продолжении этой темы. Всё, что вы посоветовали сделал, есть ещё одна  просьба.  При вводе значения в ячейку в другой ячейке появляется искомое значение к примеру по формуле =ИНДЕКС(Лист5!$B$1:$B$153;ПОИСКПОЗ(F1...

Re: Вставка в ячейку значения из созданной таблицы
2010-10-02 23:35
Ну дык так и писать:
=ЕСЛИ(ИНДЕКС(Лист5!$B$1:$B$153;ПОИСКПОЗ(F13;Лист5!$A1:$A153;0))>100;ОКРУГЛ(ИНДЕКС(Лист5!$B$1:$B$153;ПОИСКПОЗ(F13;Лист5!$A1:$A153;0)););ИНДЕКС(Лист5!$B$1:$B$153;ПОИСКПОЗ(F13;Лист5!$A1:$A153;0)))

Re: &quot;Нестандартное&quot; подчеркивание данных.
2010-10-03 01:52
mendisabal,
а может схитрить и сделать не с помощью линий, а с помощью высоты залитых ячеек.
См. вложение

Re: Сосчитать цифры а не слова. Сколько цифр в диапазоне?
2010-10-03 02:03
Serge 007,
я этого "аппера" еще выше раскусил.

Re: Сделать выборку из множества файлов по дате
2010-10-03 06:45

Опять ограничения 2003-го. Теперь все на одном листе.
Николай, вроде автору нужны данные по конкретной скважине, указанной в А7:"мне это необходимо для того чтобы я потом м...

Re: &quot;Нестандартное&quot; подчеркивание данных.
2010-10-03 11:21
вы правы ,можно попробовать ,только логика в голове никак не складываеться... спасибо за совет я попробую ,может и получиться убедить работников вместо толстой линии использовать пунктир ,тогда все проблеммы уйдут сами собой)

Миллиметровка на графике
2010-10-03 11:34
Доброго времени суток! Делаю лабораторную работу. Нужен график с аппроксимирующей прямой на миллиметровке. График то готов, а вот как сетку на графике сделать величиной в 1мм не знаю. Помогите.

Re: Сделать выборку из множества файлов по дате
2010-10-03 11:47

Чет у меня в файле  nilem ошибки выдает на строках:
    .Add Type:=xlValidateList, Formula1:="=" & adr
в модул...

Re: Сделать выборку из множества файлов по дате
2010-10-03 11:59

Re: Вставка в ячейку значения из созданной таблицы
2010-10-03 12:04
Формат ячейки.
[<=100]0,0;0
P.S. Но это только визуальное отображение, реального округления не происходит.

Re: Сделать выборку из множества файлов по дате
2010-10-03 20:01
я приблизительно так и сделал, включил запись макроса и сделал сортировку и поиск, как бы еще туда можно было-бы прикрутить данные о дате, т.е. колонку с датой добавить

Re: Опять время. Помогите с формулой
2010-10-03 20:39
См. вложение

Re: Опять время. Помогите с формулой
2010-10-03 20:45
Мега спасибо!! вы мне сильно помогли  Улыбка

Re: Опять время. Помогите с формулой
2010-10-03 20:49
В формуле ошибка.
Надо учесть еще случаи, когда человек работает например с 12:00 до 23:00.
Подправьте для дневного времени формулу:

Код:
=ЕСЛИ(A2>B2;(A2<22/24)*(22/24-A2)+(B2>6/24)*(B2-6/24);ЕСЛИ(B2<22/24;B2-A2;22/24-A2))
Работает, если челове...

Re: Сделать выборку из множества файлов по дате
2010-10-03 21:35

Николай, глянь мой вариант. Какая там ошибка?
Например, в файле 2010.9.11 нет номера 1604 ночь, пишет #Н/Д. Проверку что ли добавить?
Сначала тоже думал формулами делать, но...

Как увеличить цены в прайсе на определённый %?
2010-10-03 23:24
Здравствуйте!
Не очень силён в Excel. Есть прайсы , которые поставщики периодически меняют по наличию и по цене. Мне необходимо при получении нового прайса увеличить все цены на определённый процент, например 20%, с сохранением общей фирменной стилисти...

Re: Как увеличить цены в прайсе на определённый %?
2010-10-04 00:35
1. Ввести в пустую ячейку 1,2.
2. Выделить эту ячейку, Ctrl+C.
3. Выделить столбец с ценой (быстро все строки - щелкнуть по верхнему значению в столбце, Ctrl+Shift+стрелка вниз),
4. 2003: Правка-Специальная вставка
    2007/2010: Вставить - Специальна...

Re: ошибка в условном форматирование
2010-10-04 00:41
В каких работает, в каких не работает?

Короче - сделал для всех подряд.
Просто пр установке УФ захватывай строку 1, тогда при добавлении строки 2 УФ будет на нее распространяться автоматом.

Re: Как увеличить цены в прайсе на определённый %?
2010-10-04 00:48
Можно выделить все листы (если изменяемые данные находятся в одинаковых диапазонах), с нажатой клавишей SHIFT кликаем по первому и последнему ярлычку листа, затем все выполняем по инструкции Виктории. Данные изменятся на всех листах одновременно.

Re: Как увеличить цены в прайсе на определённый %?
2010-10-04 01:50
Спасибо большое за внимание! Попробовал как Вы советуете - цены исправляются, но вот стилистика всего столбика меняется:
Пропадает "Полужирный".
Пропадают границы, а они сделаны коричневым цветом, а не чёрным как по умолчанию.
Пропадает заливка строк...

Re: сводная таблица &quot;Фильтр отчета&quot;
2010-10-04 12:35
файл

Вытащить е-mail из списка символов
2010-10-04 12:43
Есть список адресатов в таком формате:

gors,Bludens,Igors Bм,,igor.blа@gmail.com,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Agnis,Apermanis,Agnis Apermanis,,ayzy@companies.lv,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
,,,,west77777@inbox.lv,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
S...

Re: Сделать выборку из множества файлов по дате
2010-10-04 12:43

...как бы еще туда можно было-бы прикрутить данные о дате, т.е. колонку с датой добавить
Вот как.
[/...

Re: сводная таблица &quot;Фильтр отчета&quot;
2010-10-04 12:54
А кто у вас в клиентах в PT посмотрели? Сделайте ее наново на выложенных данных и проверить не забыть :-)

Re: Сделать выборку из множества файлов по дате
2010-10-04 13:00
Кнопочку "Обновить список файлов" нажимали?

сводный отчет
2010-10-04 14:47
Всем привет!

Ситуация:
Холдинг с 30 дочками. У каждой унифицированная форма сбора первичной информации. Необходимо загрузить информацию (1 или 2 листа) с формы сбора каждой дочки в файл холдинга, где они будут консолидироваться.

Мой подход к...

Re: сводная таблица &quot;Фильтр отчета&quot;
2010-10-04 15:18
_Boroda_ Спасибо!

Все работает

Re: макрос на сравнение и вставку
2010-10-04 15:32
Немного переделал. 1000х100 обрабатывает 4 секунды.

[code]Sub Макрос1()
Application.ScreenUpdating = 0
r_ = Range("a" & Rows.Count).End(xlUp).Row
rr_ = Workbooks("__Файл2__.xls").Sheets(1).Range("a" & Rows.Count).End(xlUp).Row
Sheets("Лист1").Copy
For ...

Re: сводный отчет
2010-10-04 15:42
Можно вообще без открытия.
Поскольку примера нет, то общие слова.
Цикл по каждому файлу Диром, в сводном файле прописываем формулы-ссылки на файл-дочку (=[Воронежский.xlsb]с_изм_кл!A78), копируем, вставляем значениями. Если диапазоны копирования разные...

Ипорт внешних данных со сдвигом вниз
2010-10-04 15:44
Дброго времени суток!!
Вот есть такой вопросик... я импортиру данные из Access в Excel из меню Данные->Импорт внешних данных и вот я хочу, чтобы эти данные вставлялись со сдвигом ячеек вниз, т.е., чтобы все данные которые находятся ниже вставки сдвинул...

Re: Вытащить е-mail из списка символов
2010-10-04 17:52

Такой вот монстр получился:
Тоже не Бог весть что, но покороче и тоже работает:
[code]=ПСТР(A1;МАКС(ЕСЛИ(ПСТР(ЛЕВСИМВ(A1;НАЙТИ("@";A1));СТРОКА($1:$993);1)=",";СТРОКА($1:...

Re: Открытие файла в корпоративной сети
2010-10-04 19:46
При открытии книги, можно проверить доступна ли она для изменений:

Код:
Private Sub Workbook_Open()
  If Me.ReadOnly Then
    MsgBox "Макрофункциональность занята другим юзером", 16
    Exit Sub
  End If
  MsgBox "Волшебно!"
End Sub

Re: сводный отчет
2010-10-04 20:38

Вопрос:
Возможен ли иной механизм загрузки данных, при котором загружаемый файл будет открываться в каком-нить особом режиме (без активации макросов, обновлении линков и пр....

Re: Вытащить е-mail из списка символов
2010-10-04 21:01
Еще на пару символов короче  :)
{=ИНДЕКС(ПРАВСИМВ(ПСТР(A1;1;ПОИСК(",";A1;ПОИСК("@";A1))-1);СТРОКА($1:$99));ПОИСКПОЗ(0=0;КОДСИМВ(ПРАВСИМВ(ПСТР(A1;1;ПОИСК(",";A1;ПОИСК("@";A1))-1);СТРОКА($1:$99)))=44;)-1)}

Re: Как увеличить цены в прайсе на определённый %?
2010-10-04 21:55

Можно выделить все листы (если изменяемые данные находятся в одинаковых диапазонах), с нажатой клавишей SHIFT кликаем по первому и последнему ярлычку листа, затем все выполняем по ...

Re: Вытащить е-mail из списка символов
2010-10-05 10:00

Еще на пару символов короче  Улыбка
Выездная сессия избушки?  Улыбка

Re: Удаление запроса внешнего диапазона
2010-10-05 10:28
Вроде так заработало:

Код:
Sub ttt()
n_ = ActiveWorkbook.Sheets.Count
For i = 1 To n_
    On Error Resume Next
    Sheets(i).Range("A3").QueryTable.Delete
    On Error GoTo 0
Next
End Sub

Re: Событие &quot;BeforeRefresh&quot; для PivotTable
2010-10-05 11:01

Подобные события есть дляПодобные события есть для QueryTable (Before/AfterRefresh).  (Before/AfterRefresh).
Вопрос: как определить момент начала обновления PivotTable?
[/...

Re: Удаление запроса внешнего диапазона
2010-10-05 11:47

Вроде так заработало:
[code]Sub ttt()
n_ = ActiveWorkbook.Sheets.Count
For i = 1 To n_
    On Error Resume Next
    Sheets(i).Range("A3").QueryTable.Delete
    On Error GoTo 0
Ne...

Re: макрос на сравнение и вставку
2010-10-05 14:28
Огромное спасибо!!! Подмигивающий все отлищна рапотает!!! Веселый

Re: Сделать выборку из множества файлов по дате
2010-10-05 15:26
Спасибо Вам огромное.
С уважением и наилучшими пожеланиями Виктор.

Re: Как соединять несколько файлов в один автоматически
2010-10-05 15:40
Выкладываю один из отчетов как пример результата работы.
На вкладках уже собраны отчеты из филиалов и подписаны.
Отчеты разные бывают, но шаблон один для всех одинаковый.

Подскажите формулу...
2010-10-05 23:12
Прежде чем задать этот вопрос здесь, я задавал его на паре форумах, с темой посвященой офису. Никто даже не ответил, возможно ли то что я хочу, проделать в Эксель...

Вот сам вопрос: Есть раскрывающийся список из нескольких элементов, типа ДА, НЕТ, ВОЗМ...

Re: Подскажите формулу...
2010-10-05 23:54
Странно, что не ответили, стандартный вопрос на функцию ВПР.
см. вложение

Даты через Автозаполнение. Часть 2
2010-10-06 00:56
начало проблемы тут

модератор Andrey Lenets я вот не могу понять, вы эстафету по закрытию тем в месяц пытаетесь выполнить? иначе мне непонятно к че...

Re: Подскажите формулу...
2010-10-06 05:58
Спасибо.

Re: как узнать был ли сохранен документ при закрытии
2010-10-06 06:48
В модуль книги:
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Open "TESTFILE" For Output Shared As #1
    Write #1, "Not saved " & Date
    Close #1
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As ...

Re: Спецсимволы
2010-10-06 13:42

Не вылизывая так:
Код:
Sub tt()
Dim cc, xStr As String

For Each cc In [a1:a30000]
xStr = cc
xStr = Replace(xStr, Chr(10), "<br/>")
cc.Offset(, 1) = xStr
Next
End Sub
А п...

Проблемы с обращением к общему файлу xls
2010-10-06 13:43
Добрый день!

Имеет место быть следующая проблема: MS Office 2003 Excel, некий файл сделан общим (разрешен совместный доступ к книге). Файл размещен на файловом сервере MS Windows Server 2003. Есть пользователи, например, A, B и C, обращающиеся к этому ...

Re: Спецсимволы
2010-10-06 14:31
По первому посту это было не понять. Улыбка Как и не понятно, что делать с полученной строкой - в Ворд, в текст или ещё куда... Про положить рядом я даже не подумал.
Поэтому строку сделал, а дальше - что хотите.

Re: несанкционированная подмена ссылок на внешние файлы
2010-10-06 14:48
макросов нет.

Помогите нарисовать график в excel-е.
2010-10-06 15:31
График находиться в центре. То, что сейчас находится в нем - идеальный график. По верх него должен быть нарисован график, данные для которого берутся из ячеек выделенных зеленым цветом. все расчеты расположения начинают плясать от вертикального вектора...

Re: Как отделить не нужные символы.
2010-10-06 22:28

Код:
=ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(" ";A1;НАЙТИ(" ";A1)+1))

Re: Как отделить не нужные символы.
2010-10-06 22:35

Код:
=ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(" ";A1;НАЙТИ(" ";A1)+1))

Спасибо вам большое.

Re: Как соединять несколько файлов в один автоматически
2010-10-06 22:59
Пробуйте.
Можно выбирать по одному файлу, можно сразу все. Главное - не выберите два раза один и тот же, просуммируется два раза. Но в таком случае можно этот лист удалить и запустить через Alt+F8  код "import" - данные перепишутся.
При каждом запуске ...

Re: Как отделить не нужные символы.
2010-10-06 23:06

Код:
=ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(" ";A1;НАЙТИ(" ";A1)+1))

А как по отдельности 1320 и 170

Сложная задачка.
2010-10-06 23:24
В ячейке А1 значение переодически меняется. В1 пустая ячейка,пока.Требуется что бы  ячейка С1 была ровна А1 до тех пор,пока В1 пустая.Если в ячейке В1 появилось что то, то в ячейке С1 замораживается последнее значение ячейки А1, а С2 начинала дублирова...

Re: Сложная задачка.
2010-10-07 00:21
_STALEVAR_,
см. вложение

Re: Передача даты из календаря в текстбокс
2010-10-07 02:25
Здравствуйте. А как сделать что бы календарь начинался с сегодняшнего дня?

Re: сообшение об обновлении файла
2010-10-07 02:38
В смысле - обновлении не мною файла с общим доступом?

Re: Передача даты из календаря в текстбокс
2010-10-07 02:48
Очень просто:

Код:
Private Sub UserForm_Initialize()
    Calendar1 = Now
   '...
End Sub


На форуме Вы можете получить совет по любым вопросам работы в Microsoft Excel.

Добро пожаловать на форум!


В избранное