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

d7d1cd>> Re: Редактирование, поиск и другое через макрос


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

Выпуск 49
от 2013-12-20

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

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



d7d1cd>> Re: Редактирование, поиск и другое через макрос
2013-12-11 18:42 http://forum.msexcel.ru/index.php?action=profile;u=
"Или такой вариант" работает как надо. Спасибо!


tutik>> как обойти в частном случае подсчет объединенных ячеек?
2013-12-12 10:42 http://forum.msexcel.ru/index.php?action=profile;u=
Всем доброго времени суток!
Прошу помощи или подсказки.
Файл таблицы во вложении.
В таблице изменяется (в основном добавляются строки) столбец Изделия, соответственно дополняются и все остальные столбцы. Заказчики располагаются по алфавиту, поэтому строка может добавляться и в середине таблицы. (в итоге строк будет около 150)
Для первой гистограммы путем поисков в инете удалось посчитать кол-во заказов по месяцам. А вот для второй гистограммы не получается.
Хотелось бы, чтобы количество изделий по заказчикам считалось формулой. (в ячейках В58:В64)
Фактически нужно посчитать кол-во строк в объединенной ячейке или может можно посчитать разницу между номерами следующих друг за другом объединенных ячеек, но можно ли такое сделать...
 
П.С. Я понимаю, что объединенные ячейки - зло, но с ними же симпатичней. А к отчету нужно будет прилагать не только диаграммы, но и всю таблицу (и надо, чтобы она была читабельна не только для меня).

Shadowmaker>> Re: Счёт среднего по части значения ячейки
2013-12-12 11:35 http://forum.msexcel.ru/index.php?action=profile;u=
Не получается...
Попробовал вписать эту формулу, ввёл как [abbr=Вводится через Ctrl+Shift+Enter]формулу массива[/abbr] и всё равно получил #ЗНАЧ!

Выложить сам файл к сожалению не могу - нет такой технической возможности

Какие могут быть затыки с формулой...

Я её кстати не до конца понял... можно ли поэтапно расписать что и где вычисляется?

cheshiki1>> Re: как обойти в частном случае подсчет объединенных ячеек?
2013-12-12 11:38 http://forum.msexcel.ru/index.php?action=profile;u=
создать доп. столбец с формулой =ПРОСМОТР("яяя";$A$3:A3) который можно скрыть.
после по нему делать подсчет с помощью СЧЕТЕСЛИ(диапазон доп. столбца;A58)

cheshiki1>> Re: Счёт среднего по части значения ячейки
2013-12-12 14:15 http://forum.msexcel.ru/index.php?action=profile;u=
смотрите

Wasilic>> Re: Сравнение и вычисление.
2013-12-12 15:21 http://forum.msexcel.ru/index.php?action=profile;u=
если значение столбца год рождения E10 > =1967 тогда O10 - L10*16%, если E10<1967 тогда O10-L10*22% в итоге должна получиться сума
А в дополнителном столбце использовать эту формулу
=ЕСЛИ(E10>=1967;(O10-L10)*1,16;(O10-L10)*1,22)а потом столбец просуммировать, низзя?!  :)

ZaS2jah0>> Выборка ячеек на основе их форматирования
2013-12-12 17:32 http://forum.msexcel.ru/index.php?action=profile;u=
Здравствуйте.

Имеется таблица, представляющая из себя табель выходов на предприятии.
Задача таблицы - подсчет отработанного рабочими цеха часов (с учетом переработанных свыше нормы часов).
В таблице ячейки, выделенные зеленой заливкой - это часы свыше нормы, то есть, по факту это 12 - 4 = 8 часов.

Вопрос заключается в следующем. Можно ли в Excel сделать выборку, то есть - подсчет ячеек на основе форматирования последних, то есть - зеленой заливки? Подсчитать то их можно (СЧЕТ), но вот как сделать это через условие - зеленый фон ячейки.

Формула подсчета отработанных часов в этой таблице проста:

((сумма часов по выходу на работу) - (норма часов в месяц)) + (кол-во выходов-переработок)*4 = часов переработки
 
 Например, для строки №13 в это таблице расчет будет следующим:
 
 (120 - 108) + 5*4 = 32 часа переработки
 
 Весь вопрос в том, как "заставить" Excel подсчитать кол-во выходов-переработок?
 Возможно ли решение на основе форматирования ячейки, а не на основе ее знач...

TimSha>> Re: Выборка ячеек на основе их форматирования
2013-12-12 18:00 http://forum.msexcel.ru/index.php?action=profile;u=
По-моему, элементарно - делаем копию данных и на ней 8 меняем на 12 и  считаем.

cheshiki1>> Re: Выборка ячеек на основе их форматирования
2013-12-12 18:02 http://forum.msexcel.ru/index.php?action=profile;u=
http://www.excel-vba.ru/chto-umeet-excel/podschitat-summu-yacheek-po-cvetu-zalivki/


ZaS2jah0>> Re: Выборка ячеек на основе их форматирования
2013-12-12 18:05 http://forum.msexcel.ru/index.php?action=profile;u=
По-моему, элементарно - делаем копию данных и на ней 8 меняем на 12 и  считаем.
нет, не то. подмена значения ячеек не допускается. внимательно условие задания смотрите.
UPD. Поторопился - я кажется понял, что вы хотели сказать - нужна дополнительная-вспомогательная таблица-копия? Но тогда это как-то уродливо получается.

ZaS2jah0>> Re: Выборка ячеек на основе их форматирования
2013-12-12 18:07 http://forum.msexcel.ru/index.php?action=profile;u=
http://www.excel-vba.ru/chto-umeet-excel/podschitat-summu-yacheek-po-cvetu-zalivki/
кажется - оно самое! посмотрю

ZaS2jah0>> Re: Выборка ячеек на основе их форматирования
2013-12-12 19:02 http://forum.msexcel.ru/index.php?action=profile;u=
http://www.excel-vba.ru/chto-umeet-excel/podschitat-summu-yacheek-po-cvetu-zalivki/
кажется - оно самое! посмотрю
UPD. Верно - то что нужно. Огромное спасибо!

tutik>> Re: как обойти в частном случае подсчет объединенных ячеек?
2013-12-13 05:26 http://forum.msexcel.ru/index.php?action=profile;u=
спасибо. проверено. Ваш вариант работает и считает. На соседнем форуме было предложено другое решение. См. тут :
http://www.excelworld.ru/forum/2-7849-1

ritka>> Re: Сравнение и вычисление.
2013-12-13 10:07 http://forum.msexcel.ru/index.php?action=profile;u=
Спасибо за ответ. Да вот про столбец дополнительный я тоже думала, но дир. требует без всяких лишних столбцов. я сделала вот такой  массив =СУММ(ЕСЛИ(E10:E50>=1967;((O10:O50)-(L10:L50))*0,16;((O10:O50)-(L10:L50))*0,22)), считает правильно, но если меняю значения в столбце L она не пересчитывает,т.е не видит того что нужно отнять столбец L если в нем будут значения, может что то не так написала)?

cheshiki1>> Re: Сравнение и вычисление.
2013-12-13 13:06 http://forum.msexcel.ru/index.php?action=profile;u=
.... но если меняю значения в столбце L она не пересчитывает,т.е не видит того что нужно отнять столбец L если в нем будут значения, может что то не так написала)?
все считает. но изменения в столбце L на формулу не влияют т.к. в столбце О стоит сумма включающая столбец L
например было в О 200, в L ввели 100 в получилось в О 200+100=300, теперь в итоговой вы отнимаете  300-100=200 т.е. вернулись к исходному числу.

zs>> Re: Помогите посчитать общее время...
2013-12-13 14:31 http://forum.msexcel.ru/index.php?action=profile;u=
=B2-B1+B3-B2+B4-B3+24-B4

Wasilic>> Re: Сравнение и вычисление.
2013-12-13 18:20 http://forum.msexcel.ru/index.php?action=profile;u=
дир. требует без всяких лишних столбцов.
Странно, дир-у важен результат или метод его решения?  :-\

KuklP>> Re: Сравнение и вычисление.
2013-12-13 18:32 http://forum.msexcel.ru/index.php?action=profile;u=
Кто не дает скрыть допстолбец?

zs>> Re: Счёт среднего по части значения ячейки
2013-12-13 20:02 http://forum.msexcel.ru/index.php?action=profile;u=
Здравствуйте, Shadowmaker. Вы пишите: "...каждая ячейка имеет значение в маске xx/yy/zz",
тогда
=(ЛЕВСИМВ(E1;2)+ЛЕВСИМВ(E2;2)+ЛЕВСИМВ(E3;2))/(СТРОКА()-1)&"/"&(Ч(--ПРАВСИМВ(ЛЕВСИМВ(E2;5);2))+Ч(--ПРАВСИМВ(ЛЕВСИМВ(E1;5);2))+Ч(--ПРАВСИМВ(ЛЕВСИМВ(E3;5);2)))/(СТРОКА())&"/"&(ПРАВСИМВ(E1;2)+ПРАВСИМВ(E2;2)+ПРАВСИМВ(E3;2))/(СТРОКА()-1)

ikot>> Поиск значения в Excel
2013-12-13 20:16 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый вечер! Столкнулся с проблемой. На листе в диапазоне A1:H100 где-то находится ячейка, содержащая какое-то значение. Все остальные ячейки пустые. Нужно в отдельном листе в ячейке А1 и А2 вывести соответственно номер строки и имя столбца, где находится не пустая ячейка. Задачу нужно решить 2-мя способами:
1. Не используя VBA
2. С использованием VBA

Заранее спасибо за помощь!

KuklP>> Re: Поиск значения в Excel
2013-12-13 20:50 http://forum.msexcel.ru/index.php?action=profile;u=
Опять студенты-лодыри. Кросс:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=53448

Wasilic>> Re: Сравнение и вычисление.
2013-12-13 22:00 http://forum.msexcel.ru/index.php?action=profile;u=
Кто не дает скрыть допстолбец?
Ну кто ж еще, дир. естно!  ;D

zs>> Re: Сравнение и вычисление.
2013-12-14 11:23 http://forum.msexcel.ru/index.php?action=profile;u=
Здравствуйте, ritka А может быть, Ваш вариант будет работать,
=ЕСЛИ(E10>=1967;(O10-(L10*0,22));(O10-(L10*0,16))) и т.д по ячейкам
С уважением, ZS5)

Кристина Галактионова>> Как делать парные корреляции
2013-12-14 12:31 http://forum.msexcel.ru/index.php?action=profile;u=
Столкнулась  с одной проблемой, которая стопорит мою работу. Смотрите , обычная функция корреляции работает на массивах
пример
=КОРРЕЛ(F2:F5;G2:G5)

а что если мне не надо массивы коррелировать. Как быть, если хочешь скоррелировать 2 числа
например, прикрепила файл.
как мне посмотреть корреляцию между значениями "переменной 1 - Х" и "переменной 1 -У" или "переменной2-У" и "переменной 1 Z" и так далее.

zs>> Re: Как делать парные корреляции
2013-12-14 14:01 http://forum.msexcel.ru/index.php?action=profile;u=
Здравствуйте,  Кристина Галактионова
По переменной 1 для X и Y, на мой взгляд выглядит так
=((F2-СРЗНАЧ(F2:F7))*(G2-СРЗНАЧ(G2:G7)))/СТЕПЕНЬ((СТЕПЕНЬ((F2-СРЗНАЧ(F2:F7));2)*СТЕПЕНЬ((G2-СРЗНАЧ(G2:G7));2));1/2)
С уважением, ZS5)

Wasilic>> Re: Как делать парные корреляции
2013-12-14 20:32 http://forum.msexcel.ru/index.php?action=profile;u=
Кто есть кто?  :)
http://www.excelworld.ru/forum/2-7888-1

RAN>> Re: Как делать парные корреляции
2013-12-14 20:47 http://forum.msexcel.ru/index.php?action=profile;u=
Цитировать
Хирургия торит чудеса! Подумаешь, приделали мужику сиськи. :D
Так он-же псих(о). <_<

Wasilic, а ты не боишься этой, как её там..., не политкорректности?

Псих он там, а здесь - полная сочувствия "Кристина Галактионова" вместе с сиськами.



mag279>> Оптимизация формулы
2013-12-16 12:25 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый вечер, у меня такой вопрос /на засыпку  ;)/ Недавно составил формулу жене для работы /прик. файл/ Она сказала что формула отказывается стабильно работать, хотя на моем комп. работает все стабильно. Вопрос дело в формуле или в руках жены. Посмотрел бы у неё на работе но к сожалению не могу закрытое предприятие. Надеюсь на ответ  :) Антон.

Shadowmaker>> Re: Счёт среднего по части значения ячейки
2013-12-16 13:45 http://forum.msexcel.ru/index.php?action=profile;u=
Спасибо огромное! Разобрался!

ЗЫ: #знач! писался потому что часть значений при выгрузке из базы была не определена и имела вид "//" добавил проверку и всё заработало

KuklP>> Re: Оптимизация формулы
2013-12-16 13:51 http://forum.msexcel.ru/index.php?action=profile;u=
На засыпку, на слабО - не стоит. Тут не детский сад.

ShAM>> Re: Оптимизация формулы
2013-12-16 15:11 http://forum.msexcel.ru/index.php?action=profile;u=
Да, и это:
формула отказывается стабильно работать
понятие растяжимое. Что, как, почему, когда?  :-\


mag279>> Re: Оптимизация формулы
2013-12-16 15:54 http://forum.msexcel.ru/index.php?action=profile;u=
Был бы у меня файл /жены/  :-\ я нашел что не так, а тут такая западня. Сейчас разбирался с женой по формуле /наверное она сама ошибку сделала/. А вопрос был не на слабо, а я хотел узнать мнение профессионалов по поводу работоспособности формулы /есть ли у неё внутренний глюк который я мог не заметить/.
Спасибо за ответы, и жаль что вы меня не так поняли  :(

Albatros>> Re: Выгрузка макросом данных из EXCEL в TXT-файл в кодировке CP866 (DOS)
2013-12-16 16:43 http://forum.msexcel.ru/index.php?action=profile;u=
Уважаемый Prist, добрый день. Очень надеюсь, что Вы не покинули этот замечательный форум.
2 года назад Вы очень помогли мне с разрешением вопроса по теме "Выгрузка макросом данных из EXCEL в TXT--файл в кодировке CP866 (DOS) от 25.01.2012.
Сейчас снова хочу обратиться к Вам. Мне установили OFFICE 2013 x64 и Ваш макрос перестал работать. Какая то ерунда с Public Declare Function WideCharToMultiByte Lib "kernel32". Все выделено красным цветом... Может быть Вы согласитесь еще раз помочь дилетанту? Можно ли сделать так, чтобы выгрузка работала и в х32 и в х64 EXCEL, так как приходится работать в разных версиях OFFICE? С уважением, Albatros

Prist>> Re: Выгрузка макросом данных из EXCEL в TXT-файл в кодировке CP866 (DOS)
2013-12-16 17:49 http://forum.msexcel.ru/index.php?action=profile;u=
Попробуйте объявить API-функции так:
[code]#If VBA7 Then
    #If Win64 Then
        Public Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" _
                                            (ByVal CodePage As LongLong, _
                                             ByVal dwFlags As LongLong, _
                                             ByVal lpWideCharStr As String, _
                                             ByVal cchWideChar As LongLong, _
                                             ByVal lpMultiByteStr As String, _
                                             ByVal cchMultiByte As LongLong, _
                                             ByVal lpDefaultChar As String, ByVal _
                                                                            lpUsedDefaultChar As Long) As LongLong

        Public Declare PtrSafe Function MultiByteToWideChar Lib "kernel32" _
                                            (ByVal CodePage As LongLong, _
                              ...

Anyuta>> помогите доработать макросы (скрыть/отоброзить строки)
2013-12-16 18:14 http://forum.msexcel.ru/index.php?action=profile;u=
Помогите пожалуйста доработать несложные макросы!

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

Нужно что бы в "Диапазоне_данных" проверялся цвет каждой ячейки в строке
Если там есть хотя бы одна ячейка заданного цвета (голубого) то эта строка отображалась
иначе - скрывалась
Т.е. отображались только строки удовлетворяющие условию, все остальные скрывались,
и соответсвенно если до этого уже применялся другой макрос на сокрытие строк, надо что бы перед тем как макрос начал проверять строки, он сначала все строки отобразил, что бы не получилось что ранее скрытая строка (возможно не удовлетворяет условию, но так она уже была скрыта то она и не отоброзится)

вот недоваренный макрос:

[code]Sub Отоброзить_ячейки_голубого_цвета()
    Dim cell As Range
    Application.ScreenUpdating = False                    ...

RAN>> Re: помогите доработать макросы (скрыть/отоброзить строки)
2013-12-16 19:22 http://forum.msexcel.ru/index.php?action=profile;u=
Чтой-то мне кажется, что эта "хоть одна ячейка голубого цвета " красится УФ.

KuklP>> Re: помогите доработать макросы (скрыть/отоброзить строки)
2013-12-16 19:39 http://forum.msexcel.ru/index.php?action=profile;u=
Мне кажется, что я ослеп:
Цитировать
В приложении файл


Anyuta>> Re: помогите доработать макросы (скрыть/отоброзить строки)
2013-12-16 20:36 http://forum.msexcel.ru/index.php?action=profile;u=
извиняюсь, файл добавила

нет не УФ, заливка делается вручную

RAN>> Re: помогите доработать макросы (скрыть/отоброзить строки)
2013-12-16 21:32 http://forum.msexcel.ru/index.php?action=profile;u=
Sub Мяу()
Application.ScreenUpdating = False
    [A5].CurrentRegion.Rows.Hidden = False
    For Each rw In [A5].CurrentRegion.Rows
        For Each cl In rw.Cells
            Select Case cl.Interior.Color
            Case 16776997, 2960895
                cl.EntireRow.Hidden = True
                Exit For
            End Select
        Next
    Next
End Sub


Anyuta>> Re: помогите доработать макросы (скрыть/отоброзить строки)
2013-12-16 22:30 http://forum.msexcel.ru/index.php?action=profile;u=
RAN, макрос скрывает нужные ячейки, надо что бы отображал только их и скрывал все остальное
и надо именно чтобы макрос работал только в "диапазоне_данных", т.е. ниже и выше пойдут другие данные с которыми макрос не должен никак работать

на скрытие нужных ячеек я собрала с горем пополам макрос

Sub Скрыть_ячейки_голубого_цвета()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.Range("Диапазон_данных").Cells
        If cell.Interior.ColorIndex = 8 Then cell.EntireRow.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub

мне нужно отредактировать тут
1) как прописать что бы сперва "диапазон данных" полностью отобразился? (что бы ни пропали скрытые ранее строки)
2)  изменить
If cell.Interior.ColorIndex = 8 Then cell.EntireRow.Hidden = False
else ... (иначе скрыть строку)

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

RAN>> Re: помогите доработать макросы (скрыть/отоброзить строки)
2013-12-16 22:48 http://forum.msexcel.ru/index.php?action=profile;u=
Sub Мяу()
    Application.ScreenUpdating = False
    [A6].CurrentRegion.Rows.Hidden = False
    For Each rw In [A6].CurrentRegion.Rows
        For Each cl In rw.Cells
            Select Case cl.Interior.Color
            Case 16776997, 2960895
                flag = True
                Exit For
            End Select
        Next
        If flag = False Then rw.EntireRow.Hidden = True
        flag = False
    Next
End Sub


Anyuta>> Re: помогите доработать макросы (скрыть/отоброзить строки)
2013-12-17 05:30 http://forum.msexcel.ru/index.php?action=profile;u=
RAN спасибо, но это не совсем то что нужно, он работает у меня по всему документу, т.е. скрывает мне и шапку и хвост, мне надо что бы только в определенном диапазоне С8:AD1204 т.к. будут добавляться новые строки, я так понимаю что нужно задать имя диапазону, или я что то неверно понимаю?

и он отоброжает строку если в ней хотя бы одна ячейка заданного цвета,
а в случае с двумя цветами, надо что бы в строке были обязательно оба цвета, а не либо одно либо другое

Albatros>> Re: Выгрузка макросом данных из EXCEL в TXT-файл в кодировке CP866 (DOS)
2013-12-17 07:47 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый день, Prist!
Спасибо, что откликнулись. Я выслал Вам код в личном сообщении, но, смотрю, Вы уже нашли тему.
Повторю здесь еще раз, а потом поробую использовать Ваш совет. Вот полный макрос. Красным выделена ошибка, которую определяет EXCEL
_______________________________________________________________________________________________________________________________
Public Const WC_COMPOSITECHECK = &H200
Public Const WC_DEFAULTCHAR = &H40
Public Const WC_DISCARDNS = &H10
Public Const WC_SEPCHARS = &H20
 
Public Const CP_ACP = 0
Public Const CP_OEMCP = 1
Public Const CP_MACCP = 2
Public Const CP_THREAD_ACP = 3
Public Const CP_SYMBOL = 42
Public Const CP_UTF7 = 65000
Public Const CP_UTF8 = 65001
 
Public Const MB_PRECOMPOSED = &H1
Public Const MB_COMPOSITE = &H2
Public Const MB_USEGLYPHCHARS = &H4
Public Const MB_ERR_INVALID_CHARS = &H8
 
Public Declare Function WideCharToMultiByte Lib "kernel32"
    (ByVal CodePage As Long, _
    ByVal dwFlags As Long, _
    ByVal lp...


Albatros>> Re: Выгрузка макросом данных из EXCEL в TXT-файл в кодировке CP866 (DOS)
2013-12-17 08:14 http://forum.msexcel.ru/index.php?action=profile;u=
Что то не получается...
Private Function ConvertString(ByVal strSrc As String, ByVal nFromCP As Long, ByVal nToCP As Long) As String выделена желтым
и ругается на nRet = MultiByteToWideChar(nFromCP, MB_PRECOMPOSED, strSrc, nLen, strDst, nLen)

Albatros>> Re: Выгрузка макросом данных из EXCEL в TXT-файл в кодировке CP866 (DOS)
2013-12-17 08:18 http://forum.msexcel.ru/index.php?action=profile;u=
Виноват. Public Function

zs>> Re: Оптимизация формулы
2013-12-17 08:45 http://forum.msexcel.ru/index.php?action=profile;u=
Здравствуйте, mag279.< slang > Не подскажите как работает =ПРОСМОТР(2;1/(2:2=A7);1:1)
C уважением, ZS5)

Albatros>> Re: Выгрузка макросом данных из EXCEL в TXT-файл в кодировке CP866 (DOS)
2013-12-17 08:47 http://forum.msexcel.ru/index.php?action=profile;u=
Уважаемый Prist, прикрепил файл, в котором не работает выгрузка. Правда он в жутко усеченном виде, так как информация... сами понимаете.
В общей сложности не получается ни сформировать данные для выгрузки (вкладка кап), ни выгрузить какие-либо данные (вкладка Экспорт).
Файл пришлось заархивировать, так как правила форума запрещают отправлять файлы xlsm

mag279>> Re: Оптимизация формулы
2013-12-17 08:53 http://forum.msexcel.ru/index.php?action=profile;u=
Все хорошо, у жены были ляпы, сейчас формула работает стабильно  :). =ПРОСМОТР(2;1/(2:2=A7);1:1) - находит последнее значение соответствующее A7 в строчке 2:2, и ставит значение с 1:1.

RAN>> Re: помогите доработать макросы (скрыть/отоброзить строки)
2013-12-17 10:55 http://forum.msexcel.ru/index.php?action=profile;u=
Sub Мяу()
    Application.ScreenUpdating = False
    '    With Range("Диапазон_данных")    ' можно и так
    With [A6].CurrentRegion.Offset(2).Resize([A6].CurrentRegion.Rows.Count - 3)
        .Rows.Hidden = False
        For Each rw In .Rows
            For Each cl In rw.Cells
                Select Case cl.Interior.Color
                Case 16776997
                    flag1 = 1
                Case 2960895
                    flag2 = 1
                End Select
            Next
            If flag1 + flag2 < 2 Then rw.EntireRow.Hidden = True
            flag1 = 0: flag2 = 0
        Next
    End With
End Sub


shanemac51a>> Re: Выгрузка макросом данных из EXCEL в TXT-файл в кодировке CP866 (DOS)
2013-12-17 11:04 http://forum.msexcel.ru/index.php?action=profile;u=
сохранить в формате MS DOS

Е2007-------Нормально работает

RAN>> Re: Выгрузка макросом данных из EXCEL в TXT-файл в кодировке CP866 (DOS)
2013-12-17 11:19 http://forum.msexcel.ru/index.php?action=profile;u=
1. Нельзя в одном проекте в разных модулях размещать одно и то же.
2. Если копируете, делайте это правильно. (модуль 5 и модуль 7)
3. И самое главное - зачем вы просили исправить код, если код, отредактированный для работы в Win 64 вы оставили на форуме?

Денис Дегтярев>> Опять о копировании из таблицы в таблицу с условием.
2013-12-17 12:54 http://forum.msexcel.ru/index.php?action=profile;u=
Сломал голову как это сделать правильно и прихожу к выводу, что правильнее всего будет реализовать с помощью макроса, только вот проблема времени на освоение к сожалению нет совершенно, а посему прошу Вашей помощи. Суть такова.
 
Общие данные:
 
Значит есть общая сводная книга с множеством листов в которых забиты полные данные с лимитами по строительству файл: «!!! Выполнение.xls». (таких книг много)
Ежемесячно приносят выполнение в форме актов КС-2 для образца файл: «Акт №05 02-13-02.xlsx», их тоже огромное количество
 
Цель:
Прикрутить внутри файла «!!! Выполнение.xls» желательно на главном листе «Свод по инв. 34-12» кнопку при нажатии на которую предлагался бы диалог «Выберите файл с выполнением».

Далее выбираешь тот файл из которого необходимо получить данные (например Акт №05 02-13-02.xlsx)

Далее диалог «выберите лист для внесения данных» там указываешь какой лист файла  «!!! Выполнение.xls» будет обрабатываться и в какой столбец, будут вноситься значения. Столбец меняется от м...

zs>> Re: Оптимизация формулы
2013-12-17 14:05 http://forum.msexcel.ru/index.php?action=profile;u=
понятен результат, но не понятна методика-почему искомое значение 2; почему просматриваемый вектор 1/(2:2=A7)

Albatros>> Re: Выгрузка макросом данных из EXCEL в TXT-файл в кодировке CP866 (DOS)
2013-12-17 15:55 http://forum.msexcel.ru/index.php?action=profile;u=
У меня стоит 64-разрядная Windows 7 Professional, а OFFICE был 32-разрядный. Этим кодом я пользовался в работе с 32-х разрядным EXCEL. Как раз после установки EXCEL 2013 х64 этот код перестал работать!
Принимаю любую критику. Не постесняюсь сказать, что в вопросах программирования я полный дилетант. Может быть этот код и для WIN 64, но он перестал работать и самому мне не разобраться. Вот и обратился за помощью.

Prist>> Re: Выгрузка макросом данных из EXCEL в TXT-файл в кодировке CP866 (DOS)
2013-12-17 17:17 http://forum.msexcel.ru/index.php?action=profile;u=
Так Вы вставьет объявление API-функций, как я написал. Хотя бы просмотрите глазами и найдите отличия. Плюс в выложенном Вами файле нет переноса на след.строку в объявлении:
Public Declare Function WideCharToMultiByte Lib "kernel32" _

Таджик Дворник>> Re: выборка строк, если есть совпадение одновременно в двух стролбцах
2013-12-17 18:59 http://forum.msexcel.ru/index.php?action=profile;u=
задача похожая, но есть несколько отличий....
признак строке должен присваиваться не по дельте, а именно по совпадению знаков , т.е 12345 = 54321 = 32154  ( а в идеале по совпадению нескольких из группы типа  если 3 из 5 совпали то true, иначе  false , с исключением повторов )12345 =15487 =13508 =03921 , но нихрена не равно 11187, 11278

gregory9791>> Перенос данных из одной формы в две других
2013-12-18 11:11 http://forum.msexcel.ru/index.php?action=profile;u=
Приветствую, друзья!

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

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

Может быть проще реализовать это все с помощью макроса? Но в них я увы не спец :(

При формировании счета:

1. Необходимо перенести из протокола цен: номер и дату протокола, имя клиента, номер и дату заявки клиента (также присутствует в проток...

Poltava>> Re: Перенос данных из одной формы в две других
2013-12-18 13:10 http://forum.msexcel.ru/index.php?action=profile;u=
Прикладывайте примеры файлов!

sergo44441>> Корректировка таблицы Аксесс на основе выгруженных данных
2013-12-18 15:19 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый день, уважаемые знатоки.
У меня вопрос, ответ на который очень бы помог в работе:
В прилагаемой БД "расчет показателей" есть таблица "база продаж".
Была сделана выгрузка "новые данные".
Необходимо из таблицы "база продаж" удалить данные за тот период, когда содержатся в таблице новые данные ( с... по) и добавить "новые данные" в таблицу "база продаж".
Каким способом оптимально это сделать?
Можно ли как-то проследить происходящие при этом изменения с таблицей-хранилищем (изменилось количество, удалилась запись о продажах и т.д.)

Лана Попова>> Выпадающий список и расчет в новой ячейке
2013-12-18 16:22 http://forum.msexcel.ru/index.php?action=profile;u=
Здравствуйте! подскажите, кто знает, как в икселе сделать:

есть исходные данные
- общий заказ: на 10 пачек бумаги
- ассортимент бумаги (выпадающий список): бумага 80 гр. по 110 руб./пачка и бумага цветная по 150 руб./пачка.
Как при выборе нужной позиции из выпадающего списка сделать так, чтобы в другой ячейке высчитывалась стоимость за все 10 пачек?

ICE>> Функция VLOOKUP, или как подтянуть данные из таблицы
2013-12-18 16:24 http://forum.msexcel.ru/index.php?action=profile;u=
Доброго времени суток!
Вопрос вот в чем. Есть две таблицы. С помощью функции VLOOKUP я спокойно подтягивал данные, которые были нужны. Но вот незадача, не могу подтянуть данные, которые находятся слева от столбца в котором находятся искомые значения. Могу только справа. А как же быть с теми, которые слева? Переделывать исходную таблицу, что-б интересующая информация была справа от искомой?

cheshiki1>> Re: Функция VLOOKUP, или как подтянуть данные из таблицы
2013-12-18 16:29 http://forum.msexcel.ru/index.php?action=profile;u=
использовать =ИНДЕКС(диапазон;ПОИСКПОЗ(....;...;0);...) при наличии файла ответ будет конкретней.

cheshiki1>> Re: Выпадающий список и расчет в новой ячейке
2013-12-18 16:30 http://forum.msexcel.ru/index.php?action=profile;u=
файл покажите.

ICE>> Re: Функция VLOOKUP, или как подтянуть данные из таблицы
2013-12-18 16:41 http://forum.msexcel.ru/index.php?action=profile;u=
Пожалуйста посмотрите табличку.
Руководство сделало новый отчет. В закладку "Рекламации" нужно подтянуть данные из таблицы "Итого по году" с какого региона этот дилер Петров и кто его менеджер. Столбцы перемещать нет возможности. Много ссылок на таблицу "Итого по году" - боюсь нарушить.


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


В избранное