Отправляет 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 за неделю
←   Все выпуски   →

Selma>> Re: Как объединить данные нескольких листов на один лист


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

Выпуск 53
от 2011-01-07

Подписчиков: 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"

Selma>> Re: Как объединить данные нескольких листов на один лист
2010-12-30 11:04 http://forum.msexcel.ru/profiles/selma-u59891.html
А есть ли какое-то средство для самого обычного копирования листов одной книги на новый лист сверху вниз? Не нужна абсолютно никакая консолидация цифр, их нет, заголовки можно считать обычными ячейками и никак не учитывать.
Количество колонок на листах разное, нужно скопировать всё.
Заранее спасибо!

_Boroda_>> Re: Выполнение запросов(на создание) в Excel
2010-12-30 11:14 http://forum.msexcel.ru/profiles/boroda-u12234.html

Цитировать
Подскажите а макрос вида:
    Dim db As Object
 Set db = GetObject("путь\база.mdb", "Access.Application")
 
db.DoCmd.OpenQuery ("Запрос на создание")

Покатит?

У меня на обновление запроса в Аксе из Екселя работает такой
Код:
Sub tt()
bn_ = "База.accdb"
zn_ = "Test_zapr"
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

KuklP>> Re: Создание базы Access из Excel с помощью макросов - возможно?
2010-12-30 11:17 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Возможно. Я недавно выкладывал пример на этом форуме. Здесь:
http://forum.msexcel.ru/microsoft_excel/zadacha_soedineniya_faylov_i_dopolneniya_aksessbazy-t4425.0.html
Только название темы у Вас совсем не о том. Но и это можно и очень даже просто.

rek>> Re: Переход на последнюю непустую ячейку +n строк
2010-12-30 11:59 http://forum.msexcel.ru/profiles/rek-u59849.html
Спасибо за внимание к вопросу, после обеда постараюсь почистить копию файлика от конф. информации и выложить.

Евгений А.>> Re: Как объединить данные нескольких листов на один лист
2010-12-30 12:03 http://forum.msexcel.ru/profiles/genyaa-u111.html

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

_Boroda_>> Re: Как объединить данные нескольких листов на один лист
2010-12-30 12:08 http://forum.msexcel.ru/profiles/boroda-u12234.html
Макрос может быть, например, таким:

Код:
Sub tt()
s_ = Sheets.Count
Sheets.Add After:=Sheets(s_)
For i = 1 To s_
    r_ = Sheets(i).Cells.SpecialCells(xlLastCell).Row
    Sheets(i).Range("A1", Sheets(i).Cells.SpecialCells(xlLastCell)).Copy Sheets(s_ + 1).Range("a" & n_ + 1)
    n_ = n_ + r_
Next
End Sub

Евгений А.>> Re: Как помечать в ячейке цифры текстом
2010-12-30 12:11 http://forum.msexcel.ru/profiles/genyaa-u111.html
Может так? (см.файл)

_Boroda_>> Re: Переход на последнюю непустую ячейку +n строк
2010-12-30 12:34 http://forum.msexcel.ru/profiles/boroda-u12234.html
Вы случайно не это имели в виду?

Код:
Sub ttt()
n_=2' кол-во строк отступа
r_ = WorksheetFunction.Max(22, Range("a" & Rows.Count).End(xlUp).Row)
Range("A3:D22").Cut Range("a" & r_ + n_)
End Sub

Ingvar>> Re: Создание базы Access из Excel с помощью макросов - возможно?
2010-12-30 13:22 http://forum.msexcel.ru/profiles/ingvar-u5141.html

Возможно. Я недавно выкладывал пример на этом форуме. Здесь:
http://forum.msexcel.ru/microsoft_excel/zadacha_soedineniya_faylov_i_dopolneniya_aksessbazy-t4425.0.html
Только название темы у Вас совсем не о том. Но и это можно и очень даже просто.

Спасибо. В общем "почти" разобрался но заставил всё работать.
Единственно хотел спросить как сделать следующую операцию
Нужно добавить в столбей информацию из названия файла обработанного.
Например обработан файл Все регион Регион1 данные, Лист1
Нужно кроме данных из Лист1 добавить в 1й столбец или другой включенное название : "Регион1".

Ingvar>> Быстро вставить столбец данных с "Одинаковым значением" в Лист1 Excel
2010-12-30 13:47 http://forum.msexcel.ru/profiles/ingvar-u5141.html
Добрый день.

Прошу помочь если возможно сегодня по данному вопрос.
У меня на текущий момент есть вариант только 1:
1. открываем книгу
2. переходим на лист
3. делаем расчёт значения для вставки
4. Расчитываем диапазон данных для заполнения
5. Добавляем в нужный диапазон 1 столбец
6. Вставляем расчётное значения в ячейки диапазона.

Проблема в том что файлов много >10-12 и размер их 50-70 Мб. (в идеале если повезет 30МБ).
Есть ли другой вариант чтобы добавить значение в лист книги Excel?Непонимающий (макросом из другой книги)

Известно название листа - "Лист1", название файла, вставляемое значение в ячейки диапазона.

Подскажите в виде кода как это сделать. Очень нужно.


KuklP>> Re: Создание базы Access из Excel с помощью макросов - возможно?
2010-12-30 14:35 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Ingvar, а как бы Вы в запросе это добавляли? Вот эта строка:
"INSERT INTO " & strTableName & " IN '" & strMDBFile & "' SELECT * FROM [" & strXlSheetName & "$a1:i65536]"
это запрос SQL и знак * означает - все поля. Намек понятен? В файлах Эксель добавляйте все, что Вам нужно, а результат потом уже экспортируйте в базу. Так будет проще. И пожалуйста, старайтесь формулировать свои вопросы понятней. Ну что это:"Нужно добавить в столбей информацию из названия файла обработанного.
Например обработан файл Все регион Регион1 данные, Лист1
Нужно кроме данных из Лист1 добавить в 1й столбец или другой включенное название : "Регион1"."? Я минут десять сидел вылупившись в текст, стараясь его переварить. У Вас там есть подпрограмма Sub processFolder1(Pt$). Вот в ней и добавляйте все, что Вам нужно.

skyman11>> Re: как удалить из списка похожие значения?
2010-12-30 14:36 http://forum.msexcel.ru/profiles/skyman11-u53578.html
благодарю всех за подсказку!
эксел 2007  наиболее пригодился!!!

Ingvar>> Re: Создание базы Access из Excel с помощью макросов - возможно?
2010-12-30 15:31 http://forum.msexcel.ru/profiles/ingvar-u5141.html

Ingvar, а как бы Вы в запросе это добавляли? Вот эта строка:
"INSERT INTO " & strTableName & " IN '" & strMDBFile & "' SELECT * FROM [" & strXlSheetName & "$a1:i65536]"
это запрос SQL и знак * означает - все поля. Намек понятен? В файлах Эксель добавляйте все, что Вам нужно, а результат потом уже экспортируйте в базу. Так будет проще. И пожалуйста, старайтесь формулировать свои вопросы понятней. Ну что это:"Нужно добавить в столбей информацию из названия файла обработанного.
Например обработан файл Все регион Регион1 данные, Лист1
Нужно кроме данных из Лист1 добавить в 1й столбец или другой включенное название : "Регион1"."? Я минут десять сидел вылупившись в текст, стараясь его переварить. У Вас там есть подпрограмма Sub processFolder1(Pt$). Вот в ней и добавляйте все, что Вам нужно.
Прошу прощения.

Можешь уточнить я добавление реализовал вот так, примерно так(ниже код). Есть вариант добавить в лист1 ст...

Евгений А.>> Re: Быстро вставить столбец данных с "Одинаковым значением" в Лист1 Excel
2010-12-30 15:48 http://forum.msexcel.ru/profiles/genyaa-u111.html
Практически все, что можно сделать руками, можно сделать и макросом, из той же или из другой книги - не имеет значения. Одна трудность - понять бы задачу точно. Ваших пояснений мне лично не хватило для уверенности понимания. Может сможете показать на примере (в уменьшенном размере, конечно).

Wasilic>> Re: Быстро вставить столбец данных с "Одинаковым значением" в Лист1 Excel
2010-12-30 16:32 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Честно говоря, мне тоже, понятны только 1-й и 2-й пункты. Улыбка

KuklP>> Re: Создание базы Access из Excel с помощью макросов - возможно?
2010-12-30 18:37 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Не, в Ваших макрорекордерах рыться... Вот исправленый под Вас пример. А насчет скорости - эти самые Ваши вставки столбцов в эксе и тормозят. Лучше(как я уже писал) заранее обработать все файлы, а потом лить их в базу.

Дмитрий Demon>> Re: Как помечать в ячейке цифры текстом
2010-12-30 23:05 http://forum.msexcel.ru/profiles/dimoncon21-u1211.html
спс всем кто ответил

Serge 007 Вы попали точно по назначению, СПС

rek>> Re: Переход на последнюю непустую ячейку +n строк
2010-12-30 23:17 http://forum.msexcel.ru/profiles/rek-u59849.html
Во вложении пример одной из страниц актов суппорта. Их то и переносим в эксель.

Акт это строки с 3 по 22, вот их и надо скопировать со всем форматированием и вставить ниже за последним таким актом.

Сложность в том, что просто последней заполненной ячейкой не обойтись, т.к. строки под "затраты, детальные карты проезда etc" могут быть как заполнены частично, так и не заполнены вовсе.
Поэтому решено привязаться к вышеупомянутой ячейки "затраты..." и отсчитать вниз 5 строк, после чего вставить ранее скопированный акт и очистить нужные поля.

Далее все повторяется до бесконечности по нажатии ссылки вверху страницы "новая заявка"

Как то так.

С.М.>> Re: Переход на последнюю непустую ячейку +n строк
2010-12-31 01:35 http://forum.msexcel.ru/profiles/sm-u19758.html
rek, лист "Шаблон" можно скрыть :

belyilebed>> работа с данными
2010-12-31 08:26 http://forum.msexcel.ru/profiles/belyilebed-u56785.html
помогуте пожалуйста нужно даты в одну строку поставить типа
21 ноября 2001 года
а они черт знает как
21
ноября
2001
помогите пожалуйста начальство уже рвет и мечет!!!!!!!!!!!!

Ingvar>> Re: Быстро вставить столбец данных с "Одинаковым значением" в Лист1 Excel
2010-12-31 09:04 http://forum.msexcel.ru/profiles/ingvar-u5141.html

Честно говоря, мне тоже, понятны только 1-й и 2-й пункты. Улыбка

Мндя я то думал ))))
Но с учетом что я  до 3х ночи писал систему управления через Excel не думаю что я внятно обьясню.
В общем то что я имел ввиду в примере.
Хочется понять как это сделать быстрее(если в примере файл 15 кб то в реальности 50-60 Мб)

Потом данные загоняю в базу.

dimikust>> Re: работа с данными
2010-12-31 09:14 http://forum.msexcel.ru/profiles/dimikust-u55498.html

помогуте пожалуйста нужно даты в одну строку поставить типа
21 ноября 2001 года
а они черт знает как
21
ноября
2001
помогите пожалуйста начальство уже рвет и мечет!!!!!!!!!!!!
В вашем примере нет как таковых дат. Есть по три текстовых константы. Причем (на примере первой даты 01 Октября 2005): 01 - это три символа впереди перед 0 и 1 еще какой-то непонятный символ. Аналогично в 2005 - 5 символов (лишний символ приписан в конце).

В вашем случае самый простой вариант - это сцепить в ячейке соседнего столбца значения трех ячеей с этими текстами
A1&" "&A2&" "&A3      Здесь в А1 - 01, в А2 - "Октября", в А3 - 2005.  А между ними пробелы.

_Boroda_>> Re: работа с данными
2010-12-31 09:24 http://forum.msexcel.ru/profiles/boroda-u12234.html
Если даты можно не как действительно даты (числа в формате дат), а текстом, то см. вложение.
Если нужно именно формата 01.01.2011 - пишите

vovik_lmz>> Re: Пополняемый список+вывод позиций из списка по первым введенным буквам
2010-12-31 09:25 http://forum.msexcel.ru/profiles/voviklmz-u35820.html

s'il vous plaît :

Вот скриншот у вас в архиве-то что и требуется
Но в примере же не то

iron priest>> Re: работа с данными
2010-12-31 09:27 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
на кой черт по 2 одинаковых тем создавать?

http://forum.msexcel.ru/microsoft_excel/excel_rabota_s_dannymi-t4616.0.html




пустые ячейки сами удалите

Ingvar>> Re: Создание базы Access из Excel с помощью макросов - возможно?
2010-12-31 09:30 http://forum.msexcel.ru/profiles/ingvar-u5141.html

Не, в Ваших макрорекордерах рыться... Вот исправленый под Вас пример. А насчет скорости - эти самые Ваши вставки столбцов в эксе и тормозят. Лучше(как я уже писал) заранее обработать все файлы, а потом лить их в базу.
Спасибо.

Но столкнулся с проблемой сделал адаптировал дописал управлени модулями и таблица Access в эксель. Для просмотра, добавления, удаления.
Локально работает всё - супер.

Выкладываю в сеть делаю ссылки на ресурсы все рубится на этапе добавления в базу... пишет что не может найти путь.
Где копать уже и так и сяк...

belyilebed>> Re: работа с данными
2010-12-31 09:39 http://forum.msexcel.ru/profiles/belyilebed-u56785.html
спасибо большое Веселый

KuklP>> Re: Создание базы Access из Excel с помощью макросов - возможно?
2010-12-31 09:55 http://forum.msexcel.ru/profiles/kuklp-u39713.html
А что у Вас находится по этому пути, база? Или файлы, из к-рых собираются данные?

iron priest>> Перенесено: Отображение зарплатных данных
2010-12-31 09:56 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
Тема перенесена в Microsoft Excel.

http://forum.msexcel.ru/index.php?topic=4487.0

_Boroda_>> Re: Переход на последнюю непустую ячейку +n строк
2010-12-31 10:17 http://forum.msexcel.ru/profiles/boroda-u12234.html
Еще вариант

Ingvar>> Re: Создание базы Access из Excel с помощью макросов - возможно?
2010-12-31 10:22 http://forum.msexcel.ru/profiles/ingvar-u5141.html
По этому пути файлы которые добавляются в базу.
База на уровень выше.
Самое странное что локально не в сети. Всё работает.
Куда бы я не перенастроил систему с файлами(диск C,E,подпапки с кучей вложений(с русскими именами) и т.п.)
Я попробывал в разным сетевых ресурсах выложить одна и таже ошибка не может найти файлы для добавления в базу с помощью запроса.
Пробывал пути с разными названиями в сети.

vovik_lmz>> ошибка в коде
2010-12-31 10:25 http://forum.msexcel.ru/profiles/voviklmz-u35820.html
В данном коде есть ошибка
суть в том что тот диапазон (Range("AH" & i) и Range("AI" & i))  с которым работает макрос, имеет много пустых ячеек
И поэтому если у меня не заполнены ячейки Cells(20, 5) и Cells(30, 6), то бесконечно выскакивает сообщение   MsgBox "Прежде чем добавлять, заполните поля Организация подрядчик и Договор (номер и дата)"
, пока нафик в диспетчере задач Эксель не завершу
Поправьте пожалуйста код


Sub Всписок()
For i = 2 To 5000
 If Range("AH" & i) = Range("E20") Then
 If Range("AI" & i) = Range("F30") Then
If Cells(20, 5) <> "" And Cells(30, 6) <> "" And Cells(30, 11) <> "" Then
MsgBox "Организация: " & Cells(20, 5) & " договор № " & Cells(30, 6) & " от " & Cells(30, 11) & " уже есть в списке"
 
  Else
 
 If Cells(20, 5) <> "" And Cells(30, 6) <> "" And Cells(30, 11) <> "" Then
       st = Cells(Rows.Count, 34).End(xlUp).Row + 1
       Cells(st, 34) = Cells(20, 5) 'добавление организации в список
       Cells(st, 35) = Cells(30, 6) 'добавление номера договора в ...

Ingvar>> Re: Выполнение запросов(на создание) в Excel
2010-12-31 10:26 http://forum.msexcel.ru/profiles/ingvar-u5141.html

Цитировать
Подскажите а макрос вида:
    Dim db As Object
 Set db = GetObject("путь\база.mdb", "Access.Application")
 
db.DoCmd.OpenQuery ("Запрос на создание")

Покатит?

У меня на обновление запроса в Аксе из Екселя работает такой
Код:
Sub tt()
bn_ = "База.accdb"
zn_ = "Test_zapr"
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

В 2003 пойдет? Исходя из кода похоже на 2007-2010 офис ... и ссылок. У меня просто данный вариант в 2003 выдает ошибку. Не может определить переменные

vovik_lmz>> Re: ошибка в коде
2010-12-31 10:29 http://forum.msexcel.ru/profiles/voviklmz-u35820.html
вот такой код
Sub Всписок()
For i = 2 To 5000
 If Range("AH" & i) = Range("E20") Then
 If Range("AI" & i) = Range("F30") Then
If Cells(20, 5) <> "" And Cells(30, 6) <> "" And Cells(30, 11) <> "" Then
MsgBox "Организация: " & Cells(20, 5) & " договор № " & Cells(30, 6) & " от " & Cells(30, 11) & " уже есть в списке"
 
  Else
 
 If Cells(20, 5) <> "" And Cells(30, 6) <> "" And Cells(30, 11) <> "" Then
       st = Cells(Rows.Count, 34).End(xlUp).Row + 1
       Cells(st, 34) = Cells(20, 5) 'добавление организации в список
       Cells(st, 35) = Cells(30, 6) 'добавление номера договора в список
       Cells(st, 36) = Cells(30, 11) 'добавление даты в список
       MsgBox Cells(20, 5) & " - ДОБАВЛЕНО В СПИСОК ОРГАНИЗАЦИЙ"
      Else
       MsgBox "Прежде чем добавлять, заполните поля Организация подрядчик и Договор (номер и дата)"
 
End If
 End If
 End If
 End If
Next

End Sub

KuklP>> Re: Создание базы Access из Excel с помощью макросов - возможно?
2010-12-31 10:46 http://forum.msexcel.ru/profiles/kuklp-u39713.html
В сетевом пути пробелов нет?

_Boroda_>> Re: Выполнение запросов(на создание) в Excel
2010-12-31 10:52 http://forum.msexcel.ru/profiles/boroda-u12234.html
1. Расширение у Вашего файла должно быть не accdb, как у меня, а mdb.
2. Нужно подключить библиотеку Майкрософт Access обджект (в VBA Тулс-Референсис ставим галку).
Остальное от версии не зависит

KuklP>> Re: Прверка соответсвия строки требованиям к имени файла, и замена запрещенных...
2010-12-31 10:56 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Так еще, без функций листа:

Public Function Replace_symbols(ByVal sStr As String) As String
    Dim i As Byte
    Dim St As String
    St = "~!@#$%^&*=|`'"
    For i = 1 To Len(St)
        sStr = Replace(sStr, Mid(St, i, 1), "_")
    Next
    Replace_symbols = sStr
End Function
Строку символов позаимствовал у Евгений А.

_Boroda_>> Re: ошибка в коде
2010-12-31 11:06 http://forum.msexcel.ru/profiles/boroda-u12234.html
Так и должно быть. У Вас две одинаковых строки
If Cells(20, 5) <> "" And Cells(30, 6) <> "" And Cells(30, 11) <> "" Then
мсжбокс будет выскакивать 4999 раз
Предположу, что первая не нужна

Ingvar>> Re: Выполнение запросов(на создание) в Excel
2010-12-31 11:24 http://forum.msexcel.ru/profiles/ingvar-u5141.html

1. Расширение у Вашего файла должно быть не accdb, как у меня, а mdb.
2. Нужно подключить библиотеку Майкрософт Access обджект (в VBA Тулс-Референсис ставим галку).
Остальное от версии не зависит

Спасибо библиотека не подключена была и в это и проблема была

С.М.>> Re: Пополняемый список+вывод позиций из списка по первым введенным буквам
2010-12-31 11:55 http://forum.msexcel.ru/profiles/sm-u19758.html

Но в примере же не то
"А у Вас есть точно такой же, но с перламутровыми пуговицами?" (с)
vovik_lmz, с наступающим !

vovik_lmz>> Re: ошибка в коде
2010-12-31 12:05 http://forum.msexcel.ru/profiles/voviklmz-u35820.html
так алгоритм таков, чтобы проверив ячейки на совпадение, сообщение появилось при условии что проверенные ячейки не были пустыми

Поэтому эту строку убрать нельзя

vovik_lmz>> Re: Пополняемый список+вывод позиций из списка по первым введенным буквам
2010-12-31 12:07 http://forum.msexcel.ru/profiles/voviklmz-u35820.html
Спасибо! Всех форумчан с наступающим!
Продолжим дискуссию после НГ

vovik_lmz>> Re: ошибка в коде
2010-12-31 12:08 http://forum.msexcel.ru/profiles/voviklmz-u35820.html
если строку If Cells(20, 5) <> "" And Cells(30, 6) <> "" And Cells(30, 11) <> "" Then
убрать, то при условии что ячейки пустые-бесконечно будет выскакивать сообщение
MsgBox "Организация: " & Cells(20, 5) & " договор № " & Cells(30, 6) & " от " & Cells(30, 11) & " уже есть в списке"

_Boroda_>> Re: ошибка в коде
2010-12-31 12:14 http://forum.msexcel.ru/profiles/boroda-u12234.html
Тогда кладите файл

Виктория Зуева>> С наступающим Новым годом!
2010-12-31 12:17 http://forum.msexcel.ru/profiles/buka3-u2668.html
Дорогие форумчане!

С наступающими праздниками всех вас!
Желаю вам весело провести эти дни (подальше от компьютеров)!
Надеюсь, что для многих из вас этот год останется в памяти только приятными воспоминаниями!
По поводу пожеланий - делюсь ссылкой:
http://lossofsoul.com/info/2011.htm

Во вложении - автопортрет в стиле Excel!   Целующий 

Ingvar>> Re: Выполнение запросов(на создание) в Excel
2010-12-31 12:40 http://forum.msexcel.ru/profiles/ingvar-u5141.html

1. Расширение у Вашего файла должно быть не accdb, как у меня, а mdb.
2. Нужно подключить библиотеку Майкрософт Access обджект (в VBA Тулс-Референсис ставим галку).
Остальное от версии не зависит

А подскажи еще, я столкнулся с тем что части обьектов и библиотек у других нет.
И соотвественно макрос не работает.
Как сделать так чтобы он с ними сразу сохранился и независимо от настроек Excel и т.п. библиотеки были бы внутри или связаны и всё работало.
Я одну по акцессу настроил ручками... а он гад следующую просит которая у меня есть а у других пользователей нет.
Грустный в общем ...
Что делать?

Ingvar>> Re: Создание базы Access из Excel с помощью макросов - возможно?
2010-12-31 12:41 http://forum.msexcel.ru/profiles/ingvar-u5141.html

В сетевом пути пробелов нет?

В названиях папок есть проблы
Например: X:\Отчеты текущие\База Тек\BaseSL

KuklP>> Re: Создание базы Access из Excel с помощью макросов - возможно?
2010-12-31 13:06 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Некототые сети-программы не понимают таких путей. Мне приходилось сталкиваться. Лечил так:

Код:
Public Function SpacesName(Ln As String) As String
    Dim a, i As Byte, b$
    a = Split(Ln, "\")
    For i = LBound(a) To UBound(a)
        If InStr(1, a(i), " ") > 0 Then
            a(i) = Chr(34) & a(i) & Chr(34)
        End If
        If b = "" Then
            b = b & a(i)
        Else
            b = b & "\" & a(i)
        End If
    Next
    SpacesName = b
End Function

Пример использования:

Код:
Sub mname()
Dim a$
a = "C:\Documents and Settings\Default User\Local Settings\Application Data\Micro.xls"
MsgBox SpacesName(a)
End Sub

Алексей Шмуйлович>> Re: О борьбе со спамом
2010-12-31 16:21 http://forum.msexcel.ru/profiles/alexshm-u64.html
На форуме создана корзина для удаленных сообщений. Она поможет разобраться со спорными ситуациями при удалении сообщений и восстановить ошибочно удаленные. Корзина доступна только  модераторам.

Джоник>> С приходящим годом кролика вас друзья!
2010-12-31 17:21 http://forum.msexcel.ru/profiles/dzhonik-u30110.html
Ребята и девчата!
Вот заканчивается 2010-ый. Кому он был удачным, а кому не очень. Но безспорно - это был год нашей с вами жизни. С его холоднющей зимой и очень жарким летом. С его удачными и неудачными днями. С его напряженными рабочими - , и приятными часами отдыха. С его радостными и горькими минутами нашей повседневной земной жизни.
И вот, через несколько часов он станет нашей историей.А Новый 2011-ый - станет нашей надеждой и нашим сомнением.
Как хочется, чтобы для всех нас он был счастливым, здоровым, радостным и удачным.
Поэтому и желаю всем вам в Новом году, только доброго и светлого, душевного и сердечного течения вашей земной жизни и безбедного бытия!!!
С уважением к вам, Джоник!

rek>> Re: Переход на последнюю непустую ячейку +n строк
2010-12-31 19:03 http://forum.msexcel.ru/profiles/rek-u59849.html

Цитировать
rek, лист "Шаблон" можно скрыть :
Спасибо!
Вчера ночером методом экспериментов тоже дошел до использования отделного листа и скрытием его играясь с параметром Visible.
В коде не совсем понял одну строку

Цитировать
Set Cell = Cell.Offset(-1)

Или даже точнее

Цитировать
    Do Until Cell.Value = "Àêò ¹ á/í"
        Set Cell = Cell.Offset(-1)
    Loop
принцип работы.

Так же перенося на реальный пример с реальной заявкой выяснился еще нюанс. В рабоччей книги на листах закреплены области по 2-3 строки сверхут. Так в таком случае вылетает ошибка кода именно на ранее упомянутой строке....

tgm>> Re: С приходящим годом кролика вас друзья!
2010-12-31 19:16 http://forum.msexcel.ru/profiles/tgm-u43423.html
Уважаемые форумчане!

Пусть наступающий год принесет много приятных событий и счастливых моментов. Пусть появятся новые перспективы и воплотятся в жизнь поставленные задачи! Желаю крепкого здоровья, удачи и любви Вам и Вашим близким! Хорошего настроения и исполнения самых заветных желаний в канун Нового года!

С уважением,Сергей!

С.М.>> Re: Переход на последнюю непустую ячейку +n строк
2010-12-31 19:23 http://forum.msexcel.ru/profiles/sm-u19758.html

Так же перенося на реальный пример с реальной заявкой выяснился еще нюанс. В рабоччей книги на листах закреплены области по 2-3 строки сверхут. Так в таком случае вылетает ошибка кода именно на ранее упомянутой строке....
rek, сделайте табличку по структуре максимально приближенной к "боевой".
Зачем Offset(-1) объясню потом: оливье надо рубить. С наступающим!

rek>> Re: Переход на последнюю непустую ячейку +n строк
2010-12-31 19:40 http://forum.msexcel.ru/profiles/rek-u59849.html
ОК
Вытащил из оригинальной листик.
У мя  оливье уже женой нарублен, VBA захватило Улыбка Прикупил "Технологию создания пользовательских приложений" теперь читать пытаюсь вместо НГ Улыбка

Кстаи, параллельно вопрос, на макрос может ссылаться только кнопка или подобный объект или можно "прикрутить" к нажатию на гиперссылку или что то подобное (в примере ссылка "новая заявка"

rek>> Re: календарь
2010-12-31 21:11 http://forum.msexcel.ru/profiles/rek-u59849.html

Цитировать
забыл зарегестрировать скопированную форму в вба.
Кстати, кстати, а как она регистриуется?
Regsvr32 c:\windows\system32\mscal.ocx вроде сказал, нужно что то еще сделать? Сорри, за ламерский вопрос, только начал разбираться...

rek>> Re: календарь
2010-12-31 22:14 http://forum.msexcel.ru/profiles/rek-u59849.html
Усе, разобрался, Tools --> References и обзор

С.М.>> Re: Переход на последнюю непустую ячейку +n строк
2010-12-31 23:20 http://forum.msexcel.ru/profiles/sm-u19758.html

VBA захватило. Прикупил "Технологию создания пользовательских приложений" теперь читать пытаюсь вместо НГ
Шокирован  Улыбка
Если что не так - сорь - выпимши был:

iron priest>> Re: С приходящим годом кролика вас друзья!
2010-12-31 23:28 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
С НОВЫМ ГОДОМ!!!  Пивасик Пивасик Пивасик

rek>> Re: Переход на последнюю непустую ячейку +n строк
2011-01-01 04:09 http://forum.msexcel.ru/profiles/rek-u59849.html
Кажись поняАл Улыбка Сложновато с написания процедур под sql на сие переключиться. Несколько иное мировоззрение нужно Улыбка Спасибо! Утром ще раз пересмотрю.
С Новым Годом! Всех благ!

iron priest>> Re: С наступающим Новым годом!
2011-01-01 09:59 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
С новым годом!!!

снегоВики прикольные!!! Улыбка

Василий Алибабаевич>> Re: С приходящим годом кролика вас друзья!
2011-01-01 22:51 http://forum.msexcel.ru/profiles/vasiliy_alibabaevich-u4466.html
Присоединяюсь!

sklu>> Re: С приходящим годом кролика вас друзья!
2011-01-02 09:30 http://forum.msexcel.ru/profiles/sklu-u4954.html
C Новым 2011 кроличьим самым быстрым как сам кролик годом!!!

dimikust>> Re: Быстро вставить столбец данных с &quot;Одинаковым значением&quot; в Лист1 Excel
2011-01-02 10:51 http://forum.msexcel.ru/profiles/dimikust-u55498.html
Чтобы не перелопачивать все файлы сразу можно действительно добавлять этот первый столбец только в тех файлах, которые открываются. Для этого в вашем примере достаточно иметь несколько меньший макрос. Здесь приводится еще несколько упрощенный от того, который вам нужен.

Sub ДобавленииеСтолбца()
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
[A1] = "Регион"
[A2] = "НазваниеРегиона" ' реальное откуда-то добыть
[A2].Select
Selection.Copy
ДиапазонКопирования = "A2:A22" ' надо сформировать нужный диапазон
Range(ДиапазонКопирования).Select
ActiveSheet.Paste:   Application.CutCopyMode = False
[A1].Select
End Sub

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

zzl>> Re: Списки в Excel
2011-01-02 13:56 http://forum.msexcel.ru/profiles/zzl-u7067.html
Здравствуйте.
Имеется таблица. Лист Данные содержит данные по объектам. На листе ТО есть даты проведения ТО по группам объектов. Как создать выпадающий список на листе График, чтобы при  при добавлении номера группы на листе Данные Объект появлялся в этом списке и при его выборе отображался соответствующий номер договора из Данные и даты соответствующие данной группе из ТО.
Нашел пример - Динамически обновляемый раскрывающийся список для ввода данных, чувствую похоже, но ума не хватает, бьюсь неделю - результат по задаче 0, только ощущение правильности направления.
Просветите если можете, желательно с небольшим ликбезом. Файл прилагаю.
Спасибо.

unik>> Re: Настройка открытия в Excel 2010
2011-01-02 14:00 http://forum.msexcel.ru/profiles/unik-u10894.html
Программа не открывается в том виде, в котором была завершена предыдущая сессия. Способ Василича работает, а способ KuklP не применил из-за недостатка квалификации. Если можно, чуть подробнее

kae2004>> создание пользовательской формы
2011-01-02 14:13 http://forum.msexcel.ru/profiles/kae2004-u60325.html
С новым годом !!!
здравствуйте
помогите пожалуйста разобраться с заполнением формы
вкратце - проблема вот в чем – с 1 листа через кнопку Журнал заказа запускаю форуму -> заполняю форму данными нажимаю Сохранить – открывается Форма( 3 лист) – НО ОН ПУСТОЙ!!!





-----------------
Private Sub CommandButton1_Click
Dim Форма As Object
Dim I As Integer
Set Форма = Sheets("Форма")

Worksheets(“Форма”).Activate
For I = 1 To 100
If Форма.Cells(I, 1) = " " Then
Форма.Cells(I, 1) = TextBox1.Value
Форма.Cells(I, 2) = TextBox2.Value
Форма.Cells(I, 3) = TextBox3.Value
Форма.Cells(I, 4) = TextBox4.Value
Форма.Cells(I, 5) = ComboBox1.Value
Форма.Cells(I, 6) = TextBox5.Value
If OptionButton1 = True Then
Форма.Cells(I, 7) = "Наличные"
ElseIf OptionButton2 = True Then
Форма.Cells(I, 7) = "Чек"
ElseIf OptionButton3 = True Then
Форма.Cells(I, 7) = "Бартер"
End If
If CheckBox1.Value = True Then
Форма.Cells(I, Крутой = "Оплата ...

nilem>> Re: создание пользовательской формы
2011-01-02 17:18 http://forum.msexcel.ru/profiles/nilem-u30547.html
Вот, посмотрите.

KuklP>> Re: Настройка открытия в Excel 2010
2011-01-02 18:41 http://forum.msexcel.ru/profiles/kuklp-u39713.html

Программа не открывается в том виде, в котором была завершена предыдущая сессия. Способ Василича работает, а способ KuklP не применил из-за недостатка квалификации. Если можно, чуть подробнее
Будучи в Экселе жмем Alt+F11, в левой части выбираем personal.xls-ЭтаКнига в правое окошко вставляем код. Сохраняем, перегружаем Эксель, смотрим результат. Картинку прилагаю.

delphi>> добавление информации на лист
2011-01-02 18:47 http://forum.msexcel.ru/profiles/delphi-u60339.html
мне необходимо экспортировать определенные поля писем из Outlook 2003 в Excel 2003

Код:
Sub MyFirstMacros()

  Set xlApp = GetObject(, "Excel.Application")
    Dim myItems, myItem, myAttachments, myAttachment As Object
    Dim myOrt As String
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim Selecttion_ As Outlook.Selection
   

    On Error Resume Next
   
   
    Set myOlExp = myOlApp.ActiveExplorer
    Set Selecttion_ = myOlExp.Selection
   
    'for all items do...
    For Each myItem In Selecttion_
   
   
   
     xlApp.[A1] = myItem.To
    Next
   

   
End Sub


данный пример работает только с одной ячейкой

два вопроса

1) как мне каждый раз проверять наличие данных в ячейках?чтобы новые добавлялись снизу уже имеющихся данных

2) как мне реализовать цикл для подставки данных в ячейке?

то есть чтобы одно письмо он запихнул в a1..b1..c1 , второе- в a2...b2...c2 и так далее . потом когда я выделю вторую порцию писем-возвращаемся ...

kae2004>> Re: создание пользовательской формы
2011-01-02 19:23 http://forum.msexcel.ru/profiles/kae2004-u60325.html
nilem спасибо большое

Гостъ>> Копирование в текстовый файл значений нескольких несмежных ячеек по условию
2011-01-03 09:46 http://forum.msexcel.ru/profiles/gost-u28097.html
Доброго времени суток.
Кто может - помогите, пожалуйста. Есть таблица, напротив каждой строки которой можно проставлять метку. Как сделать таким образом, чтобы значения из определенных ячеек, находящихся в отмеченных с помощью меток строках копировались в текстовый файл. При этом если отмечено несколько строк, то они должны копироваться одновременно. В макросах разбираюсь очень слабо, и то что смог найти и написать сам, позволяет скопировать только первое найденное значение, а не все отмеченные. Подробнее описал проблему во вложенном файле. Подскажите как нужно подправить макрос, чтобы он выполнял требуемую задачу, если это возможно..

Артур>> Re: После нажатия клавиши Энтер, курсор переходит в заданую ячейку
2011-01-03 10:52 http://forum.msexcel.ru/profiles/artur-u59312.html

Два варианта по  адресу http://www.planetaexcel.ru/forum.php?thread_id=22203

Благодарю, подходят оба варианта. Еще раз спасибо.

dimikust>> Re: цикл с движением по столбцам
2011-01-03 11:41 http://forum.msexcel.ru/profiles/dimikust-u55498.html

Всех с Наступающим! Здоровья и удачи!


Всех с Наступившим! Здоровья и удачи!

Думаю, что здесь проблема не столько в том, чтобы скакать по столбцам, сколько в том, чтобы облегчить процесс создания правильно работающего кода. В принципе, изначальный вариант типа
a= Range("A1").value
b=Range("B1").value
b=Range("c1").value
от BloodNickА конечно же тоже будет работать только создавать его муторно.
В классике программирования для таких вещей были предусмотрены генераторы кода типа препроцессоры.

Я такими приемчиками очень активно пользуюсь в Excel, благо его возможности неисчерпаемы, а голь (это я про себя) на выдумки хитра. Мне приходилось обрабатывать плоскую БазуДанных с более, чем 150 столбиками. И наиболее правильным в том случае был именно вариант с индивидуальным вытаскиванием значения из каждого столбца (без цикла по столбцам). Потому, как основной цикл по строкам БД, и если при этом еще сделать цикл п...

nilem>> Re: Копирование в текстовый файл значений нескольких несмежных ячеек по условию
2011-01-03 12:29 http://forum.msexcel.ru/profiles/nilem-u30547.html
Попробуйте так. Измените путь для текстового файла. Жмем зеленую кнопку.

Djai>> Сравнение и вывод ячеек с максимальным значением, очень нужна помощь
2011-01-03 12:40 http://forum.msexcel.ru/profiles/djai-u60390.html
Есть задание: заполнить две справочные таблицы, сделать так что бы с помощью них автоматически, через формулы, заполнялась результативная таблица "Экономия затрат", и - "Определить группу продукции с максимальной экономией затрат.". То есть что бы из таблицы "Экономия затрат" автоматически определялось максимальное значение (в цифрах), но выводилась не это значение, а группа товара которой оно принадлежит. Группа товара прописана в другой таблице.   

Если с первым справилась то с определением группы, все мозги вывихнула, "МАКС" будет выводить только цифры, пыталась извратится с "ЕСЛИ", но не получилось... Помогите пожалуйста!

dimikust>> Re: Сравнение и вывод ячеек с максимальным значением, очень нужна помощь
2011-01-03 12:46 http://forum.msexcel.ru/profiles/dimikust-u55498.html
А давайте Ваш пример. Это гораздо лучше, чем Ваше описание типа ГлухойТелефон

Djai>> Re: Сравнение и вывод ячеек с максимальным значением, очень нужна помощь
2011-01-03 12:56 http://forum.msexcel.ru/profiles/djai-u60390.html
Прикрепить файл с форматом docx форум запрещает, так что прикрепила архив

Serge 007>> Re: Сравнение и вывод ячеек с максимальным значением, очень нужна помощь
2011-01-03 13:01 http://forum.msexcel.ru/profiles/serge_007-u25260.html

Прикрепить файл с форматом docx форум запрещает...
И правильно запрещает.
Зачем на форуме по Excel файл Word?! Да ещё 7-й версии.
Вы бы ещё картинку приложили  Смеющийся
У меня вообще нет офиса, кроме Excel.

Djai>> Re: Сравнение и вывод ячеек с максимальным значением, очень нужна помощь
2011-01-03 13:07 http://forum.msexcel.ru/profiles/djai-u60390.html

И правильно запрещает.
Зачем на форуме по Excel файл Word?! Да ещё 7-й версии.
Вы бы ещё картинку приложили  Смеющийся
У меня вообще нет офиса, кроме Excel.

Понятно, сори, сглупила)) Тут то что я сделала, excel'левский файл, и txt файл с текстом задания

dimikust>> Re: Сравнение и вывод ячеек с максимальным значением, очень нужна помощь
2011-01-03 13:34 http://forum.msexcel.ru/profiles/dimikust-u55498.html

Может в прилагаемом файле ваше решение.

Djai>> Re: Сравнение и вывод ячеек с максимальным значением, очень нужна помощь
2011-01-03 13:46 http://forum.msexcel.ru/profiles/djai-u60390.html


Может в прилагаемом файле ваше решение.


Точно! Поняла! По идеи должно сработать. Спасибо огромное!!

Гостъ>> Re: Копирование в текстовый файл значений нескольких несмежных ячеек по условию
2011-01-03 14:25 http://forum.msexcel.ru/profiles/gost-u28097.html

Попробуйте так. Измените путь для текстового файла. Жмем зеленую кнопку.
  Спасибо огромное. Все работает. Буду сейчас пытаться разобраться в этом механизме;D
  Но можно ли сделать его, оставив на Листе"Настройки" позицию с номером, т.к. это не единственная таблица, которая будет использовать этот параметр и он будет периодически изменяться и обнуляться. И надо, чтобы в конечном файле он не повторялся (за исключением тех случаев, когда будет производиться обнуление).
  И данные которые отправляются в файл я сильно упростил... На самом деле они имеют несколько вариантов написания. Поэтому я вывел их в отдельную ячейку (значения в которых должно расчитываться не формулами, а также макросом). Можно ли учесть и эту особенность при таком варианте.

nilem>> Re: Копирование в текстовый файл значений нескольких несмежных ячеек по условию
2011-01-03 17:38 http://forum.msexcel.ru/profiles/nilem-u30547.html

Но можно ли сделать его, оставив на Листе"Настройки" позицию с номером, т.к. ...
Можно так, поячеешно Улыбка

artem_59>> Поиск и выделение строки
2011-01-03 18:29 http://forum.msexcel.ru/profiles/artem59-u34518.html
Добрый день!

Есть такая задача: На "Лист1" ячейка "А1" содержит число "5"

Необходимо создать макрос который найдет строку содержащую число "5" на "Лист2" и выделит её

Помогите пожалуйста реализовать. Спасибо.

VAZem>> Автоматический выбор значения из таблицы по координатам
2011-01-03 19:02 http://forum.msexcel.ru/profiles/vazem-u60428.html
Доброго времени суток, форумчане! Прошу не ругать, если повторяю тему, но на вашем огромном форуме не смог найти именно то, что мне нужно, а нужно мне вот что (ну без вас мне никак не разобраться  :Улыбка): имеется основная таблица с двумя выпадающими списками в разных столбцах, с первым списком, скажем: А, Б, В, Г и вторым списком: 1, 2, 3. И пустой ячейкой - назовем ее "Х" и пока отложим ее. На том же листе, на котором и находится основная таблица, имеется вспомогательная (которую планируется скрыть, т.к. значения там фиксированные) вида:
    1   2   3
А А1 А2 А3
Б Б1 Б2 Б3
В В1 В2 В3
Г Г1 Г2 Г3
 Суть вопроса в том, как в ячейке "Х" основной таблицы прописать формулу и какую, чтобы при выборе из раскрывающихся списков, скажем в одном "В" и во втором "2" основной таблицы в ячейке "Х" отображалось значение "В2" из вспомогательной таблицы, как по координатам? Буду весьма признателен в помощи  Обеспокоенный Заранее благодарю!

Roman.H>> Re: Поиск и выделение строки
2011-01-03 19:13 http://forum.msexcel.ru/profiles/romanh-u60392.html
Можно сделать и без макроса.
Условное фоматирование можется вам помочь.
Вводите условие и делаете формат ячейки для него.

Roman.H>> Re: Автоматический выбор значения из таблицы по координатам
2011-01-03 19:16 http://forum.msexcel.ru/profiles/romanh-u60392.html
Если я правильно понял, то вам поможет формула "сцепить"

VAZem>> Re: Автоматический выбор значения из таблицы по координатам
2011-01-03 19:19 http://forum.msexcel.ru/profiles/vazem-u60428.html
...кто бы еще подсказал как это грамотно сделать.  Обеспокоенный

VAZem>> Re: Автоматический выбор значения из таблицы по координатам
2011-01-03 19:41 http://forum.msexcel.ru/profiles/vazem-u60428.html

...кто бы еще подсказал как это грамотно сделать.  Обеспокоенный
Пример давайте - подскажем.

...я же в первом сообщении описал суть проблемы или какие-то более конкретные вводные нужны?  :Улыбка

Roman.H>> Re: Автоматический выбор значения из таблицы по координатам
2011-01-03 19:43 http://forum.msexcel.ru/profiles/romanh-u60392.html
Экселевский файл с примером таблицы вложите, только лишь по описанию трудно понять что нужно сделать.

VAZem>> Re: Автоматический выбор значения из таблицы по координатам
2011-01-03 19:54 http://forum.msexcel.ru/profiles/vazem-u60428.html

Экселевский файл с примером таблицы вложите, только лишь по описанию трудно понять что нужно сделать.

...Хорошо. Вот заготовка. Цветом выделены "проблемные" области. Спасибо за поддержку

Гостъ>> Re: Копирование в текстовый файл значений нескольких несмежных ячеек по условию
2011-01-03 20:02 http://forum.msexcel.ru/profiles/gost-u28097.html

Можно так, поячеешно Улыбка
  Да, так вполне подходит. Спасибо.
  Но не могли бы вкратце описать алгоритм его работы. Почему указано, что в столбце P должны быть либо нули, либо текст, хотя на дале что при нулях, что при пустых ячейках, что при заполненных (если в них просто набран текст), все эти строки игнорируются. Обработка происходит ТОЛЬКО если этот текст выводится через формулу в ячейке. Как такое может быть  Шокирован .
  И поскольку у меня для других таблиц изменение Номера Записи происходит до внесения в текстовый файл, а в данном случае после, пришлось добавить в Модуль строки: "nastr.Cells(2, 2) = nastr.Cells(2, 2) + 1" до открытия файла и соответственно "nastr.Cells(2, 2) = nastr.Cells(2, 2) - 1" после его закрытия. А можно ли сделать это иначе?  Улыбка

Serge 007>> Re: Автоматический выбор значения из таблицы по координатам
2011-01-03 20:03 http://forum.msexcel.ru/profiles/serge_007-u25260.html

Экселевский файл с примером таблицы вложите, только лишь по описанию трудно понять что нужно сделать.

...Хорошо. Вот заготовка. Цветом выделены "проблемные" области. Спасибо за поддержку
Так:
Код:
=ИНДЕКС($Y$13:$AA$17;ПОИСКПОЗ(C2;$X$13:$X$17;0);ПОИСКПОЗ(E2;$Y$12:$AA$12;0))
что-ли?

VAZem>> Re: Автоматический выбор значения из таблицы по координатам
2011-01-03 20:06 http://forum.msexcel.ru/profiles/vazem-u60428.html

Экселевский файл с примером таблицы вложите, только лишь по описанию трудно понять что нужно сделать.

...Хорошо. Вот заготовка. Цветом выделены "проблемные" области. Спасибо за поддержку
Так:
Код:
=ИНДЕКС($Y$13:$AA$17;ПОИСКПОЗ(C2;$X$13:$X$17;0);ПОИСКПОЗ(E2;$Y$12:$AA$12;0))
что-ли?

...именно так Веселый!!! Огромное спасибо Вам гуру excel!!! Спасибо всем, кто откликнулся! Я один фиг бы разобрался...

rusttemm>> Стыковка профильных труб
2011-01-04 00:23 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
   Имеются профильные стальные трубы, которые стыкуются а затем варятся в плети ручной дуговой сваркой. Профиль имеет сложную форму (показан в файле), который определяется четырьмя параметрами (значениями) D, H1, H2 и C. Все эти значения не идеальны, поэтому перед сваркой выполняются замеры каждого конца трубы (таблица Замеры). Далее происходит ручная стыковка труб, т.е. подбор наиболее близких значений D, H1, H2 и C (таблица Состыковано вручную). К первому концу трубы подбирается конец другой трубу, к нему соответственно конец следующей и так далее. Верхний конец первой и нижний конец последней труб не имеет профиля (круглые). Они не могут участвовать в процессе подбора.
   И еще! Можно трубу развернуть, чтобы стыковались конец2 - конец2 и конец1 - конец1. А также, поменять местами размеры Н1 и Н2. Шов трубы является только привязкой размеров Н1 и Н2.
   Задача, автоматизировать процесс стыковки (таблица Стыковка).
   Подскажите, пожалуйста, какую функцию для этой задачи можно прим...

dimikust>> Re: Поиск и выделение строки
2011-01-04 00:37 http://forum.msexcel.ru/profiles/dimikust-u55498.html

Есть такая задача: На "Лист1" ячейка "А1" содержит число "5"
Необходимо создать макрос который найдет строку содержащую число "5" на "Лист2" и выделит её
Помогите пожалуйста реализовать. Спасибо.

Можно так.
Sub ПоискСтрок()
ЧтоИскать = Sheets("Лист1").[A1].Value
For Строка = 1 To 65536
    For Столбец = 1 To 256
    ВЯчейке = Sheets("Лист2").Cells(Строка, Столбец).Value
        If ВЯчейке = ЧтоИскать Then
        ' пометить строку
        ДиапазонСтрока = Format(Строка) & ":" & Format(Строка)
        Rows(ДиапазонСтрока).Interior.ColorIndex = 45
        Exit For
        End If
    Next Столбец
Next Строка
End Sub


Но этот макрос может прерваться по ошибке, т.к. в зависимости от номера версии Excel нужно еще анализировать чтобы не произошел конфликт типов данных: например, сравнение числа с текстом может инициировать ошибку исполнения.

ZORRO2005>> Re: Стыковка профильных труб
2011-01-04 04:04 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
rusttemm,
я подглядел ответ на "Планете" и использовал формулу Казанского для определения отклонения.
Только для четырех труб у меня получилось 384 варианта стыковки.
Лучше написать макрос, который будет перебирать все варианты.
Вариант с помощью формул прилагаю.

P.S. Вначале пытался сделать с помощью поиска решения, но не получилось задать ограничения.
Да мне кажется, он (поиск решения) бы и не справился.

KuklP>> Re: добавление информации на лист
2011-01-04 11:20 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Примерно так в 2003. Не проверял, поскольку аутглюком не пользуюсь(он у меня не установлен).

Код:
Sub MyFirstMacros()
    Dim xlApp As Object
    Set xlApp = GetObject(, "Excel.Application")
    Dim myItems, myItem, myAttachments, myAttachment As Object
    Dim myOrt As String
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim Selecttion_ As Outlook.Selection
    Dim Lr
    Lr = xlApp.[A65536].End(xlUp).Row+1
    On Error Resume Next
    Set myOlExp = myOlApp.ActiveExplorer
    Set Selecttion_ = myOlExp.Selection
    'for all items do...
    For Each myItem In Selecttion_
        xlApp.[A1].Offset(Lr) = myItem.To
        Lr = Lr + 1
    Next
End Sub

rusttemm>> Re: Стыковка профильных труб
2011-01-04 11:22 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
Zorro2005, Вы по праву носите свое имя!
Вы действительно очень помогли мне, это то что нужно!
И если Вас не затруднит описать в двух словах что происходит на листе "Перебор" (для понимания хода мысли автора, хотя и так почти все понятно). И еще, как происходит перебор строк в столбцах D-K? Это я к тому, что если труб не 6, а больше. Где  (куда)придется вносить изменения в этом случае?
Заранее спасибо за ответ!

nilem>> Re: Копирование в текстовый файл значений нескольких несмежных ячеек по условию
2011-01-04 11:27 http://forum.msexcel.ru/profiles/nilem-u30547.html

Цитировать
Обработка происходит ТОЛЬКО если этот текст выводится через формулу в ячейке. Как такое может быть
Потому что мы используем .SpecialCells(-4123, 2), т.е. из столбца Р берем только те ячейки, в которых есть формула, и рассматриваем только те ячейки, формулы в которых возвращают текст (0 - число, и в наш диапазон не попадает). Так удобнее - всего одна строка в коде.
Цитировать
изменение Номера Записи происходит ... А можно ли сделать это иначе?
Наверное, можно. Тогда давайте полную версию файла, и покажите как должны выглядеть записи в текстовике и в отчете. Если это еще актуально...

KuklP>> Re: Поиск и выделение строки
2011-01-04 11:41 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Или так:

Код:
Sub MyFind()
' Макрос записан 04.01.2011 (Sergey)
Dim c As Range, firstAddress$
With Worksheets(2).Cells
    Set c = .Find(Worksheets(1).[a1], LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.EntireRow.Interior.ColorIndex = 7
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub
Выделит все строки с искомым значением.

missttv>> создание таблицы для учета среднемесячных остатков
2011-01-04 15:44 http://forum.msexcel.ru/profiles/missttv-u51690.html
Доброго всем времени дня!
С наступишим новым годом!

необходима табличка для расчета среднемесячных остатков чего-либо.
1. на листе "итог" добавляется новый месяц и автоматом создается новый лист с таким же названием (готово)
теперь самое сложное:
2. на вновь созданном листе в колонке "А", желательно, что бы в столбец прописались рабочие дни месяца, который создался, желательно без выходных (хотя как выйти из положения что бы в случае необходимости, отображалась рабочая суббота..... не знаю и даже не могу представить, по моему это не возможно).
пыталась выйти из положения через "РАБДЕНЬ" - не получилось  Злой

Буду очень благодарна за помощь!  Улыбка

неZнайк@>> Помогите написать формулу для рассчета з/п
2011-01-04 16:48 http://forum.msexcel.ru/profiles/neznayk-u60504.html
Добрый день!
Помогите, пожалуйста! Мне нужно написать формулу для расчета з/п.
Суть вот в чем: в одной ячейке я проставляю выполненный объем, а в другой ячейки должен появиться нужный процент. 
Данные для таблицы:
если объем от 0 до 300, то премия - 0,5%,
если объем от 301 до 400, то премия - 0,6%
если объем от 401 до 500, то премия - 0,7% и т.д.
Заранее благодарна.

nilem>> Re: Помогите написать формулу для рассчета з/п
2011-01-04 17:42 http://forum.msexcel.ru/profiles/nilem-u30547.html
В ячейке А1 - объем

=ВПР(A1;{0;0,005:301;0,006:401;0,007:501;0,008};2)
=ПРОСМОТР(A1;{0:301:401:501};{0,005:0,006:0,007:0,008})
=ИНДЕКС({0,005:0,006:0,007:0,008};ПОИСКПОЗ(A1;{0:301:401:501}))

missttv>> Re: Помогите написать формулу для рассчета з/п
2011-01-04 17:51 http://forum.msexcel.ru/profiles/missttv-u51690.html
где-то так
=ЕСЛИ(A1<=300;A1*0,5%;ЕСЛИ(И(A1>300;A1<400);A1*0,6%;A1*0,7%))

Abilov_ilja>> Подскажите ФОРМУЛУ РАСЧЕТА ПРОСРОЧЕННОСТИ ПАСПОРТА РФ
2011-01-04 18:01 http://forum.msexcel.ru/profiles/abilovilja-u60540.html
Смысл простой:

Есть текущая дата: =СЕГОДНЯ()

дата выдачи паспорта: ХХ.ХХ.ХХХХ (пример, формат ввода числа) вводится вручную

Дата рождения: ХХ.ХХ.ХХХХ (пример, формат ввода числа) вводится вручную



После чего в отдельной ячейке всплывает надпись: "Просрочен" или "ОК" в зависимости от того выполнено ли условие

Я просто сегодня целый день потратил пытался придумать формулу! Но ничего не вышло, может быть это не через формулу а через макрос можно сделать! Если кто знает как! Напишите подробно или дайте файл excel в пример что бы я по примеру у себя сделал! За ранее спасибо! Форум супер нашел очень много интересного!

missttv>> Re: Подскажите ФОРМУЛУ РАСЧЕТА ПРОСРОЧЕННОСТИ ПАСПОРТА РФ
2011-01-04 18:11 http://forum.msexcel.ru/profiles/missttv-u51690.html
а во сколько у Вас фото вклеивают и как часто меняют?

Serge 007>> Re: Помогите написать формулу для рассчета з/п
2011-01-04 18:20 http://forum.msexcel.ru/profiles/serge_007-u25260.html

Цитата: неZнайк@
Данные для таблицы:
если объем от 0 до 300, то премия - 0,5%,
если объем от 301 до 400, то премия - 0,6%
если объем от 401 до 500, то премия - 0,7% и т.д.
неZнайк@ , а если объём 400,5, то работнику Вы платить не собираетесь? Подмигивающий

missttv, проверьте свою формулу - она неправильная.

Serge 007>> Re: Подскажите ФОРМУЛУ РАСЧЕТА ПРОСРОЧЕННОСТИ ПАСПОРТА РФ
2011-01-04 18:25 http://forum.msexcel.ru/profiles/serge_007-u25260.html

...в отдельной ячейке всплывает надпись: "Просрочен" или "ОК" в зависимости от того выполнено ли условие...
Какое условие?

Serge 007>> Re: создание таблицы для учета среднемесячных остатков
2011-01-04 18:32 http://forum.msexcel.ru/profiles/serge_007-u25260.html


2. на вновь созданном листе в колонке "А", желательно, что бы в столбец прописались рабочие дни месяца, который создался, желательно без выходных (хотя как выйти из положения что бы в случае необходимости, отображалась рабочая суббота..... не знаю и даже не могу представить, по моему это не возможно).
пыталась выйти из положения через "РАБДЕНЬ" - не получилось  Злой
Здравствуйте.
Создайте список_праздничных_дней и используйте =ЧИСТРАБДНИ(начало_периода;конец_периода;список_праздничных_дней)

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

zs>> Re: Помогите написать формулу для рассчета з/п
2011-01-04 18:46 http://forum.msexcel.ru/profiles/zs-u24604.html
missttv, Ваш вариант =ЕСЛИ(A1<=300;0,5;ЕСЛИ(И(A1>=301;A1<=400);0,6;ЕСЛИ(И(A1>=401;A1<=500);0,7)))

MCH>> Re: Подскажите ФОРМУЛУ РАСЧЕТА ПРОСРОЧЕННОСТИ ПАСПОРТА РФ
2011-01-04 18:59 http://forum.msexcel.ru/profiles/mch-u48782.html
[code=ЕСЛИ(B2<ДАТАМЕС(B3;ПРОСМОТР(ГОД($B$1-B3)-1900;{0;20;45})*12);"Просрочен";"ОК")[/code]
в В1 - текущая дата
в В2 - дата выдачи
в В3 - дата рождения

zs>> Re: Помогите написать формулу для рассчета з/п
2011-01-04 19:02 http://forum.msexcel.ru/profiles/zs-u24604.html
so schön =ОКРУГЛВВЕРХ((0,5+(((A1-300)/100))/10);1)

zs>> Re: создание таблицы для учета среднемесячных остатков
2011-01-04 19:17 http://forum.msexcel.ru/profiles/zs-u24604.html
MIS,missttv! если статистические средние

zs>> Re: С приходящим годом кролика вас друзья!
2011-01-04 19:29 http://forum.msexcel.ru/profiles/zs-u24604.html
Кролика?)! Зайца?)! Кошки?)! Год....приходящий?)! Приходящим годом.... всех?)!

zs>> Re: Excel работа с данными
2011-01-04 21:49 http://forum.msexcel.ru/profiles/zs-u24604.html
если ноябрь пишут 11, то =ДАТАЗНАЧ(A1&"/"&A2&"/"&A3)
                           ноя, то =ДАТАЗНАЧ(A1&" "&B2&" "&A3)

Артур>> Не могу записать макрос. Выкладываю пример с задачей, которую надо решить.
2011-01-04 21:57 http://forum.msexcel.ru/profiles/artur-u59312.html
Не могу записать макрос, в котором бы работала команда найти.
Во время запсиси нажимаю Ctr+F, затем копирую в поле "найти" искомое значение (это дата).
Все, дальше ничего незаписывается, и макрос в последствиии не работает.
Я понимаю, что я чего-то не понимаю. Может поможет кто-нибудь?
На всякий случай вкладываю пример с задачей, которую надо решить.
Может по другому вообще можно?
Заранее спасибо всем!

Roman.H>> Поиск позиции с 2 условиями
2011-01-04 21:59 http://forum.msexcel.ru/profiles/romanh-u60392.html
Приветствую!
Помогите, пожалуйста, решить такую задачу (файл с описанием во вложении) - поиск в массиве данных по 2 (возможно потом и более) условиям

MCH>> Re: Поиск позиции с 2 условиями
2011-01-04 22:07 http://forum.msexcel.ru/profiles/mch-u48782.html
так?

Roman.H>> Re: Поиск позиции с 2 условиями
2011-01-04 22:11 http://forum.msexcel.ru/profiles/romanh-u60392.html

так?

Да! Спасибо! Теперь буду вникать в эту формулу))

KuklP>> Re: Не могу записать макрос. Выкладываю пример с задачей, которую надо решить.
2011-01-04 23:15 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Решение в виде картинки Вас устроит?

dimikust>> Re: Не могу записать макрос. Выкладываю пример с задачей, которую надо решить.
2011-01-04 23:46 http://forum.msexcel.ru/profiles/dimikust-u55498.html

Не могу записать макрос, в котором бы работала команда найти.

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

KuklP>> Re: Не могу записать макрос. Выкладываю пример с задачей, которую надо решить.
2011-01-05 00:06 http://forum.msexcel.ru/profiles/kuklp-u39713.html
"Найти" в ВБА. Воспользовался файлом dimikust.

ZORRO2005>> Комбинаторика с помощью Excel
2011-01-05 02:06 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
Друзья,
создал новую тему для решения задач, связанных с комбинаторикой.
Решения интересны, как с помощью формул, так и c помощью VBA.
Формул для решения задач по комбинаторике в интернете много,
но вот способов генерации всех вариантов в Excel мало, а формулами еще меньше.

Задачу №1 вытащил отсюда.
У меня получилось 384 варианта(ручками).

ZORRO2005>> Re: Стыковка профильных труб
2011-01-05 02:09 http://forum.msexcel.ru/profiles/zorro2005-u4225.html

И еще, как происходит перебор строк в столбцах D-K?
Создал отдельную тему:
http://forum.msexcel.ru/microsoft_excel/kombinatorika_s_pomoschyu_excel-t4642.0.html

неZнайк@>> Re: Помогите написать формулу для рассчета з/п
2011-01-05 08:11 http://forum.msexcel.ru/profiles/neznayk-u60504.html
Всем спасибо за помощь!  Улыбка

Артур>> Re: Не могу записать макрос. Выкладываю пример с задачей, которую надо решить.
2011-01-05 08:26 http://forum.msexcel.ru/profiles/artur-u59312.html

"Найти" в ВБА. Воспользовался файлом dimikust.
Все здорово работает, спасибо.

Гостъ>> Re: Копирование в текстовый файл значений нескольких несмежных ячеек по условию
2011-01-05 10:33 http://forum.msexcel.ru/profiles/gost-u28097.html
nilem, еще раз спасибо.
Я уже сам дальше во всем разобрался. Это как раз то что было нужно...  Улыбка

missttv>> Re: создание таблицы для учета среднемесячных остатков
2011-01-05 11:53 http://forum.msexcel.ru/profiles/missttv-u51690.html

Здравствуйте.
Создайте список_праздничных_дней и используйте =ЧИСТРАБДНИ(начало_периода;конец_периода;список_праздничных_дней)

[/quote]


и что мне это даст? данная функция отказывается работать пишет #ИМЯ?, у меня не установлен "пакет анализа" и установить нет возможности.
у меня проблема не посчитать количество рабочих дней, а что бы на вновь созданном листе автоматом прописывались рабочие дни созданного месяца и желательно без выходных, но с возможностью добавления рабочих суббот. вот...
ну или хотя бы просто прописывались дни месяца дальше я как-нить ручками.

MCH>> Re: Помогите написать формулу для рассчета з/п
2011-01-05 12:48 http://forum.msexcel.ru/profiles/mch-u48782.html

so schön =ОКРУГЛВВЕРХ((0,5+(((A1-300)/100))/10);1)
не правильно считает от 0 до 300
лучше так:
=0,5+МАКС(ОКРУГЛВВЕРХ((A1-300)/1000;1);0)
или так:
=0,5+МАКС(ЦЕЛОЕ((A1-201)/100)*0,1;0)

vladturbo>> Копирование и вставка по параметрам с определенным шагом значений и границ
2011-01-05 12:53 http://forum.msexcel.ru/profiles/vladturbo-u56826.html
Уважаемые Гуру! Подскажите пожалуйста!

Данный код копирует и переносит из определенного диапазона ячеек данные

1. Необходимо как-то изменить его, чтобы копировать и переносить в другие ячейки только значения и границы (а не формулы) PasteSpecial почему-то не работает!

2. И если есть такая возможность подскажите можно-ли Worksheet(ом) если активировать другой лист (допустим на Листе1 вносятся данные в определенный диапазон ячеек при клике на CommandButton на Лист2 копируются только значения и границы из диапазона на Листе1)

3. Соответственно если я на Листе1 ввожу новые данные (в тот-же диапазон) и кликаю на CommandButton повторно, то (опять-же) на Листе2 с отступом в 3 строки происходит вставка скопированных ЗНАЧЕНИЙ И ГРАНИЦ

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

Serge 007>> Re: создание таблицы для учета среднемесячных остатков
2011-01-05 13:37 http://forum.msexcel.ru/profiles/serge_007-u25260.html

и что мне это даст? данная функция отказывается работать пишет #ИМЯ?, у меня не установлен "пакет анализа" и установить нет возможности.
1. А что надо? В примере есть только "что есть" - "что хочу получить" - отсутствует.
2. Вы не можете поставить галку напротив надписи Analysis ToolPack в списке надстроек?!

dimikust>> Re: Копирование и вставка по параметрам с определенным шагом значений и границ
2011-01-05 14:03 http://forum.msexcel.ru/profiles/dimikust-u55498.html
У каждого програмирующего есть свои стереотипы. В Вашем примере некоторые вещи для меня необычные. Но поисследовав Ваш пример даю комментарии, которые, вероятно Вам помогут.

Private Sub CommandButton1_Click()
Range ("K6:Q22")                                      Эту строку вообще VBA у меня делать не хочет (Excel2003)
n_ = 3 ' количество строк отступа
r_ = WorksheetFunction.Max(22, Range("a" & Rows.Count).End(xlUp).Row)
Range("K6:Q22").Copy Range("a" & r_ + n_)                         Все копирование осуществляется уже этим оператором
                                                            Поэтому следующая строка глючит ей нечего копировать
Selecti.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Сделайте обычное

Range("K6:Q22").Copy
Range("a" & r_ + n_).Select
Selection.PasteSpecial Paste:=xlPasteValues, Oper...

KuklP>> Re: создание таблицы для учета среднемесячных остатков
2011-01-05 14:22 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Попробуйте добавить март. Это? Во втором варианте с учетом праздников, но... в Украине. Думаю разберетесь, как заменить на нужные.

vladturbo>> Re: Копирование и вставка по параметрам с определенным шагом значений и границ
2011-01-05 15:06 http://forum.msexcel.ru/profiles/vladturbo-u56826.html
dimikust
Спасибо, работает, кроме одного, не копируются границы (только значения)

dimikust>> Re: Копирование и вставка по параметрам с определенным шагом значений и границ
2011-01-05 15:13 http://forum.msexcel.ru/profiles/dimikust-u55498.html
А чтобы границы скопировались, нужно копировать кроме а) значений, еще и б) форматы.

Dmitr68>> Re: Комбинаторика с помощью Excel
2011-01-05 18:30 http://forum.msexcel.ru/profiles/dmitr68-u18737.html
Позиции 11, 12 и 59, 60 поправь.

Идея хорошая

zs>> Re: Помогите написать формулу для рассчета з/п
2011-01-05 19:52 http://forum.msexcel.ru/profiles/zs-u24604.html
MCH! от перестановки слагаемых сумма не меняется

ZORRO2005>> Re: Комбинаторика с помощью Excel
2011-01-05 21:14 http://forum.msexcel.ru/profiles/zorro2005-u4225.html

Позиции 11, 12 и 59, 60 поправь.
Поправил.

Dmitr68>> Re: Комбинаторика с помощью Excel
2011-01-05 22:27 http://forum.msexcel.ru/profiles/dmitr68-u18737.html
Количество вариантов ([abbr=Вводится через Ctrl+Shift+Enter]формула массива[/abbr]):

Код:
=ПРОИЗВЕД(СТРОКА(A1:ИНДЕКС(A1:A20;B1))*2)
где В1 - количество пар (труб)

VictorK>> Re: Списки в Excel
2011-01-05 22:33 http://forum.msexcel.ru/profiles/victork-u4470.html
zzl, а какая у Вас версия Excel?
Имеет значение, так как в Excel 2003 и старше имеются определенные ограничения при работе с выпадающими списками и пр.
Я пытался учесть пожелания о том, что дополнительные данные лучше располагать на отдельном листе, но при сохранении из Excel 2010 в старом формате xls получил сообщение о существенной потере функциональности.
Честно говоря, мои знания в Excel очень скромные, но задача заинтересовала.
На отдельном листе создал список объектов, удовлетворяющих условию "группа > 0" (идею почерпнул в Приемах на planetaexcel.ru, статья Поиск данных в таблице, но, по причине вышеописанных ограничений, выпадающий список на листе "График" не может брать данные с другого листа.

PS Впрочем, диапазону с данными на другом листе можно присвоить имя, тогда должно работать и в старых версиях.
Пока полностью не сделал, продолжаю ломать голову, кажется, задача не такая уж и сложная.

PPS Ну вот, что-т...

ZORRO2005>> Re: Комбинаторика с помощью Excel
2011-01-05 22:53 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
Отлично, Dmitr68
сдвинулись с мертвой точки.
=ПРОИЗВЕД(СТРОКА(ДВССЫЛ("1:"&B1))*2)
Формула массива

rusttemm>> Re: Комбинаторика с помощью Excel
2011-01-05 23:07 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
  Интересная тема, оказалась эта КОМБИНАТОРИКА!
Пролистал эти книжки:
Р. Стенли «Перечислительная комбинаторика»;
Я.С. Бродский «Статистика. Вероятность. Комбинаторика»;
В.Я. Гельман «Решение математических задач средствами Excel»
  Надо вникать!?
  А здесь http://algolist.manual.ru/maths/combinat/sequential.php есть методы программирования комбинаторики (правда не в VBA).
  Уважаемый Zorro2005, объясните, пожалуйста, 8!=40320, а по какому принципу Вы исключили ненужные перестановки до 384?  Может все это возможно сделать с функциями ПЕРЕСТ, ФАКТ и ЧИСЛКОМБ, а не в ручную? Извините если что не так спросил, знаний своих пока не хватает!
  Я все-таки хочу докопаться до истины для того, чтобы можно было использовать эту программу для стыковки любого количества труб (а не только 6 как в примере).
  Спасибо за ответ!

rusttemm>> Re: Комбинаторика с помощью Excel
2011-01-05 23:20 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
=ПРОИЗВЕД(СТРОКА(ДВССЫЛ("1:"&B1))*2)
Формула массива

Куда внести изменения? В столбец R (Конец)?

ZORRO2005>> Re: Комбинаторика с помощью Excel
2011-01-05 23:28 http://forum.msexcel.ru/profiles/zorro2005-u4225.html

...а по какому принципу Вы исключили ненужные перестановки до 384?  Может все это возможно сделать с функциями ПЕРЕСТ, ФАКТ и ЧИСЛКОМБ, а не в ручную? Извините если что не так спросил, знаний своих пока не хватает!
  Я все-таки хочу докопаться до истины для того, чтобы можно было использовать эту программу для стыковки любого количества труб (а не только 6 как в примере).
Так мы и пытаемся сделать не в ручную.
Мне тоже знаний не хватает, но я учусь. Подмигивающий
Перестановки я делал только для 4 труб.
Для большего кол-ва труб еще раз советую дождаться специалистов по макросам.

kimtan>> Re: Списки в Excel
2011-01-05 23:30 http://forum.msexcel.ru/profiles/kimtan-u12219.html
zzl, сделал первые две ячейки, остальное попробуйте сами по аналогии.

ZORRO2005>> Re: Комбинаторика с помощью Excel
2011-01-05 23:44 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
С перебором еще была тема:
http://forum.msexcel.ru/microsoft_excel/summirovanie_znacheniy_kolonki_na_predmet_poiska_summy_chisel_ravnoy_x-t977.0.html;msg26699#msg26699
Dmitr68, делал перестановки, но я никак не найду эту тему.

rusttemm>> Re: Комбинаторика с помощью Excel
2011-01-05 23:53 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
Спасибо Zorro2005! Буду дальше пытыться разобраться. В замешательстве

ZORRO2005>> Re: Комбинаторика с помощью Excel
2011-01-05 23:56 http://forum.msexcel.ru/profiles/zorro2005-u4225.html

Dmitr68, делал перестановки, но я никак не найду эту тему.
Нашел:
http://forum.msexcel.ru/microsoft_excel/kak_zapolnit_tablitsu_sochetaniyami_iz_90_po_5-t3116.0.html;msg17471#msg17471

rusttemm>> Re: Комбинаторика с помощью Excel
2011-01-06 00:03 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
Смотрю!  Непонимающий

maxformax>> Re: Нужно как-то заменить значения в ячейках на формулу
2011-01-06 00:17 http://forum.msexcel.ru/profiles/maxformax-u56650.html

Процедура ввода формул в процессе переноса данных не получится.
Набросал простой макрос для копирования заранее введенных формул в 3-ю строку определенного столбца. 

Спасибо большое за помощь! Это именно то, что нужно!
С наступившим Новым Годом!!!
Еще раз большое спасибо!

MCH>> Re: Помогите написать формулу для рассчета з/п
2011-01-06 00:30 http://forum.msexcel.ru/profiles/mch-u48782.html

MCH! от перестановки слагаемых сумма не меняется
В данном случае смысл не в "перестановке слагаемых", проверте свою формулы при значениях 0;100;200;300, она вычисляет 0,2;0,3;0,4;0,5 соответственно, а должно быть 0,5 во всех вариантах.

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

Отлично, Dmitr68
сдвинулись с мертвой точки.
=ПРОИЗВЕД(СТРОКА(ДВССЫЛ("1:"&B1))*2)
Формула массива
другой вариант, не массивная формула
Код:
=ФАКТР(B1)*2^B1

rusttemm>> Re: Комбинаторика с помощью Excel
2011-01-06 01:46 http://forum.msexcel.ru/profiles/rusttemm-u60451.html
Работает!

nilem>> Re: Комбинаторика с помощью Excel
2011-01-06 04:35 http://forum.msexcel.ru/profiles/nilem-u30547.html
Вот вариант с макросом для 1...4 труб (если одна труба - тоже ведь о двух концах Улыбка).
Для 5-ти и более труб нужны двузначные числа для обозначения концов труб, и код, видимо, д.б. совсем другой.

micael>> Заполнить ячейки по условию
2011-01-06 08:19 http://forum.msexcel.ru/profiles/micael-u60706.html
Доброго времени суток!! Такая тема. Есть два листа Лист1,Лист2
необходимо следующее пробежаться по строчкам и  заполнить поле(столбец D) Лист1 значениями из поля (столбца  D) Лист 2: по условию если значения (ячейки ) столбца В лист 1 = значению (ячейки) столбца В  лист2, также,   значения ячеек  столбца С лист1 и лист 2 совпадали.
Пример:  12 ячейка столбеца В имеет значение (зав.номер) 1435-67 и совпадает в двух листах, а так же ячейка столбеца С (назвение цеха к примеру( АСУ совпадает в двух листах то в ячейку столбца D пишем фамилию Иванов и т д.

Возможно такое: Пробежаться по ячейкам и заполнить по условию как сделать в ACCESS запросом знаю как это выполнить в Ecxel не соображу

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