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

Форум по Microsoft Excel

  Все выпуски  

KuklP>> Re: Макрос - цикличный поиск ячеек и вывод соседних строк


Форум по Microsoft Excel

Выпуск 39
от 2013-10-10

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

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



KuklP>> Re: Макрос - цикличный поиск ячеек и вывод соседних строк
2013-09-26 21:45 http://forum.msexcel.ru/index.php?action=profile;u=

Public Sub www()
    Dim a, i&
    Application.DisplayAlerts = 0
    a = [a4].CurrentRegion
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(a)
            If .exists(a(i, 1)) Then
                .Item(a(i, 1)) = .Item(a(i, 1)) & "|" & a(i, 2)
            Else
                .Item(a(i, 1)) = a(i, 2)
            End If
        Next
        [f36].Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
    End With
    Range("G36:G" & Cells(Rows.Count, 7).End(xlUp).Row).TextToColumns _
            [G36], DataType:=xlDelimited, Other:=True, OtherChar:="|"
    Application.DisplayAlerts = -1
End Sub


0mega>> 2-е книги на рабочем столе
2013-09-29 18:18 http://forum.msexcel.ru/index.php?action=profile;u=
 Доброго времени суток

2003
 В 7-ом офисе 2 книги открываются через ВИД - УПОРЯДОЧИТЬ ВСЕ.
Как в Office 2003 одновременно открыть несколько рабочих книг Excel ?

Дарья Ларионова>> Числовые характеристики по выборке в Excel
2013-09-30 14:27 http://forum.msexcel.ru/index.php?action=profile;u=
Имеется задача: Исследовался уровень подготовки в двух группах абитуриентов. В первой группе из 30 человек 7 имели высокий уровень, 19 – средний, остальные – низкий. Во второй группе из 40 человек 12 имели высокий уровень подготовки, 22 – средний, 6 – низкий. Представить результаты проведенного исследования. Как лучше построить таблицу,чтобы вычислить по ней числовые характеристики (такие как размах, стандартная ошибка и т.д.) ? Благодарю.


Varchello>> данные из ячейки разбить на несколько столбцов
2013-09-30 16:02 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый день, помогите, пожалуйста. есть программа по ведению домашней бухгалтерии, анализировать статистику проще в excel, при экспорте данных программа выгружает все в одну ячейку, как должен выглядеть макрос, который будет каждую ячейку разбивать на соответствующие столбцы. разделитель между данными ";".

Если не смог на русском объяснить то результат экспорта можно посмотреть в прикрепленном файле.

_Boroda_>> Re: данные из ячейки разбить на несколько столбцов
2013-09-30 16:08 http://forum.msexcel.ru/index.php?action=profile;u=
Выделите текст для разбивки, вкладка Данные - текст по столбцам, дальше там все понятно.
То же самое макросом
Sub tt()
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
End Sub


Varchello>> Re: данные из ячейки разбить на несколько столбцов
2013-09-30 16:36 http://forum.msexcel.ru/index.php?action=profile;u=
Большое человеческое спасибо :D

Борис Процко>> Re: Числовые характеристики по выборке в Excel
2013-09-30 16:46 http://forum.msexcel.ru/index.php?action=profile;u=
Готов помочь. Обращайтесь E-mail: Barsp@yandex.ru.

gregory9791>> Преобразование числа в денежном формате в текст (число прописью)
2013-10-01 11:30 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый день, Гуру Экселя!
В счете хочу автоматически формировать из числа в денежном формате (например 1030,50 руб.) сумму прописью (Одна тысяча тридцать рублей 50 копеек).
Прошу помочь.

Czeslaw>> Re: Преобразование числа в денежном формате в текст (число прописью)
2013-10-01 11:54 http://forum.msexcel.ru/index.php?action=profile;u=
Пожалуйста.

gregory9791>> Re: Преобразование числа в денежном формате в текст (число прописью)
2013-10-01 12:08 http://forum.msexcel.ru/index.php?action=profile;u=
У меня офис 2003 г. Файл открывается некорректно =(

goblonde>> Сообщение "fixed objects will move"
2013-10-01 12:52 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый день!
При работе фильтрами в таблицах регулярно выскакивает сообщение "fixed objects will move". Похоже, что это из-за комментариев в ячейках. Кто знает как с этим бороться, не применяя макросы?

Спасибо

war777>> Из одной таблицы сделать другую
2013-10-01 13:01 http://forum.msexcel.ru/index.php?action=profile;u=
5 часов просидел, но так и не получилось. Пробовал текстовыми и логическими формулами. Во вложении слева исходник,справа то что нужно.Может быть кто чего посоветует.
С уважением

gregory9791>> Re: Преобразование числа в денежном формате в текст (число прописью)
2013-10-01 13:37 http://forum.msexcel.ru/index.php?action=profile;u=
Czeslaw
Не работает, видимо проблема типа данных в офисе 2003 =(

cheshiki1>> Re: Преобразование числа в денежном формате в текст (число прописью)
2013-10-01 14:33 http://forum.msexcel.ru/index.php?action=profile;u=
надстройка
распаковываем и закидываем в c:\Documents and Settings\...\Application Data\Microsoft\AddIns\
ищем в "Пользовательских ф-циях"  - Сумма прописью... .

cheshiki1>> Re: Преобразование числа в денежном формате в текст (число прописью)
2013-10-01 14:37 http://forum.msexcel.ru/index.php?action=profile;u=
в файле как модуль.

Poltava>> Re: Из одной таблицы сделать другую
2013-10-01 22:43 http://forum.msexcel.ru/index.php?action=profile;u=
Макрос рассчитан на то что контрагенты выделены заливкой.

Игорь Демянчук>> Список с документами
2013-10-02 00:05 http://forum.msexcel.ru/index.php?action=profile;u=
всем привет!кто знает как сделать  список с документами,чтобы сразу их открыть и посмотреть?
пример показан на картинке.


war777>> Re: Из одной таблицы сделать другую
2013-10-02 09:23 http://forum.msexcel.ru/index.php?action=profile;u=
Спасибо огромное...то что нужно. А без макроса никак не получится?

gregory9791>> Re: Преобразование числа в денежном формате в текст (число прописью)
2013-10-02 10:07 http://forum.msexcel.ru/index.php?action=profile;u=
cheshiki1
Большое спасибо!!! Все работает!!! :D

iron priest>> Re: Из одной таблицы сделать другую
2013-10-03 09:05 http://forum.msexcel.ru/index.php?action=profile;u=
у всех контрагентов счет и реализация? или может быть договор и возврат например

war777>> Re: Из одной таблицы сделать другую
2013-10-03 09:10 http://forum.msexcel.ru/index.php?action=profile;u=
Да,только счёт и реализация...

Sophie>> Связь между Excel книгами.VBA.Обновление базы.
2013-10-03 09:41 http://forum.msexcel.ru/index.php?action=profile;u=
Дорогие форумчане!
Возник у меня  по работе некий вопрос.
Нуждаюсь в свежих идеях по реализации нижеизложенного.
Описываю задачу.

Есть у меня Папка А с сохраненными на каждую дату файлом,в котором куча инфо.
Есть папка Б в котором отчеты,и тоже сохраненные на каждую дату. Отчеты здесь формируются на основе множества данных и сохраняются далее в пдф при помощи макросов.

Мне нужно связать файлы из Б с соответствующей ему датой файлом из А. 
 Б-файлам для формирования отчетов нужно забирать из А-файлов некоторые данные.
Задача: обновить имеющуюся базу Б.

Все это нужно сделать при помощи  VBA. Файлы Еxcel-овские.
Скажите, пожалуйста, насколько реально это сделать?Насколько просто? Какие методы? Идеи?
Файлов много, они все тяжелые, с первого января 2013 по сегодняшний день. 


iron priest>> Re: Из одной таблицы сделать другую
2013-10-03 11:07 http://forum.msexcel.ru/index.php?action=profile;u=
выгрузка отчета из 1с 7.7? может проще переделать отчет?

Tanchik Lucky>> Группировка в Excel
2013-10-03 11:28 http://forum.msexcel.ru/index.php?action=profile;u=
Здравствуйте. Есть таблица со столбцами: начальная дата и конечная дата периода.
Нужно, чтобы период разбивался по месяцам, с указанием начальной даты в нужном месяце и конечной даты. Также нужно, чтобы в месяцах подсчитывалось количество дней.
Нач.дата |Кон.дата|_________Январь_______|______Февраль______|т.п.(месяца до конца года)
________|________|__нач__|__кон__|кол-во|__нач__|__кон__|кол-во|
30.01.13 | 02.02.13|30.01.13|31.01.13|__2___|01.02.13|02.02.13|__2__|
В принципе сделала, но мне кажется, что можно сделать проще. Может кто идею подаст?

war777>> Re: Из одной таблицы сделать другую
2013-10-03 11:56 http://forum.msexcel.ru/index.php?action=profile;u=
Нет из 8.2...да у нас такой программист по 1С, что проще в EXCEL корректировать

egorova>> Автозаполнение одинаковых позиции в смете
2013-10-03 13:37 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый день! Есть смета с заполненными наименованиями материалов  и их количеством, необходимо в соседних 2 столбцах проставить стоимость изделия и стоимость его монтажа. Беда в том что наименования довольно часто повторяются, а таблица большая... возможно ли сделать так чтобы автоматически заполнялись все одинаковые позиции с таким наименованием при вводе значений? например: кран  д.15 - везде поставились значения 600, 300 по всему документу. Заранее спасибо за ответ

ShAM>> Re: Автозаполнение одинаковых позиции в смете
2013-10-03 13:58 http://forum.msexcel.ru/index.php?action=profile;u=
Есть смета с заполненными наименованиями материалов  и их количеством,
У нас здесь нету.


iron priest>> Re: Из одной таблицы сделать другую
2013-10-03 13:59 http://forum.msexcel.ru/index.php?action=profile;u=
мало времени. пока так. формула + сводная

sergo44441>> Re: Связь между Excel книгами.VBA.Обновление базы.
2013-10-03 14:26 http://forum.msexcel.ru/index.php?action=profile;u=
Тут бы нужно видеть формат расположения данных в файлах, в каком виде нужно подтягивать данные
Сформируйте файл-пример: несколько строк из первого файла и из второго (с шапкой таблиц) и результат для 1-2 значений.
Если вопрос будет понятен, то и макрос не заставит себя ждать)))

sergo44441>> Re: Данные из БД
2013-10-03 14:28 http://forum.msexcel.ru/index.php?action=profile;u=
Прочитайте про работу с библиотеками ado и dao

Varchello>> удаление " руб."
2013-10-03 15:05 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый день, помогите советом

данные экспортируются из программы в csv, после переноса в excel в столбце суммы стоят значения суммы (например: 500,10 руб.) соответсвенно стандартные формулы excel не могут суммировать  эти значения. помогите с кодом, который будет удалять из ячейки " руб.". удолять нужно не только рубли но и пробел перед ними.

Poltava>> Re: удаление " руб."
2013-10-03 15:12 http://forum.msexcel.ru/index.php?action=profile;u=
1)Ctrl+F
2)Вкладка заменить
3)Пишем что на что меняем и наживаем заменить все.

Varchello>> Re: удаление " руб."
2013-10-03 15:21 http://forum.msexcel.ru/index.php?action=profile;u=
Ctrl+f убирает только руб а пробел в конце не убирает, так что после замены приходится в каждой ячейки руками убирать пробел, а это безперспективняк

cheshiki1>> Re: удаление " руб."
2013-10-03 15:27 http://forum.msexcel.ru/index.php?action=profile;u=
найти - так и записывайте " руб." (пробелруб.) ковычки стоят для показа.
заменить - оставляем пустой (ничего не пишем)

Varchello>> Re: удаление " руб."
2013-10-03 15:34 http://forum.msexcel.ru/index.php?action=profile;u=
я так пытался уже, excel пишет "соответствий не найдено"

cheshiki1>> Re: удаление " руб."
2013-10-03 15:39 http://forum.msexcel.ru/index.php?action=profile;u=
скопируйте нужное для удаления из ячейки. после импорта бывает что пробел не определяется пробел или файл покажите.

Varchello>> Re: удаление " руб."
2013-10-03 15:45 http://forum.msexcel.ru/index.php?action=profile;u=
вот образец

cheshiki1>> Re: удаление " руб."
2013-10-03 16:02 http://forum.msexcel.ru/index.php?action=profile;u=
смотрите

_Boroda_>> Re: удаление " руб."
2013-10-03 16:07 http://forum.msexcel.ru/index.php?action=profile;u=
Копируете ВСЮ ячейку В2; жмете Контрл Н; в поле "Найти" вставляете скопированное, стираете 77,60; жмете "Заменить все"; стираете в поле "Найти" буквы "руб." (остается пробел, который, на самом деле, не пробел, а неразрывный пробел - выглядят они одинаково, а по сути своей различаются); жмете "Заменить все".
Все.
Во, выше и видео приложили. Только там еще нужно заменить отдельно неразрывный пробел на пусто, чтобы текст типа 1 000 преобразовать в число 1000

Czeslaw>> Re: удаление " руб."
2013-10-03 21:29 http://forum.msexcel.ru/index.php?action=profile;u=
Можно и с помощью формулы
=--SUBSTITUTE(MID(B2;1;SEARCH("р";B2)-2);CHAR(160);"")

Sophie>> Re: Связь между Excel книгами.VBA.Обновление базы.
2013-10-04 09:11 http://forum.msexcel.ru/index.php?action=profile;u=
Тут бы нужно видеть формат расположения данных в файлах, в каком виде нужно подтягивать данные
Сформируйте файл-пример: несколько строк из первого файла и из второго (с шапкой таблиц) и результат для 1-2 значений.
Если вопрос будет понятен, то и макрос не заставит себя ждать)))

Мне бы только подсказки.

 Дело в том, что имеются ряд файлов, названые "FolderA20130503", "FolderA20130504" и тд, в одной папке, "FolderB  03.05.13", "FolderB  04.05.13".  Мне нужно, чтоб моя программа брала открывала А файл и находила в папке Б соответствующий ему по числу файл из Б. То есть, мне нужно, чтоб он распознавал совпадающие числа из А и Б. Нужно как-то convert сделать.

Wasilic>> Re: Сообщение "fixed objects will move"
2013-10-04 10:51 http://forum.msexcel.ru/index.php?action=profile;u=
регулярно выскакивает сообщение "fixed objects will move".
Лучше 1 раз увидеть . . .

RAN>> Re: Связь между Excel книгами.VBA.Обновление базы.
2013-10-04 20:55 http://forum.msexcel.ru/index.php?action=profile;u=
Convert.
Для опытов вставил на лист в А1 и В1.

Sub Мяу()
a = StrReverse(Val(StrReverse(Range("A1"))))
b = Format(Split(Range("B1"))(1), "YYYYMMDD")
MsgBox a = b
End Sub


Serge 007>> Re: 2-е книги на рабочем столе
2013-10-06 03:30 http://forum.msexcel.ru/index.php?action=profile;u=
Так же
Ctrl+O и3 приложения или выделить нужные с Ctrl и открыть все

lokovspb>> Нужно сопоставить документы
2013-10-06 13:40 http://forum.msexcel.ru/index.php?action=profile;u=
Нужна помощь!
Данные находятся на страницах 1 и 2
Необходимо, чтобы обороты по этому счету за период совпадали.
Для этого необходимо выявить документы, проводки которых по 41 счету не совпадают.
Необходимо сопоставить документы (по полю "Номер документа") и найти, какие из них различаются и на какую сумму.
Полученные данные разместить в таблице на на новом листе расхождения(отсортировать таблицу по "Номеру документа").


Примечание:
Для решения задачи можно пользоваться различными инструментами Excel: [url=http://msexcel.ru/content/view/34/2/]_сводные_[/url] таблицы, формулы, сортировки, фильтры итд

zs>> Re: удаление " руб."
2013-10-06 14:09 http://forum.msexcel.ru/index.php?action=profile;u=
=--ЛЕВСИМВ(С1;НАЙТИ("р";С1)-2)

RAN>> Re: Нужно сопоставить документы
2013-10-06 17:11 http://forum.msexcel.ru/index.php?action=profile;u=
Кросс
http://programmersforum.ru/showthread.php?t=245077

zs>> Re: Автозаполнение одинаковых позиции в смете
2013-10-06 17:43 http://forum.msexcel.ru/index.php?action=profile;u=
=ЕСЛИ(А1="кран  д.15";600)   =ЕСЛИ(А1="кран  д.15";300)

Тамерлан Морозов>> Как создать формулу в Excel
2013-10-06 21:38 http://forum.msexcel.ru/index.php?action=profile;u=
Подскажите пожалуйста как создать формулу суммы значений в строке 3 каждой третьей ячейки начиная со столбца С

NooBasTiK>> Re: Как создать формулу в Excel
2013-10-06 22:13 http://forum.msexcel.ru/index.php?action=profile;u=
выложите пример, иначе тему закроют

ShAM>> Re: Нужно сопоставить документы
2013-10-06 22:56 http://forum.msexcel.ru/index.php?action=profile;u=
Еще кросс: http://www.excelworld.ru/forum/2-6554-1


iron priest>> Re: Как создать формулу в Excel
2013-10-07 10:58 http://forum.msexcel.ru/index.php?action=profile;u=
отвечу без примера

=СУММПРОИЗВ((ЕЧЁТН(СТОЛБЕЦ(C3:U3))=ЛОЖЬ)*C3:U3)

диапазон сами выбирайте

AlWin>> Взаимосвязанные ячейки без циклической зависимости
2013-10-07 13:16 http://forum.msexcel.ru/index.php?action=profile;u=
День добрый.
В программе Smeta.ru есть весьма функциональная фишка.
Пример – в приложении:  Три_ячейки.jpg
Имеется две строки – основная (работа) с ячейкой «Количество» = 0,06
 и зависимая – (ресурс к этой работе) с ячейками «Расход» (на ед изм основной строки) = 200 и «Потребность» = «Количество» х «Расход» = 0,06х200=12.
При изменении Потребности вручную (с 12 на 24) автоматом пересчитывается Расход (с 200 на 400).
При изменении Расхода (с 400 на 50) автоматом пересчитывается Потребность.
И так можно менять сколько угодно раз.
Причем значения в программе вводятся не опосредованно (дополнительные ячейки или т.п.), а непосредственно в текущие ячейки.

Помогите, пожалуйста, реализовать такую взаимосвязь ячеек в Excel.



Sophie>> Re: Связь между Excel книгами.VBA.Обновление базы.
2013-10-07 15:24 http://forum.msexcel.ru/index.php?action=profile;u=
Оу.Спасибо. Не могли бы вы прокомментировать то, что здесь написано?

zs>> Re: Как создать формулу в Excel
2013-10-07 15:56 http://forum.msexcel.ru/index.php?action=profile;u=
Здравствуйте, iron priest!
Alternative:
=СУММПРОИЗВ((((ОСТАТ(СТОЛБЕЦ(C3:U3);3))=0)=ИСТИНА)*C3:U3)
С уважением, ZS
P.S. С учётом каждой третьей ячейки)

zs>> Re: Группировка в Excel
2013-10-07 20:06 http://forum.msexcel.ru/index.php?action=profile;u=
Здравствуйте,  Tanchik Lucky!
Non limitum perfectiae!
С уважением, ZS)


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

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


В избранное