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

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

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 3.828 RSS
←   Январь 2011   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://msexcel.ru
Открыта: 17-06-2006
Адрес автора: job.education.exl-owner@subscribe.ru

Автор
serge_007.planetaexcel@mail.ru

Статистика

3.828 подписчиков
0 за неделю
←   Все выпуски   →

Wasilic>> Re: Заполнить ячейки по условию


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

Выпуск 1
от 2011-01-14

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

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

Wasilic>> Re: Заполнить ячейки по условию
2011-01-06 10:28 http://forum.msexcel.ru/profiles/wasilic-u24852.html

пробежаться по строчкам и  заполнить поле(столбец D) Лист1 значениями из поля (столбца  D) Лист 2: по условию если значения (ячейки ) столбца В лист 1 = значению (ячейки) столбца В  лист2, также,   значения ячеек  столбца С лист1 и лист 2 совпадали.
Пример:  12 ячейка столбеца В имеет значение (зав.номер) 1435-67 и совпадает в двух листах, а так же ячейка столбеца С (назвение цеха к примеру( АСУ совпадает в двух листах то в ячейку столбца D пишем фамилию Иванов и т д.

Возможно такое:
Возможно, спомощью макроса.
Только вот значений на листах 1 и 2  в столбцах В и С и D у нас нету. Надо бы свой пример выложить, как есть, как надо.

KuklP>> Re: Заполнить ячейки по условию
2011-01-06 10:59 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Как вариант, сделайте в Акцессе и экспортируйте в Эксель. Если не подходит, читайте сообщение Wasilic.

zs>> Re: Помогите написать формулу для рассчета з/п
2011-01-06 11:47 http://forum.msexcel.ru/profiles/zs-u24604.html
можно в принципе отрезать 0,2;0,3;0,4 если Улыбка

zs>> Re: Подскажите ФОРМУЛУ РАСЧЕТА ПРОСРОЧЕННОСТИ ПАСПОРТА РФ
2011-01-06 11:48 http://forum.msexcel.ru/profiles/zs-u24604.html
Яна ел

A_00016>> Вопрос - создание БД в Аксцесс через импорт нескольких таблиц из Эксель
2011-01-06 13:03 http://forum.msexcel.ru/profiles/a00016-u35971.html
Всем добрый день.
Что имею на сегодня:
- экселевские таблицы с платежами по банку (за 3 года);
- в таблицах (за разные периоды времени - месяц, год и т.д.) выбраны платежи по клиентам +  формулы + сводная таблица.

Пробую сделать базу данных в аксцессе (все периоды сложить в одну таблицу).
Как я это делаю (у меня аксцесс 2003):
- файл - Внешние данные - импорт;
- в появившемся окне выбираю файл экселя;
- выбираю "первая строка содержит заголовки столбцов";
- в новой таблице;
- далее;
- не создавать ключ (хочу его создать после полного сбора всех файлов экселя в одну базу);
- готово.
После в созданну базу пытаюсь добавить данные из другого файла эксель также через импорт внешних данных (все названия столбцов одинаковы во всех файлах, последоавительность столбцов также одинакова).
После:
- файл - Внешние данные - импорт;
- в появившемся окне выбираю файл экселя;
- выбираю "первая строка содержит заголовки столбцов";
- в новой таблице;
- далее;
- не создавать ключ (хочу его создать по...

A_00016>> Re: Вопрос - создание БД в Аксцесс через импорт нескольких таблиц из Эксель
2011-01-06 13:10 http://forum.msexcel.ru/profiles/a00016-u35971.html
По поводу импортируемых таблиц, размер таблиц - 64 столбика на 20-40 тысяч строк.
Менять формат ячеек сразу в экселевской таблице на нужный проблемно, таблиц около 15 штук.
Менять форматы данных хотелось бы именно в аксцессе.

missttv>> увеличить количество условных форматирований
2011-01-06 14:39 http://forum.msexcel.ru/profiles/missttv-u51690.html
подскажите, у меня 2003 офис, соответственно в экселе всего три условных форматирования, для создания таблицы мне необходимо четыре условия!

подскажите макрос для условного форматирования строки (точнее ячеек допустим с 1 по 5 или 10 в строке и т.д. по всем строкам!) при определенном значении какой-либо ячейки. пример прилагается. если не сложно то краткое описание макроса, что бы при возможности я никого не беспокоила, а сама все исправила или добавила еще парочку условий.

Заранее спасибо! Всех с наступающим Рождеством! Улыбка))

С.М.>> Re: Комбинаторика с помощью Excel
2011-01-06 14:47 http://forum.msexcel.ru/profiles/sm-u19758.html

Уважаемый Zorro2005, объясните, пожалуйста, 8!=40320, а по какому принципу Вы исключили ненужные перестановки до 384?  Может все это возможно сделать с функциями ПЕРЕСТ, ФАКТ и ЧИСЛКОМБ, а не в ручную? Извините если что не так спросил, знаний своих пока не хватает!
Я все-таки хочу докопаться до истины для того, чтобы можно было использовать эту программу для стыковки любого количества труб (а не только 6 как в примере).
Считаем:
Число_перестановок_труб = Число_перестановок_без_повторений = N! = 4! = 24;
Число_поворотов_труб = Число_размещений_с_повторениями = K^N (K = 2 - два конца у трубы) = 2^4 = 16;
Итого вариантов = N!*2^N = 24*16 = 384.
 Грустный А 7 труб (= 645120) на 2003-ем листе уже не поместятся.
Прикрепил мой вариант генератора перестановок:

rusttemm>> Re: Комбинаторика с помощью Excel
2011-01-06 15:32 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
 С.М. спасибо за пояснение!
  А теперь надо как то связать генератор перестановок с таблицей замеров с изменяющимся количеством труб (кроме первой и последней трубы). В таблицу ЗАМЕРЫ внес данные, в СТЫКОВКА – получил наилучший вариант. Т. е. довести программу до рабочего состояния.
  С миру по нитке...
  Всем спасибо!  Улыбка

wowa78>> Сравнить несмежные, ненулевые ячейки в столбце ?
2011-01-06 18:14 http://forum.msexcel.ru/profiles/wowa78-u60736.html
        Есть столбец:
0
135
0
0
346
0
547
65
0
0
0
32
        Как сравнить ненулевые ячейки м/у собой. Например парами 135 и 346, 346 и 547, 547 и 65, 65 и 32 Непонимающий
        Заранее благодарен !!!

KuklP>> Re: увеличить количество условных форматирований
2011-01-06 20:24 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Так? Во втором файле добавил очистку заливок.

Dmitr68>> Re: Сравнить несмежные, ненулевые ячейки в столбце ?
2011-01-06 20:39 http://forum.msexcel.ru/profiles/dmitr68-u18737.html

Как сравнить ненулевые ячейки м/у собой. Например парами 135 и 346, 346 и 547, 547 и 65, 65 и 32 Непонимающий
Например так:

wowa78>> Re: Сравнить несмежные, ненулевые ячейки в столбце ?
2011-01-06 21:34 http://forum.msexcel.ru/profiles/wowa78-u60736.html

Спасибо Dmitr68 !!!
Супер. То что нужно !!!

Юлия25>> как вставить связь с ячейкой (один адрес НО разные листы)
2011-01-06 22:29 http://forum.msexcel.ru/profiles/yuliya25-u27685.html
Доброго вечера всем присутствующим.Опять нужна помощь! Надеюсь не откажете!
Есть лист, имеющий 4 столбца. 1 и 2-столбец-Текущий период(2010) и 3 и 4-ый -аналогичный период прошлого года (2009). Первый столбец "увязан" с данными на ДРУГОМ листе (лист 2010)..(делалось вручную). Как увязать данные по 3 и4 столбцу с листом 2009. (по сути адреса одни и те же, только листы разные 2010 и 2009). Может можно скопировать как-нибудь по-хитрому. В приложение к сумбуру пример:)Улыбка

Roman.H>> Re: как вставить связь с ячейкой (один адрес НО разные листы)
2011-01-06 22:40 http://forum.msexcel.ru/profiles/romanh-u60392.html
эм... либо я не понял что нужно сделать...

либо всё что нужно было сделать - протянуть ваши формулы вниз.

 Непонимающий

Юлия25>> Re: как вставить связь с ячейкой (один адрес НО разные листы)
2011-01-06 22:46 http://forum.msexcel.ru/profiles/yuliya25-u27685.html
если вниз..то будут создаваться формулы одного листа (либо 2010 либо 2009). А у меня вопрос. Можно ли формулу слева (связь с листом 2010) скопировать в столбец (справа), где должны быть увязаня данные с листом 2009

Abilov_ilja>> Re: Подскажите ФОРМУЛУ РАСЧЕТА ПРОСРОЧЕННОСТИ ПАСПОРТА РФ
2011-01-07 00:30 http://forum.msexcel.ru/profiles/abilovilja-u60540.html
Условие: Паспорт меняется в 20 и в 45 лет, если дата выдачи и дата рождения расходятся на 20 или 45 лет и более то формула выдавала ошибку

ZORRO2005>> Re: как вставить связь с ячейкой (один адрес НО разные листы)
2011-01-07 00:54 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
Юлия25,
Вам поможет функция ДВССЫЛ().

ZORRO2005>> Re: как вставить связь с ячейкой (один адрес НО разные листы)
2011-01-07 01:03 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
Этот вариант полегче.

artem_59>> Как защитить макросы от редактирования
2011-01-07 10:38 http://forum.msexcel.ru/profiles/artem59-u34518.html
Подскажите как можно защитить макросы от редактирования пользователями, но чтобы при необходимости самому иметь к ним доступ.

Спасибо.

artem_59>> Как заменить число или букву, сразу во всех макросах
2011-01-07 10:43 http://forum.msexcel.ru/profiles/artem59-u34518.html
Имеется книга Excel, в ней порядка 30 макросов, в каждом прописан код блокировки и разблокировки по "паролю" всех листов.

Иногда возникает необходимость менять "пароль", каждый раз заходить по очереди в каждый макрос и заменять "пароль" через поиск очень неудобно. Возможно ли как то найти и заменить искомый "пароль" сразу во всех макросах?

Спасибо.

jimbots>> Ищу хорошего программиста по экселу, для выполнения большого задания.
2011-01-07 10:46 http://forum.msexcel.ru/profiles/jimbots-u30021.html
Добрый день, ищу ХОРОШЕГО программиста который  умеет и владеет экселом.
Кидалы проходят мимо. Крутой
Суть работы:

Нужно доработать программу написанную в эксел "Менеджер ICQ чатов"

Примерно 50% кода и программы сделано, но вторую часть нужно дорабатывать.

Кого интересует работа с оплатой пишите в ICQ: 153-473 либо в мейл support@jimbots.ru

Насчёт цены договоримся.

50% Оплаты ДО и 50% ПОСЛЕ работы.

Работы много поэтому цена будет явно не 50р и не 100р) Подмигивающий

SFResid>> Как отображать кириллицу в MsgBox.
2011-01-07 10:46 http://forum.msexcel.ru/profiles/sfresid-u4955.html
У меня англоязычная версия Microsoft Office Excel 2003. На рабочих листах русские буквы понимает как текст. А вот в комментариях к листингам макросов - непонятные символы вместо букв. То же и в значениях объявляемых текстовых констант. А в тексте подсказок в MsgBox, InputBox и пр. - все 2-х байтовые символы забиваются знаками НепонимающийНепонимающий. Можно ли как то исправить?

Serge 007>> Re: как вставить связь с ячейкой (один адрес НО разные листы)
2011-01-07 11:48 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Одной формулой и без доп ячеек:

Код:
=ЕСЛИ(ТИП(НАЙТИ("прош";C$2))=16;ИНДЕКС('2010'!$A$1:$F$9;СТРОКА();СТОЛБЕЦ());ИНДЕКС('2009'!$A$1:$F$9;СТРОКА();СТОЛБЕЦ()-2))

KuklP>> Re: Как заменить число или букву, сразу во всех макросах
2011-01-07 11:48 http://forum.msexcel.ru/profiles/kuklp-u39713.html
ctrl+H. Current project.

c6h5oh>> Сравнение одного столбца с двумя другими и результатом в четвертый
2011-01-07 11:52 http://forum.msexcel.ru/profiles/c6h5oh-u60816.html
Помогите сравнить столбец1 с столбец2 столбец3 и результат в четвертый. Причем равнить с двумя другими
      А                    В           С             D
1    0,1                              1,5         меньше
2    0,005            0,008        0,2         меньше
3    менее 1            2           0,1        меньше

написал так =ЕСЛИ(ЕТЕКСТ(A1);"меньше";И(A1<=B1;A1<=C1;B1>0;C1>0)), но она дает три результата "меньше", "Истина" и "Ложь". А надо чтобы два результата.

Спасибо

sergo44441>> Как в access вывести номер квартала, к которому относится дата?
2011-01-07 13:41 http://forum.msexcel.ru/profiles/sergo44441-u3995.html
Какую функцию для этого надо использовать, подскажите, пожалуйста?

giperkan.ru>> Re: Выборка данных из выходной формы 1С
2011-01-07 14:47 http://forum.msexcel.ru/profiles/giperkanru-u60847.html
Кто мне подскажет, реально ли изучить 1С самостоятельно на уровне программиста. И как это сделать. С чего начать?

ZORRO2005>> Re: Сравнение одного столбца с двумя другими и результатом в четвертый
2011-01-07 14:50 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
c6h5oh,
см. вложеие

giperkan.ru>> Re: Как защитить макросы от редактирования
2011-01-07 14:55 http://forum.msexcel.ru/profiles/giperkanru-u60847.html
Установите пароль при создании макроса. Пароль запомните. При изменении будете вводить пароль

c6h5oh>> Re: Сравнение одного столбца с двумя другими и результатом в четвертый
2011-01-07 15:06 http://forum.msexcel.ru/profiles/c6h5oh-u60816.html
Спасибо!  Улыбка Но это не совсем то, что надо. Надо результат в одной ячейки. И, я, наверное, не совсем ясно написал, что текст (менее ...) должен присутствовать (нужно (можно) принять равный нулю).

zs>> Re: Подскажите ФОРМУЛУ РАСЧЕТА ПРОСРОЧЕННОСТИ ПАСПОРТА РФ
2011-01-07 17:31 http://forum.msexcel.ru/profiles/zs-u24604.html
=ЕСЛИ(B4-C4=0;"ОК";"Просрочен "&B4-C4&" дней")

echoprivet>> Печать VBA кода в текстовой файл
2011-01-07 18:15 http://forum.msexcel.ru/profiles/echoprivet-u11584.html
Уважаемые, подскажите бесплатную программку для печати кодов макросов VBA в текстовой файл (*.txt, *rtf).
Желательно, чтобы данная программа исправляла визуализацию кода, т.е. делала необходимые отступы, выделяла цветом и т.п.

Есть конечно EditPlus,Notepad++, а также Polystyle, SlickEdit, Visual Basic Code Formatter, SourceFormatX Source Code Formatter и т.п.
Можно сохранить и в *.bas и в *.cls.
Но я имел в виду нечто другое.

Года полтора назад пользовал бесплатную, русскоязычную программку какого-то программиста на VBA, написанною для собственных нужд. Так она сама расставляла табуляторы, выделяла цветом, сортировала макросы по именам, в общем приводила код в стандартный вид, который очень хорошо читался. Но в связи с тем, что обращаюсь к VBA не так часто (только при решении прикладных вопросов в Excel) данная программка у меня потерялась.

Может кто встречал такую, буду очень признателен.

Streloc>> Re: Как отображать кириллицу в MsgBox.
2011-01-07 21:30 http://forum.msexcel.ru/profiles/streloc-u43737.html
Установите другой офис. Проблема сама и решиться.

Streloc>> Re: Ищу хорошего программиста по экселу, для выполнения большого задания.
2011-01-07 21:41 http://forum.msexcel.ru/profiles/streloc-u43737.html
Пришлите файл, посмотрю смогу ли сделать. Желательно в архиве. Адрес: Streloc09@mail.ru
Приложите объяснения, что именно необходимо сделать.

QIP: 574857750

nilem>> Re: Комбинаторика с помощью Excel
2011-01-07 23:58 http://forum.msexcel.ru/profiles/nilem-u30547.html
Попробовал "разогнать" подход, предложенный С.М. для генератора перестановок. Получилось побыстрее, но в обоих случаях дальше 6-й трубы не идет  Грустный

rusttemm>> Re: Комбинаторика с помощью Excel
2011-01-08 00:23 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
Я в VBA не рзбираюсь, но может увеличить здесь (не миллион, а больше):
If IterationCount > 1000000 Then
        MsgBox "Число итераций больше предельного", vbExclamation, "ПодгоняемТрубы"
        On Error GoTo 0
        Exit Sub
Извиняюсь, если что не так ляпныл! Обеспокоенный
И что значит "Число итераций больше предельного", если не трудно?
Спасибо!

_Boroda_>> Re: Копирование и вставка по параметрам с определенным шагом значений и границ
2011-01-08 02:11 http://forum.msexcel.ru/profiles/boroda-u12234.html

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

Подправив его для Ваших условий, получим:

Код:
Private Sub CommandButton1_Click()
n_ = 3 ' количество строк отступа
r_ = WorksheetFunction.Max(22, Range("a" & Rows.Count).End(xlUp).Row)
Range("K6:Q22").Copy
Range("a" & r_ + n_).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub

SFResid>> Re: Как отображать кириллицу в MsgBox.
2011-01-08 02:29 http://forum.msexcel.ru/profiles/sfresid-u4955.html
Другой - это непременно русскоязычный? Или есть варианты?

SFResid>> Как отображать кириллицу в MsgBox
2011-01-08 02:47 http://forum.msexcel.ru/profiles/sfresid-u4955.html
У меня англоязычная версия Microsoft Office Word 2003. В тексте документа с русскими буквами проблем нет. А вот в комментариях к листингам макросов - непонятные символы вместо букв. То же и в значениях объявляемых текстовых констант. А в тексте подсказок в MsgBox, InputBox и пр. - все 2-х байтовые символы забиваются знаками "НепонимающийНепонимающий". Можно ли как-то исправить?

Wasilic>> Re: Сравнение одного столбца с двумя другими и результатом в четвертый
2011-01-08 10:24 http://forum.msexcel.ru/profiles/wasilic-u24852.html
ИСТИНУ И ЛОЖЬ выдает ЕТЕКСТ.
вот и надо проверить ЕСЛИ ИСТИНА то "меньше" ИНАЧЕ .....
=ЕСЛИ(ЕТЕКСТ(A1)=ИСТИНА;"меньше";ЕСЛИ(И(A1<=B1;A1<=C1);"меньше";"больше"))

хотя, проверка ЛЖИ, ИМХО не правильна.
Просто, второе ЕСЛИ надо проверить отдельно на 3-х чистых значениях.

sergo44441>> Re: Как в access вывести номер квартала, к которому относится дата?
2011-01-08 10:40 http://forum.msexcel.ru/profiles/sergo44441-u3995.html
я тут решение нашел:
квартал: DatePart("q";[дата])

rusttemm>> Re: Комбинаторика с помощью Excel
2011-01-08 10:55 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
  Можно ли создать динамичную таблицу, верхняя и нижняя труба остаются, а количество промежуточных труб (ну и соответственно строки в таблице) изменяются в зависимости от значения ячейки Н1(количество труб)? Т.е вставка данных происходит в середину таблицы, две нижние строки (нижняя труба) сдвигаются вниз. Пока смог создать только такую таблицу (с помощью условного форматирования). Новые данные вставляются снизу.
  Так же посчитал, что при количестве средних труб =7, количество необходимых строк для таблиц сравнения значений вариантов составит 12257280 (12 млн.). Можно ли будет их продолжить на последующем листе? И сможет ли Excel все это хозяйство посчитать? (См. тему «Стыковка профильных труб», файл Трубы_2_2.rar).

c6h5oh>> Re: Сравнение одного столбца с двумя другими и результатом в четвертый
2011-01-08 11:11 http://forum.msexcel.ru/profiles/c6h5oh-u60816.html
Спасибо!  Веселый Работает. Если не правильно, то я для этого и спрашивал,  как правильно! Спасибо.

zs>> Re: как вставить связь с ячейкой (один адрес НО разные листы)
2011-01-08 15:00 http://forum.msexcel.ru/profiles/zs-u24604.html
als schlecht Fomel =ЕСЛИ(C4>0;'2009'!C4;0)

skyman11>> как правильно записать значения?
2011-01-08 21:06 http://forum.msexcel.ru/profiles/skyman11-u53578.html
здравствуйте, извините за беспокойство, у меня есть файл эксел 2007  со списком  фамилий и электронных почт, как правильно записать эмэйлы и занести их в адресную книгу gmail? чтобы они читались вместе с фамилиями и т п, какой формат записи и какие знаки препинания?.

конкретный пример: формат 1й строки      (Firstname,Lastname,Login,Skype,E-mail,Phone number)

но только почему то неправильно читает список эл почт в адресную книгу


 на форуме справки по google я был но так и не понял, конкретно как нужно указывать , и какой формат 1й строки в экселе
поэтому прошу по конкретнее указать формат записи а не отсылать на справку гугл

заранее благодарю

Abilov_ilja>> Re: Подскажите ФОРМУЛУ РАСЧЕТА ПРОСРОЧЕННОСТИ ПАСПОРТА РФ
2011-01-08 21:27 http://forum.msexcel.ru/profiles/abilovilja-u60540.html
а можете пример скинуть ?

Streloc>> Re: Как отображать кириллицу в MsgBox
2011-01-08 22:21 http://forum.msexcel.ru/profiles/streloc-u43737.html
Попробуйте написать MsgBox и далше в "кавычках" русскими буквами. Также используется знак ' после чего можно писать русскими буквами (клавиша Э на анг. раскладке). Если не будет печатать значит надо искать причину в макросе. Возможно есть ошибки, повторяющиеся строки или отсутствуют необходимые знаки "препинания".

MCH>> Re: Подскажите ФОРМУЛУ РАСЧЕТА ПРОСРОЧЕННОСТИ ПАСПОРТА РФ
2011-01-08 22:53 http://forum.msexcel.ru/profiles/mch-u48782.html

а можете пример скинуть ?
Abilov_ilja, а Вы предложенные примеры уже смотрели? Не подходят?

MCH>> Re: Комбинаторика с помощью Excel
2011-01-09 00:55 http://forum.msexcel.ru/profiles/mch-u48782.html

Формул для решения задач по комбинаторике в интернете много,
но вот способов генерации всех вариантов в Excel мало, а формулами еще меньше.
Один из способов генерации всех вариантов к данной задаче формулами,
работает от 1 до 4 труб (от 2 до 384 вариантов), но не сложно переделать и для 6 труб, правда будет тормозить

ЗЫ: немного изменил последовательность генерации, что позволило чуть сократить формулу,
файл перезалил

С.М.>> Re: Комбинаторика с помощью Excel
2011-01-09 03:26 http://forum.msexcel.ru/profiles/sm-u19758.html
Воплотил идею Казанского-ZORRO2005 (поиск перестановки с минимальной суммой квадратов разностей размеров стыкуемых труб) в макрос.
Но на 7-и трубах мой PC завис.
Всё-таки перебор всех перестановок - тупик: большая часть вариантов подгона практически не отличаются друг от друга. Должен быть какой-то эвристический алгоритм. Если перебирать перестановки "случайно", и должен быть критерий по которому макрос решит, что найден вполне оптимальный вариант и Бог с ними - 24735 другими вариантами-близнецами.

User>> Re: Создание кнопки
2011-01-09 10:32 http://forum.msexcel.ru/profiles/user-u61614.html
Здравствуйте! Не могли бы Вы помочь? В Excel 2007 при открытии любого документа на панели быстрого доступа есть кнопка, конвертирования файла. Добавил ее не знакомый мне программист. Макросы никогда не писала. Необходимо узнать какой макрос запускется при нажатии на кнопку и каким-то образом на другой машине добавить такую же кнопку, чтоб она выполняла те же самы действия.

nilem>> Re: Комбинаторика с помощью Excel
2011-01-09 11:14 http://forum.msexcel.ru/profiles/nilem-u30547.html
Ну и еще вариант (почти как у С.М.). Да, более 6-ти труб - никак.
Наверное, можно задать какие-то нормы. Например, если смещение кромок стыкуемых элементов менее 30% толщины тонкой детали, то принимаем такой вариант, не перебирая все остальные. Если более - отправляем на калибровку (т.е. используем кувалду, а не Excel  Улыбка).

zs>> Re: Подскажите ФОРМУЛУ РАСЧЕТА ПРОСРОЧЕННОСТИ ПАСПОРТА РФ
2011-01-09 11:55 http://forum.msexcel.ru/profiles/zs-u24604.html
plese Улыбка

rusttemm>> Re: Комбинаторика с помощью Excel
2011-01-09 15:05 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
Всем БОЛЬШОЕ СПАСИБО! Вы ПРОФЕССИОНАЛЫ!

dimikust>> Re: Комбинаторика с помощью Excel
2011-01-09 15:23 http://forum.msexcel.ru/profiles/dimikust-u55498.html

Друзья,
создал новую тему для решения задач, связанных с комбинаторикой.

Спасибо за тему. Лет 30 таких пасьянсов не раскладывал. Выкладываю свой вариант. Формулами только для 4.
Через VBA для любого числа труб, насколько места хватит. Три дня назад почему-то выложить не получилось.
Ну и а) извиняюсь, что без красивой кнопки запуска макроса. б) есть о чем в этой еще в этой теме поговорить (будут след. сообщения).

dimikust>> Re: Комбинаторика с помощью Excel
2011-01-09 15:56 http://forum.msexcel.ru/profiles/dimikust-u55498.html
Сначала а самой задаче. Очевидно, что она решается декомпозицией: сначала нужно генерить Nфакториал перестановок, а затем для каждой перестановки все возможные ориентации. Точнее сгенерил очередную перестановку и сразу для нее все 2^N комбинации ориентаций.

Второй важнейший вопрос - это жизнеспособность программного кода. Я в вашей тусовке, конечно новичек, а по жизни уже старый и мудрый. Поэтому знаю, что программу нужно писать так, чтобы либо А) ее и через годы можно было бы понять. Либо Б) заранее знать, что это программа нужна только на несколько исполнений, а после этого наплевать, забыть и выкинуть.  В этом смысле работающие программы от ребят (nilem  и  С.М.) явно одноразовые. И логику их разбирать морока.  Можно конечно использовать как черный ящик, либо нужно переквалифицироваться в археологи от программирования (это чего это он тут понаделал).  Разбор таких некомментированных программ полезен только на небольших этюдах (10-20 строк кода). Данная исходная задача тако...

rusttemm>> Re: Комбинаторика с помощью Excel
2011-01-09 15:59 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
dimikust, при генерации с помощью VBA на 7 трубах, после 5 минут работы машины вылезла ошибка:
  Run-time error '1004':
  Application-definden or object-defined error
В коде высветилась строка:
Sheets("Генерация").Cells(Строка, Столбец) = Подстановка(Труба) * 2 - 1
  Изменится ли что то, если файл перевести на Excel2007?

ZORRO2005>> Re: Комбинаторика с помощью Excel
2011-01-09 18:58 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
Вариант от Уокенбаха:
http://www.j-walk.com/ss/excel/tips/tip46.htm
http://spreadsheetpage.com/index.php/tip/generating_permutations/

Вариант от японца YOSHIDA Hajime:
http://www.ne.jp/asahi/math.edu/ami/myprog/jk_eng.htm

nilem>> Re: Комбинаторика с помощью Excel
2011-01-09 22:26 http://forum.msexcel.ru/profiles/nilem-u30547.html
Вот еще в тему: файлик с процедурой ZVI_PermutationsWithRepetition.
Кстати, ZORRO2005, похоже, нашел автора алгоритма, на который ссылается Уокенбах. По крайней мере, YOSHIDA Hajime больше ни на кого не ссылается.
Но все это уже показано в теме...
Что же делать с 7-й трубой?  Улыбка

Toha153>> Динамическая диаграмма отображает пустые результаты формул
2011-01-09 23:21 http://forum.msexcel.ru/profiles/toha153-u39281.html
Здравствуйте уважаемые! Подскажите пожалуйста, как можно решить данную проблему. Имеется расчетная таблица (A2:E41) на листе "Исходная". Данные добавляются и удаляются в нее по мере надобности регулярно. Для отображения изменяющихся данных динамической диаграммой на листе "расчетная" создана таблица на основе "исходной" (без пробелов от удаленных данных). Но беда в том, что динамическая диаграмма видит пустое значение в формуле ("") как значение. Подскажите, пожалуйста, как можно решить данную проблему.
Файл прилагаю.

Streloc>> Re: Динамическая диаграмма отображает пустые результаты формул
2011-01-10 01:15 http://forum.msexcel.ru/profiles/streloc-u43737.html
Вам трудно "ручками" поработать? Или Вы продаете эти проги третьим лицам, которые не хотят или не могут работать "ручками"? Если не можешь (или не хочешь) работать головой - работай "ручками".
Все имеет решение. Это не кубическое уравнение где куб числа равен сумме двух чисел возведенных в куб по отдельности.

Streloc>> Re: как правильно записать значения?
2011-01-10 01:22 http://forum.msexcel.ru/profiles/streloc-u43737.html
А Вы не пробовали внести данные вручную? Почувствовать "клаву"? Я могу понять если у Вас более 200 абонентов в день, но если менее - тогда можно и вручную это сделать.

P.S. В каждой эл.почте есть автоматическая система сохранения эл.адреса. При её отсутствии можно внести эл.адрес собственноручно.

Streloc>> Re: Печать VBA кода в текстовой файл
2011-01-10 01:32 http://forum.msexcel.ru/profiles/streloc-u43737.html
Интересно, когда это было? Сейчас все бесплатные проги (полезны они или нет) при закачке требуют пароль, который можно узнать при отправке смс на определенный номер. Так что если и была такая прога - сейчас её не найти, а если и найти - то надо заплатить от 200 до 1000 руб. при всем при этом гарантий, что она будет работать, никаких - а деньги уже ушли.

_Boroda_>> Re: Динамическая диаграмма отображает пустые результаты формул
2011-01-10 01:43 http://forum.msexcel.ru/profiles/boroda-u12234.html
Во всех именах последний аргумент замените на
СЧЁТ(расчетная!$h$2:$h$14))
см. вложение. Формулу в первом столбце переделал для 2003. Для 2007 перепишите обратно.

Вам трудно "ручками" поработать? Или Вы продаете эти проги третьим лицам, которые не хотят или не могут работать "ручками"? Если не можешь (или не хочешь) работать головой - работай "ручками".
Все имеет решение. Это не кубическое уравнение где куб числа равен сумме двух чисел возведенных в куб по отдельности.
Не согласен. Я полностью поддерживаю достойное (с моей точки зрения) стремление Toha153 максимально все автоматизировать. Пусть даже и пару строк, но чтобы все само считалось и рисовалось:
1. исключение человеческого фактора - каждый может случайно ошибиться;
2. две минуты тут, две минуты там - глядишь, часик в день и экономии будет;
3. самому приятно (за каждого, конечно, не могу сказать, но мне, да и, я уверен, многим другим, п...

KuklP>> Re: Печать VBA кода в текстовой файл
2011-01-10 01:46 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Ну, не все так грустно. Автору ответили здесь: http://www.planetaexcel.ru/forum.php?thread_id=23067

ZORRO2005>> Re: Динамическая диаграмма отображает пустые результаты формул
2011-01-10 01:48 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
Согласен с _Boroda_.
Вопрос был нормальный.

missttv>> Re: увеличить количество условных форматирований
2011-01-10 11:00 http://forum.msexcel.ru/profiles/missttv-u51690.html
да, то что надо и работает хорошо, а то же самое но без кнопки можно сделать, что бы оно автоматом само менялось во втором файлике с очисткой заливок?

KuklP>> Re: увеличить количество условных форматирований
2011-01-10 11:15 http://forum.msexcel.ru/profiles/kuklp-u39713.html
По какому событию должно меняться? При открытии книги, внесении новой записи? Или силой мысли?

missttv>> Re: увеличить количество условных форматирований
2011-01-10 11:44 http://forum.msexcel.ru/profiles/missttv-u51690.html
по обновлению какой либо информации в таблице :'(, но это в принципе не важно и не крайне необходимо, тут еще начальство сделало финт ушами и СИЛЬНО усложнило задачу. я рыдаю... :'(  :'(  :'(
хотела сама переделать макрос, но фокус не выйдет без Вашей помощи.

как здесь прописать, что если значение ячейки равно "бла-бла", то заливать только ячейки столбцов с "У" по "AF", а равно "бла-бла-бла", то заливать с "Н" по "Х"? это реально?

Public Sub www()
    Dim r As Range, c As Range, mr As Range, Lr&
    Lr = Cells(Rows.Count, 1).End(xlUp).Row
    Set r = Range([a2], Cells(Lr, 5))
    r.Interior.ColorIndex = xlNone
    For Each c In r.Columns(5).Cells
        Set mr = Range(Cells(c.Row, 1), Cells(c.Row, 5))
        Select Case c.Value
        Case "отгружен"
            mr.Interior.ColorIndex = 48
        Case "передать на другой склад"
            mr.Interior.ColorIndex = 39
        Case ""
            If Month(c.Offset(, -2)) = Month(Date) Then mr.Interior.ColorIndex = 6
            If...

KuklP>> Re: увеличить количество условных форматирований
2011-01-10 12:00 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Успокойте Ваши рыдания, missttv. Все пока реально. "как здесь прописать, что если значение ячейки равно "бла-бла"" - какой ячейки, чему равно... Давайте реальный пример: что есть, что хочу. На пальцах объяснять, дело неблагодарное. Да и гадалка из меня никудышная.

missttv>> Re: увеличить количество условных форматирований
2011-01-10 12:33 http://forum.msexcel.ru/profiles/missttv-u51690.html
пример тот же самы только в том виде в каком непосредственно моя таблица. объяснила как могла, если есть что-то не понятное расшифрую Улыбка

wild_t>> ПОДСЧЁТ КОЛИЧЕСТВА - ЕСЛИ !
2011-01-10 15:57 http://forum.msexcel.ru/profiles/wildt-u62182.html
Нужно подсчитать количество Мужчин и Женщин по каждому факультету
Таблица:
a1: Факультет_1
б1: МУЖЧИНА
a2: Факультет_1
б2: ЖЕНЩИНА


ОБЩИЙ СМЫСЛ ЗАПИСИ ФОРМУЛЫ ДУМАЮ ТАКОЙ:

=сумм(ЕСЛИ((a1="МУЖЧИНА")+(б1="Факультет_1");1;0))

помогите . пожалуйста. Записать РАБОЧУЮ формулу


прикреплен файл с таблицей студентов
где и нужно подсчитать количество М И Ж по факультетам

Wasilic>> Re: Динамическая диаграмма отображает пустые результаты формул
2011-01-10 16:02 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Да, уж.  Смеющийся

Вам трудно "ручками" поработать?
И действительно - Streloc
Если не можешь (или не хочешь) работать головой - работай "ручками".
А Toha153, как я понял, хочет научиться работать головой.
Я так понимаю.

rusttemm>> Re: Комбинаторика с помощью Excel
2011-01-10 16:07 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
Кстати! Если кому интересно, что это за труба такая, можно посмотреть здесь:  http://www.perekryvatel.ru/olks/

Wasilic>> Re: Количество М и Ж по факультетам
2011-01-10 16:25 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Возможно надо применить СЧЕТЕСЛИ().
А лучше, выложи файл с примером, вот так есть - вот так надо.

wild_t>> Re: ПОДСЧЁТ КОЛИЧЕСТВА - ЕСЛИ !
2011-01-10 16:40 http://forum.msexcel.ru/profiles/wildt-u62182.html

ПОПОРОБЫВАЛ ВОТ ТАК
=ЕСЛИ($G$2:$G$19;"М")

ОТЛично считает...

но если добавляю ищё одно условие ... пипец.. пишет ошибка

=СУММ(ЕСЛИ($G$2:$G$19;"М")<=ЕСЛИ($A$2:$A$19;"ФБ"))

Serge 007>> Re: ПОДСЧЁТ КОЛИЧЕСТВА - ЕСЛИ !
2011-01-10 16:48 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Да тупо

Код:
=СУММПРОИЗВ(($A$2:$A$19=$A23)*($G$2:$G$19=B$22))

wild_t>> Re: ПОДСЧЁТ КОЛИЧЕСТВА - ЕСЛИ !
2011-01-10 16:53 http://forum.msexcel.ru/profiles/wildt-u62182.html
 Веселый спасибо!!!!!!!! большушее
 

wild_t>> Re: ПОДСЧЁТ КОЛИЧЕСТВА - ЕСЛИ !
2011-01-10 16:57 http://forum.msexcel.ru/profiles/wildt-u62182.html

Да тупо
Код:
=СУММПРОИЗВ(($A$2:$A$19=$A23)*($G$2:$G$19=B$22))



вот суммпроизв() формула есть а СРЕДПРОИЗВ () есть формула ?
в том же файле на странице второй есть задание где нужно уже ТРИ условия и подсчитать СРЕДНЕЕ И МАКСИМАЛЬНОЕ

_Boroda_>> Re: ПОДСЧЁТ КОЛИЧЕСТВА - ЕСЛИ !
2011-01-10 17:16 http://forum.msexcel.ru/profiles/boroda-u12234.html
Можно так:
=СРЗНАЧ(ЕСЛИ($D$2:$D$19=$A24;ГОД(СЕГОДНЯ())-ГОД($F$2:$F$19);""))
=МАКС(($D$2:$D$19=$A24)*$H$2:$H$19)
см. вложение.

(там еще вариант для первого листа)
=СУММ(--($A$2:$A$19&$G$2:$G$19=$A23&B$22))

Все - формулы массива

Mnemon>> Как дублиравать информацию в другой файл автоматом?
2011-01-11 15:51 http://forum.msexcel.ru/profiles/mnemon-u62309.html
Проблема такая может кто знает как решить её?
Есть две базы (одинаковые) в разных файлах как работая в одном из файлов сделать так что бы при работе в нём информация дублировалась во второй. Если это возможно вообще.
Ситуация такая два менеджера не могут работать в одном файле (в локальной сети) одновременно с возможностью сохранения данных, поэтому пришлось копировать базу для каждого менеджера а очень бы хотелось что бы информация была одинакова в двух базах.
Надеюсь понятно изложил суть проблемы, если что готов пояснить подробнее.
Спасибо.

Ingvar>> Получение данных из сводной таблицы с помощью макроса.
2011-01-11 17:55 http://forum.msexcel.ru/profiles/ingvar-u5141.html
Добрый день.
Озадачен проблемой.

Исходные данных: Сводная таблица с данным. Данные в сводную берутся из внешнего источника.(База Access). Доступа к источнику нет.
Соответственно нет возможности обновления данных, но базовые данные загруженны в сводную.

Нужно: Получить базовые данные по которым строится сводная таблица и передать их в свою базу Access. Желательно с минимум промежуточных действий. Если есть вариант напрямую?

Строк данных, загруженных в сводную, более 65536 всегда. Так что раскрытие сводной не позволит скопировать всю информацию. (Сообщение Excel - "Скопированные не все исходные записи" ).

Я пока придумал только вариант причем данный вариант меня не устраивает по многим причинам:
1. Выбор необходимых строк сводной.(не смог отменить выделение всех строк, пошел другим путем:
[code]
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Группа22")
        .PivotItems("ИмяГруппы22-1").Visible = False
        .PivotItems("ИмяГруппы22-2").Visible = False
        .P...

zs>> Re: Как дублиравать информацию в другой файл автоматом?
2011-01-11 18:10 http://forum.msexcel.ru/profiles/zs-u24604.html
=([Книга1]Лист1!A1)

Ingvar>> Определение имени сводной на существующем листе?
2011-01-11 18:12 http://forum.msexcel.ru/profiles/ingvar-u5141.html
Подскажите как определить имя сводной таблицы которая создана на лист Эксель.
Например я знаю что у меня на "Лист3" всегда есть сводная.
Обычно она называется: "СводнаяТаблица1"
Но возможно может называться в исключениях "СводнаяТаблица2" и "СводнаяТаблица3" и т.п.
Соответственно заточив макрос под "СводнаяТаблица1" в случаях когда попадут данные исключения получим ошибку.
Вариант ошибки нужно исключить, поэтому я хочу определить имя сводной. Занести её в переменную и работать с ней далее.
Вопрос как?Грустный

Ingvar>> Re: Получение данных из сводной таблицы с помощью макроса.
2011-01-11 18:17 http://forum.msexcel.ru/profiles/ingvar-u5141.html
Да еще вопрос, в догонку как определить имя листа Excel на котором детализированных данные сводной таблицы.
("Лист2", "Лист3", "Лист4" ....)

_Boroda_>> Re: Определение имени сводной на существующем листе?
2011-01-11 18:44 http://forum.msexcel.ru/profiles/boroda-u12234.html
Первая (у тебя - единственная) сводная на листе
ActiveSheet.PivotTables(1)

oleg_ya>> Построить зависимость столбца А от строки 3
2011-01-11 18:46 http://forum.msexcel.ru/profiles/olegya-u62332.html
Построить зависимость столбца А от строки 3
Помогите пожалуйста!!
Я нашёл така что нужно использовать функцию ЛИНЕЙН
я не могу разобраться с известные_значения X и Y и дальше

Raidy>> Re: Решение одной задачи
2011-01-11 18:46 http://forum.msexcel.ru/profiles/raidy-u62272.html
Не получается в ответе выводит 0(

_Boroda_>> Re: Решение одной задачи
2011-01-11 18:53 http://forum.msexcel.ru/profiles/boroda-u12234.html

Цитировать
Записаны номера телефонов 25 человек
"1 Лоскутов Ф.В. 22-13-45" засунуто в одну ячейку или в 3?

Raidy>> Re: Решение одной задачи
2011-01-11 18:54 http://forum.msexcel.ru/profiles/raidy-u62272.html
в 3

_Boroda_>> Re: Решение одной задачи
2011-01-11 18:55 http://forum.msexcel.ru/profiles/boroda-u12234.html
В каком столбце телефоны?

Raidy>> Re: Решение одной задачи
2011-01-11 18:58 http://forum.msexcel.ru/profiles/raidy-u62272.html
В С

_Boroda_>> Re: Решение одной задачи
2011-01-11 19:01 http://forum.msexcel.ru/profiles/boroda-u12234.html
Тогда просто берете формулу уважаемого MCH =СЧЁТЕСЛИ(B1:B25;"22*") и меняете там В на С

Raidy>> Re: Решение одной задачи
2011-01-11 19:04 http://forum.msexcel.ru/profiles/raidy-u62272.html
Я так и делал(в диапозон вписывал C1:C25 а в критерий 22 все равно 0 выдаёт(

_Boroda_>> Re: Решение одной задачи
2011-01-11 19:15 http://forum.msexcel.ru/profiles/boroda-u12234.html
Кладите файл

Raidy>> Re: Решение одной задачи
2011-01-11 19:18 http://forum.msexcel.ru/profiles/raidy-u62272.html
вот

_Boroda_>> Re: Решение одной задачи
2011-01-11 19:25 http://forum.msexcel.ru/profiles/boroda-u12234.html
И что не получается? Во вложении все по формуле, которую уважаемый MCH с самого начала написал

Ingvar>> Re: Определение имени сводной на существующем листе?
2011-01-11 19:26 http://forum.msexcel.ru/profiles/ingvar-u5141.html

Первая (у тебя - единственная) сводная на листе
ActiveSheet.PivotTables(1)
Спасибо.  А подскажи как определить конец сводной саму нижную правую ячейку(перекресток итогов строк и столбцов)
А то код :
Код:
    Range("A1").Select
    ActiveCell.SpecialCells(xlLastCell).Select
    Selection.End(xlToLeft).Select
Не работает при скрытии части строк. Например всего когда сводная вся отображается 4073 строки. и данный код работает.
А когда скрываешь все строки(например по 2му столцу оставляя только 4) у тебя получается 469 строк.
А данный код всё равно выдает 4073 строку.

Цель выделения данной ячейки получить детали(т.к. данные по которым данный сегмент сводной строится). Т.к. другим способом их получить нельзя.

_Boroda_>> Re: Определение имени сводной на существующем листе?
2011-01-11 19:36 http://forum.msexcel.ru/profiles/boroda-u12234.html
Если производились изменения на листе, то xlLastCell корректно работает только после сохранения книги.
Перед своим кодом напиши
ActiveWorkbook.Save

Raidy>> Re: Решение одной задачи
2011-01-11 19:36 http://forum.msexcel.ru/profiles/raidy-u62272.html
Я всё делаю по формуле но ответ 2 не получается,в ячейке  где считаю выводится 0 и всё

_Boroda_>> Re: Решение одной задачи
2011-01-11 19:37 http://forum.msexcel.ru/profiles/boroda-u12234.html
Вы мое вложение смотрели? В предыдущем сообщении.

Raidy>> Re: Решение одной задачи
2011-01-11 19:39 http://forum.msexcel.ru/profiles/raidy-u62272.html
Смотрел,а знак * обязательно ставить?просто я писал просто 22
что он обозначает?

_Boroda_>> Re: Решение одной задачи
2011-01-11 19:44 http://forum.msexcel.ru/profiles/boroda-u12234.html
Обязательно.
Обозначает, что ищем "первые два символа - 22, а остальные любые". Без него - ищем строго 22.

Raidy>> Re: Решение одной задачи
2011-01-11 19:47 http://forum.msexcel.ru/profiles/raidy-u62272.html
Всё,спасибо большое,очень сильно помогли!

Ingvar>> Re: Определение имени сводной на существующем листе?
2011-01-11 19:47 http://forum.msexcel.ru/profiles/ingvar-u5141.html
Спасибо! Заработало. Правда тупит и по времени много, но автоматически.  Пока так сойдет все равно быстрей чем руками Улыбка.

_Boroda_>> Re: Определение имени сводной на существующем листе?
2011-01-11 19:52 http://forum.msexcel.ru/profiles/boroda-u12234.html
А что в итоге делаешь-то?
Поделись кусочком.

Ingvar>> Re: Получение данных из сводной таблицы с помощью макроса.
2011-01-11 19:55 http://forum.msexcel.ru/profiles/ingvar-u5141.html
Скрытие строк и отображение решил пока следующим образом:
[code]
Sub Скрытие_строк()

Dim pt As PivotTable, pf As PivotField
Dim tv As PivotItems, th As PivotItems, t As PivotItem

'Отключения обновления экрана и пересчета для ускорения процесса. Особенно если естьвычисляемые поля в сводных.
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Set pt = ActiveSheet.PivotTables("СводнаяТаблица1")
Set pf = pt.PivotFields("Столбец21")
Set tv = pf.VisibleItems
Set th = pf.HiddenItems

'на всякий случай делаем видимыми все поля т.к. если что-то скрыто то возможна некоректная работа
For Each t In th
t.Visible = True
Next t

For Each t In tv
'Оставляем здесь те группы которые нам нужны
If t = "Группа1" Then GoTo NNN
If t = "Группа2" Then GoTo NNN
If t = "Группа3" Then GoTo NNN
If t = "Группа4" Then GoTo NNN
t.Visible = False
NNN:
Next t

'Расчитываем данные и включаем обратно отображение и автовычисления
Application.Calculate
Application.Calculation = xlCalculationAut...

Ingvar>> Re: Определение имени сводной на существующем листе?
2011-01-11 20:01 http://forum.msexcel.ru/profiles/ingvar-u5141.html

А что в итоге делаешь-то?
Поделись кусочком.

В итоге обрабатываю сводную и тащу данные из сводной и потом загоняю из в Access и делаю на основе внешнего источника данных свою сводную с теми данными что мне надо.
Проблема в том что файлов более 13 файлов и в каждом сводная с внешним источников  с данными более 65536 строк и объемом по 50 Мб.

Кусочек я вытаскиваю данные из сводной так вот:
[code]
Sub Скрытие_строк()

Dim pt As PivotTable, pf As PivotField
Dim tv As PivotItems, th As PivotItems, t As PivotItem

'Отключения обновления экрана и пересчета для ускорения процесса. Особенно если естьвычисляемые поля в сводных.
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Set pt = ActiveSheet.PivotTables("СводнаяТаблица1")
Set pf = pt.PivotFields("Столбец21")
Set tv = pf.VisibleItems
Set th = pf.HiddenItems

'на всякий случай делаем видимыми все поля т.к. если что-то скрыто то в...

С.М.>> Re: Комбинаторика с помощью Excel
2011-01-11 20:38 http://forum.msexcel.ru/profiles/sm-u19758.html

Что же делать с 7-й трубой?  Улыбка
Всё-таки перебор всех перестановок - тупик: большая часть вариантов подгона практически не отличаются друг от друга.
Попытка:

rusttemm>> Re: Комбинаторика с помощью Excel
2011-01-11 21:06 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
Теперь можно идти дальше!? Программа посчитает любое количество труб?

С.М.>> Re: Комбинаторика с помощью Excel
2011-01-11 21:20 http://forum.msexcel.ru/profiles/sm-u19758.html

Программа посчитает любое количество труб?
rusttemm, посмотрел картинки на Вашей ссылке.
Сколько максимально за раз сваривают ?

Олег*>> Re: Как подсчитать количество вхождений чисел в список?
2011-01-11 21:44 http://forum.msexcel.ru/profiles/oleg-u24862.html
_Boroda_ и Serge 007, большое вам спасибо! Оба вложенных файла изучил очень внимательно.

Классно, что в Интернете есть замечательный форум, на котором есть грамотные люди, всегда готовые протянуть руку помощи!

IgorEfremenko>> Сравнение значений по &quot;тегам&quot;
2011-01-11 22:01 http://forum.msexcel.ru/profiles/igorefremenko-u62354.html
Здравствуйте, у меня следующий вопрос: на листе у меня 4 столбца.
В первом забиты текстовые значения в виде
"значение1"
"значение2"
"значение3"
...
"значение100"

Назовем их тегами. Во втором столбце напротив каждого тега есть числовое значение, например пара "значение1  0,05".

В третьем столбце есть не все теги из первого, а лишь часть. Например,
"значение8"
"значение15"
"значение32"
И у каждого тега в четвертом столбце есть другое значение, отличное от значения из второго столбца.

Есть ли возможность средствами excel сделать сравнение по тегам, сравнить первое и второе значение у совпадающих тегов и записать результат в другую ячейку?

MCH>> Re: Сравнение значений по &quot;тегам&quot;
2011-01-11 22:26 http://forum.msexcel.ru/profiles/mch-u48782.html
IgorEfremenko, нужен Ваш пример, и пояснения как нужно "сравнить первое и второе значение у совпадающих тегов и записать результат в другую ячейку"

IgorEfremenko>> Re: Сравнение значений по &quot;тегам&quot;
2011-01-11 22:31 http://forum.msexcel.ru/profiles/igorefremenko-u62354.html
Спасибо, прикрепил пример к сообщению.

Serge 007>> Re: Сравнение значений по &quot;тегам&quot;
2011-01-11 22:38 http://forum.msexcel.ru/profiles/serge_007-u25260.html
В G3:

Код:
=ВПР(E3;$B$3:$C$12;2;0)-F3

MCH>> Re: Сравнение значений по &quot;тегам&quot;
2011-01-11 22:42 http://forum.msexcel.ru/profiles/mch-u48782.html

Код:
=ЕСЛИ(ЕНД(ВПР(E3;$B$3:$C$12;2;));"";ВПР(E3;$B$3:$C$12;2;)-F3)
или
Код:
=СУММПРОИЗВ(($B$3:$B$12=E3)*($C$3:$C$12-F3))

rusttemm>> Re: Комбинаторика с помощью Excel
2011-01-11 22:43 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
Зона изоляции профильными трубами (Профильным перекрывателем) может достигать до 200м. Если длина одной трубы около 8,5-9м, то получается 24 трубы на комплект. Но такое бывает редко. Обычно поступают заявки на 6-8 труб (с верхней и нижней трубами включительно).

IgorEfremenko>> Re: Сравнение значений по &quot;тегам&quot;
2011-01-11 23:06 http://forum.msexcel.ru/profiles/igorefremenko-u62354.html
Спасибо!

Ingvar>> Выполнение в эксели макросом процедуры сжатия базы данных Акцесс
2011-01-12 13:15 http://forum.msexcel.ru/profiles/ingvar-u5141.html
Добрый день.

Подскажите возможно из экселя сжать базу акцесс?

litera>> Суммирование по разным критериям и разным столбцам (но не суммеслимн) Excel07
2011-01-12 14:23 http://forum.msexcel.ru/profiles/litera-u38128.html
Добрый день.
Во вложении находится файл, в котором в закладке "ИСХОДНИК" находятся матрицы торговых точек.
В закладке "ГОТОВАЯ ТАБЛИЦА" нужно просуммировать данные из первого листа по категриям (шоколад, весовые конфеты и ты пы) в разрезе конкретных матриц торговых точек.

Подскажите пжалсссстаааа как это сделать. Заранее очень благодарна) Улыбка

Serge 007>> Re: Суммирование по разным критериям и разным столбцам (но не суммеслимн) Excel07
2011-01-12 14:51 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Здравствуйте.

Код:
=СУММПРОИЗВ(($A2=ИСХОДНИК!$C$1:$I$1)*(ИСХОДНИК!$B$2:$B$30=B$1)*ИСХОДНИК!$C$2:$I$30)

Евгений А.>> Re: Как дублиравать информацию в другой файл автоматом?
2011-01-12 14:54 http://forum.msexcel.ru/profiles/genyaa-u111.html
Странно... почему Вы говорите, что два менеджера не могут работать в одном файле с возможностью сохранения изменений одновременно? Вы настраивали общий доступ к книге? Если да, то почему именно этот вариант не подошел?

Mnemon>> Re: Как дублиравать информацию в другой файл автоматом?
2011-01-12 15:03 http://forum.msexcel.ru/profiles/mnemon-u62309.html
Евгений А.
Общий доступ к файлу есть и менеджеры могу работать одновременно, только один заходит в файл "Только для чтения" а в этом режиме можно сохранить копию исправленного файла а не сам файл

litera>> Re: Суммирование по разным критериям и разным столбцам (но не суммеслимн) Excel07
2011-01-12 15:07 http://forum.msexcel.ru/profiles/litera-u38128.html
спасиб огромное))) Улыбка

Евгений А.>> Re: Как дублиравать информацию в другой файл автоматом?
2011-01-12 16:08 http://forum.msexcel.ru/profiles/genyaa-u111.html
Нет, нет... я говорю об организации общего доступа к файлу не в сети, а в Excel. Наберите в Справке Excel "Использование общей книги для совместной работы" и следуйте данным там инструкция, как создать общую книгу для совместной работы с книгой. В этом режиме можно редактировать и сохранять файл одновременно нескольким пользователям. (Правда некоторые возможности самого Excel будут немного ограничены.)

Dmitr68>> Re: Суммирование по разным критериям и разным столбцам (но не суммеслимн) Excel07
2011-01-12 16:09 http://forum.msexcel.ru/profiles/dmitr68-u18737.html
Можно и простой СУММЕСЛИ:

Код:
=СУММЕСЛИ(ИСХОДНИК!$B$2:$B$30;B$1;ИНДЕКС(ИСХОДНИК!$C$2:$I$30;;ПОИСКПОЗ($A2;ИСХОДНИК!$C$1:$I$1;0)))

Roman.H>> Удаленно обновить запрос и сводную
2011-01-12 17:12 http://forum.msexcel.ru/profiles/romanh-u60392.html
Всем привет!
Поиск по форуму не помог, возможно уже кто-то и спрашивал..

Дело вот в чем:
1. У меня есть файл с запросом из базы данных (сам файл называется "Остатки") и на другом листе сводная таблица по этому запросу.
2. Есть кнопочка в этом файле, которая обновляет запрос и сводную по одному клику. Вот ее код:

Код:
Sheets("Остатки").Range("A2").QueryTable.Refresh BackgroundQuery:=False
Sheets("Сводная").PivotTables("СводнаяТаблица1").PivotCache.Refresh

А вот что хочу сделать - в совершенно другом файле есть ссылки на данные с файла "Остатки", я хочу повесить кнопку, которая будет удаленно (без открывания) обновлять запрос и сводную, а также связи с ней.
И вот с этим возникли сложности  В замешательстве

Ingvar>> Re: Выполнение в эксели макросом процедуры сжатия базы данных Акцесс
2011-01-12 17:43 http://forum.msexcel.ru/profiles/ingvar-u5141.html
Что вообще не вариант?

Ingvar>> Re: Удаленно обновить запрос и сводную
2011-01-12 17:44 http://forum.msexcel.ru/profiles/ingvar-u5141.html
Проще подвязаться к базе данных и на динамический обновляемый запрос.
Когда в базе будут меняться данные. Достаточно будет обновить сводную и всё поменяеться.

Зачем городить кучу книг?

Roman.H>> Re: Удаленно обновить запрос и сводную
2011-01-12 17:50 http://forum.msexcel.ru/profiles/romanh-u60392.html
Запрос (и сводная) очень много весят, у меня сейчас так и сделано, но файл очень тяжелый становится, а мне еще туда много информации в дальнейшем вставлять

А да, и база меняется ежесекундно практически, вообще не вариант делать чтобы она автоматически обновлялась

Ingvar>> Re: Удаленно обновить запрос и сводную
2011-01-12 18:33 http://forum.msexcel.ru/profiles/ingvar-u5141.html
Тогда сделать слепок данных в таблице. А когда нужно пересоздать таблицу в базе.
 
1. Привязываешь сводную к нужной таблице.
2. В базе запросом создаешь таблицу с нужными данными(не всеми для оптимизации)
3. В итоге можно для быстроты обновлять таблицу из Екселя или Акцесс.

В Екселе пересоздание можно запустить макросом, подвязав его выполнение на кнопку например(дополнительно можно и автообновление сводной сделать):

Код:
Sub ReCreatelTab()
bn_ = "test.mdb"  'Имя файла базы
zn_ = "CreateTable"   ' Имя запроса на
Set a_ = CreateObject("Access.Application")
On Error GoTo A
With a_
    .Visible = 0
    .opencurrentdatabase ThisWorkbook.Path & "\" & bn_
    .docmd.OpenQuery zn_
End With
Exit Sub
A:
On Error Resume Next
Set a_ = Nothing
On Error GoTo 0
End Sub

toxic>> создание диаграмм
2011-01-12 18:33 http://forum.msexcel.ru/profiles/toxic-u62484.html
Здравствуйте! В процессе выполнения задания возник вопрос. Необходимо построить диаграмму по заданным данным, причем вид полученной диаграммы должен совпадать с приведенной. В некоторых случаях данный необходимо реорганизовать.
Мучаюсь уже довольно долго, у самой ничего толкового не выходит... Не могли бы добрые люди хотя бы подсказать, в каком направлении двигаться?...
Вообщем, вот данные (2 таблицы) и 2 диаграммы, которые нужно получить.

missttv>> Re: создание таблицы для учета среднемесячных остатков
2011-01-12 19:09 http://forum.msexcel.ru/profiles/missttv-u51690.html
всегда поражалась таким людям! мегамозг!, в отличие от меня  Обеспокоенный!
второй файлик очень классный, но можно как сделать что бы еще все субботы сварачивались и в столбце допустим Q1:Q3 если от руки дописать праздники, то они сами бы добавились в столбец, даже если это суббота. а?!!!  :Улыбка

TimSha>> Re: создание диаграмм
2011-01-12 19:24 http://forum.msexcel.ru/profiles/timsha-u13313.html
Вариант -  гистограмма, изменить для ряда и по допоси... Далее - по аналогии, F1 в поддержку... Подмигивающий

toxic>> Re: создание диаграмм
2011-01-12 20:55 http://forum.msexcel.ru/profiles/toxic-u62484.html
Спасибо большое, я разобралась с ней!!! Улыбка
А насчет первой не подскажете? я там не пойму никак, у меня по этим данным совсем другое получается, когда пытаюсь построить... Может, там тоже надо что-то изменить в самой диаграмме?

admin>> Цикл с параметром: группа For
2011-01-13 01:18 http://forum.msexcel.ru/profiles/admin-u36437.html
Цикл с параметром: группа For
Даны целые числа K и N (N > 0). Вывести N раз число K.

Помогите организовать это в VBA в excel.

За ранее благодарен!!!

KuklP>> Re: создание таблицы для учета среднемесячных остатков
2011-01-13 10:44 http://forum.msexcel.ru/profiles/kuklp-u39713.html
На первый вопрос: у Вас Module1 макрос HideHolidaysOnly это делает. Ну добавьте в модуль книги:
Private Sub Workbook_Open()
    Call HideHolidaysOnly
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Call HideHolidaysOnly
End Sub
На второй... м-да. Ну, давайте подождем, пока меня осенит вдохновение.

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