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

Форум по Microsoft Excel

  Все выпуски  

Шпец Докапыч>> Re: Как выделить все эти столбики макросом


Форум по Microsoft Excel

Выпуск 24
от 2012-06-21

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

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

Основные разделы сайта
Статьи
Форум

Новости сайта в формате RSS
Новые сообщения форума в формате RSS
Читать в Яндекс.Ленте

Порекомендуйте нашу рассылку друзьям

Обратная связь
Поддержка
(форум рассылки)

Наши рассылки:

Рассылки Subscribe.Ru
Православные:
Ежедневные библейские чтения
Смоленский календарь
Для выздоравливающих алкоголиков и наркоманов
Книга "День за днем"
Книга "24 часа в сутки"
Ежедневные размышления анонимного алкоголика
Самообразование:
"Профессиональные приемы работы в Microsoft Excel"

Наши сайты

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

bonifatiy.narod.ru
В помощь выздоравливающим алкоголикам и наркоманам

Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии.

StudentTools.Narod.Ru Для тех, кто любит учиться

Наши друзья

VBAtips.ru -
подсказки и решения на VBA

wordexpert.ru
Профессиональная работа с текстом

planetaexcel.ru
Когда заешь - все просто

Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel".



Шпец Докапыч>> Re: Как выделить все эти столбики макросом
2012-06-13 21:43 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
Запросто (вставить нулевой строчкой):

Код:
If InStr("|1|11|21|", "|" & Day(Now) & "|") = 0 Then Exit Sub


kartol>> Re: Как выделить все эти столбики макросом
2012-06-13 21:58 http://forum.msexcel.ru/profiles/kartol-u121172.html

(вставить нулевой строчкой):
Извени за незнание ,это как?

Шпец Докапыч>> Re: Как выделить все эти столбики макросом
2012-06-13 22:07 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
Поскольку код выполняется последовательно (построчно), то нужно вставить перед вопросом ДаНет. Ну и раз я ранее писал, что If Not MsgBox... нужно вставить первой строчкой, то это условие перед ней. В общем, своеобразная шутка.  Улыбка

Код:
Sub ШД_Стиралка()
  If InStr("|1|11|21|", "|" & Day(Now) & "|") = 0 Then Exit Sub
  If Not MsgBox("Сотрём от факта до даты?!", 68) - 7 Then Exit Sub
  For i = 5 To 7
    Range("A:A").SpecialCells(2, 1).Offset(, i).ClearContents
  Next
End Sub


kartol>> Re: Как выделить все эти столбики макросом
2012-06-13 22:16 http://forum.msexcel.ru/profiles/kartol-u121172.html
[Шпец Докапыч ]
Спасибо!(отправил+) Улыбка

Шпец Докапыч>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-13 22:39 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
меня интересует автоматическое обновление цвета заливки при установке\удалении примечания
Поскольку стандартно Excel не располагает таким событием, то предлагаю воспользоваться событием "выделение ячейки", расположив в [abbr=правой кнопкой мыши по ярлычку листа -> Исходный текст]модуле листа[/abbr]:
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
  If [A1] <> ActiveSheet.Comments.Count Then
    СомЦвет4 [диапазон]
    [A1] = ActiveSheet.Comments.Count
  End If
End Sub
Здесь ячейка "A1" выполняет роль хранилища числа комментариев на листе. Вместо неё можно использовать имя (Names).


kartol>> Re: Как выделить все эти столбики макросом
2012-06-13 22:44 http://forum.msexcel.ru/profiles/kartol-u121172.html
[Шпец Докапыч ]
Ещё вопросик -Как защитить все остальные строчки и столбцы (кроме этих)от изменения ? Ставлю зашиту -макрос в ауте

zaja2000>> Вложенные логические функции
2012-06-13 23:00 http://forum.msexcel.ru/profiles/zaja2000-u145571.html
Не могу написать формулу для вывода информации при определённом количестве баллов. Может кто поможет?

Poltava>> Re: Помогите добить прайс-отчет
2012-06-13 23:19 http://forum.msexcel.ru/profiles/poltava-u39021.html
А там все закомментировано Улыбка откройте редактор vba и посмотрите. Если не поняли что я здесь написал то лучше выложите КОНКРЕТНЫЙ ФАЙЛ для которого это нужно применить, иначе будет тяжело объяснять.

s1910197>> Отображение значений предпоследних ячеек
2012-06-14 07:16 http://forum.msexcel.ru/profiles/s1910197-u145583.html
Доброго времени суток! Проблема в следующем... Есть столбец в который ежедневно вводятся цифровые данные в зависимости от дня недели (присутствуют пустые ячейки) Нужна формула для отображения значения только предпоследней не пустой ячейки, по мере заполнения столбца...
Заранеее благодарю

EPOZ>> Проблема с фильтром
2012-06-14 08:18 http://forum.msexcel.ru/profiles/epoz-u144660.html
Возникла следующая проблема: Имеется таблица с перечнем артикулов (например 1.1.2 или 3.1.4). Требуется отфильтровать таблицу по некоторму артикулу (например 9.1.5). При этом ввожу в фильтр - СОДЕРЖИТ - 9.1.5 - OK
Ничего не отображается, хотя таких артикулов в таблице множество.
Возвращаемся в фильтр и видим что артикул превратился в 09.01.2005, соответственно он и не находится.

Вот что больше всего удивляет, ладно бы он менял числа в даты в самой таблице (как эксель очень любит), но чтобы он менял в дату в самом фильтре, такого я еще не видел.
Прилагаю скриншоты.
Знает ли кто как решить эту задачку?



Fedbul>> Re: Проблема с фильтром
2012-06-14 08:24 http://forum.msexcel.ru/profiles/fedbul-u31035.html
Можно файлик или его часть

EPOZ>> Re: Проблема с фильтром
2012-06-14 08:32 http://forum.msexcel.ru/profiles/epoz-u144660.html
Fedbul Прилагаю кусок таблицы

cheshiki1>> Re: Вложенные логические функции
2012-06-14 09:28 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html
проверяйте
=ЕСЛИ(D31<=120;"Не аттестован по разделу БД";ЕСЛИ(ИЛИ(И(D31<=140;D14<=30);И(D31<=140;D21<=40);И(D31<=140;D30<=55));"Условно аттестован с доработкой раздела № "&ЕСЛИ(D14<=30;1;ЕСЛИ(D21<=40;2;3));"Аттестован по разделу БД"))

cheshiki1>> Re: Отображение значений предпоследних ячеек
2012-06-14 09:34 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html
[abbr=Вводится через Ctrl+Shift+Enter]формула массива[/abbr]
=ИНДЕКС(R[-27]C:R[-3]C;НАИБОЛЬШИЙ((R[-27]C:R[-3]C<>"")*СТРОКА(R[-27]C:R[-3]C);2))

_Boroda_>> Re: Отображение значений предпоследних ячеек
2012-06-14 09:39 http://forum.msexcel.ru/profiles/boroda-u12234.html
В принципе, то же самое
=ИНДЕКС(A1:A25;НАИБОЛЬШИЙ(ЕЧИСЛО(A1:A25)*СТРОКА(A1:A25);2))
Написал только для того, чтобы предупредить - будете задваивать, а уж тем более, затраивать, темы - забаню.

Fedbul>> Re: Проблема с фильтром
2012-06-14 09:42 http://forum.msexcel.ru/profiles/fedbul-u31035.html
А если так:

попробуй при выборе не содержит, а равно.

EPOZ>> Re: Проблема с фильтром
2012-06-14 09:45 http://forum.msexcel.ru/profiles/epoz-u144660.html
Fedbul, это тоже как вариант, но в некоторых случаях мне нужно отфильтровать только группы товаров, т.е. чтобы фильтровалась часть артикула (например 1.4.)


_Boroda_>> Re: Как сделать макрос чтобы он копировал значения в любую ячейку которая выделена?
2012-06-14 09:53 http://forum.msexcel.ru/profiles/boroda-u12234.html
Может, так:
Код:
Sub tt()
If Intersect(Selection, Range("D:D")) Is Nothing Or Selection.Rows.Count > 1 Then Exit Sub
r = Selection.Row
Range("D" & r).Resize(, 3) = Range("Q2:S2").Value
End Sub


_Boroda_>> Re: Проблема с фильтром
2012-06-14 09:56 http://forum.msexcel.ru/profiles/boroda-u12234.html

~9.1.5
(сначала нужно поставить тильду)

EPOZ>> Re: Проблема с фильтром
2012-06-14 10:01 http://forum.msexcel.ru/profiles/epoz-u144660.html
_Boroda_
Спасибо, тильда действительно помогает.
Просто вот интересно, почему эксель еще и в настройках фильтра переводит в дату???

_Boroda_>> Re: Проблема с фильтром
2012-06-14 10:05 http://forum.msexcel.ru/profiles/boroda-u12234.html
Он везде ее переводит. Если Вы на листе наберете 9.1.5, то тоже переведет. Умный он.

EPOZ>> Re: Проблема с фильтром
2012-06-14 10:07 http://forum.msexcel.ru/profiles/epoz-u144660.html
_Boroda_ На листе еще понятно, но чтобы переводил в самом фильтре, такое вижу впервые.
Интересно нет ли какой нибудь записи в реестре, которая определяет эту "привычку" экселя переводить в дату? Я поискал, кроме UseSystemSeparator ничего не нашел.

STEROID>> Создание списка из списка по выбранному критерию
2012-06-15 10:16 http://forum.msexcel.ru/profiles/steroid-u114348.html
Существует список, итог обработки списка - колонка применяемость, как вывести формульно отдельный список материалов которые применяются?

cheshiki1>> Re: Создание списка из списка по выбранному критерию
2012-06-15 10:33 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html
с доп столбцом

Serge 007>> Re: Создание списка из списка по выбранному критерию
2012-06-15 11:13 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Без доп столбца (см. вложение лист 1)

с доп столбцом
С доп столбцом можно и так (см. вложение лист 2)


PS Значения ошибки скрыты УФ

_Boroda_>> Re: Создание списка из списка по выбранному критерию
2012-06-15 11:19 http://forum.msexcel.ru/profiles/boroda-u12234.html
или так без доп. ст. (на основе формулы в столбце Е)
=ИНДЕКС(A$1:A$9;НАИМЕНЬШИЙ(ЕСЛИ($D$2:$D$9>0;СТРОКА(E$2:E$9));СТРОКА()-1))
[abbr=Вводится через Ctrl+Shift+Enter]формула массива[/abbr]

Ksy>> Re: сумма ячеек в столбцах через 1 или 2
2012-06-15 11:24 http://forum.msexcel.ru/profiles/ksy-u14999.html
 и вновь я обращаюсь за помощью.. ну не получается у меня писать такие красивые функции:$
задача -  к начальному остатку прибавляется сумма всех ячеек (разноименных)синего цвета и вычитается сумма всех ячеек (разноименных) зеленого цвета. результат в Итог остатка

IKor>> Re: Расхождение цен в %-ах
2012-06-15 11:30 http://forum.msexcel.ru/profiles/ikor-u6827.html
Честно говоря, я как и Вы не знаю точно что такое "процент расхождения". Могу предположить, что это означает отклонение цены Петра относительно цены Миши: т.е. насколько процентов цена Петра выше (или ниже) цены Миши.
Если мое предположение верно, то отклонение считается по формуле: =(ЦенаПетра-ЦенаМиши)/ЦенаМиши; при этом положительные значения будут соответствовать случаям когда цена Петра выше цены Миши, отрицательные - наоборот.
Обычно средние значения отклонений рассчитываются относительно абсолютных величин (без учета знака, взятых по модулю) - поэтому в соседнем столбце при помощи функции =ABS() отбрасывается знак рассчитанного отклонения. В нем же из рассмотрения выбрасываются грубые ошибки (например, случай с неопределенной ценой Миши).
Сама формула расчета среднего значения известна =СУММ(диапазон)/СЧЁТ(Диапазон), либо можно использовать стандартную функцию =СРЗНАЧ(), которая возвращает тот же результат.
Относительно диапазона: его можно задать явно - указать конкретные ...

cheshiki1>> макрос копирования строки по критерию
2012-06-15 11:39 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html
Суть: в ячейку D19 вписываю 1, макрос находит в этом столбце выше 1 и копирует все остальные данные с найденной строки в ту где прописана 1. в следующей строке пишу 4 макрос находит выше 4 и та же процедура.
Заранее спс.

листов будет много и желательно чтобы макрос работал на всех.

Serge 007>> Re: сумма ячеек в столбцах через 1 или 2
2012-06-15 11:48 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Так надо?
Код:
=B4+СУММПРОИЗВ((D$3:S$3="перемещение в")+(D$3:S$3="возврат");D4:S4)-СУММПРОИЗВ((D$3:S$3="перемещ от")+(D$3:S$3="реализ");D4:S4)


_Boroda_>> Re: сумма ячеек в столбцах через 1 или 2
2012-06-15 11:49 http://forum.msexcel.ru/profiles/boroda-u12234.html
Мне думается, что все-таки так
Код:
=B4-СУММ(D4:S4)+2*СУММПРОИЗВ((D$3:S$3="перемещение в")+(D$3:S$3="возврат");D4:S4)


IKor>> Re: Создание списка из списка по выбранному критерию
2012-06-15 11:54 http://forum.msexcel.ru/profiles/ikor-u6827.html
с доп столбцом
Если для нас не важны значения, записываемые в дополнительный столбец, то ИМХО туда лучше писать не порядковые номера, а номер текущей строки [базовой таблицы] (=СТРОКА()-СТРОКА(таблица) ) - так будет проще возвращать значения во вновь-формируемый список.

=ИНДЕКС(A$1:A$9;НАИМЕНЬШИЙ(ЕСЛИ($D$2:$D$9>0;СТРОКА(E$2:E$9));СТРОКА()-1))
Если ошибки мешают дальнейшему использованию списка, то от них можно избавиться, усложнив [abbr=Вводится через Ctrl+Shift+Enter]формулу массива[/abbr]:
=ЕСЛИ(СТРОКА()-1>СЧЁТЕСЛИ(D:D;">0");"";_Результирующая_Формула_)
для ускорение работы с большими таблицами подсчет количества значений нового списка =СЧЁТЕСЛИ(D:D;">0") желательно делать в отдельной ячейке.

Для дальнейшего использования можно сгенерировать динамическую ссылку на новый список:
=СМЕЩ($G$1;1;0;СЧЁТЕСЛИ(D:D;">0");1)
или
=СМЕЩ($G$1;1;0;СЧЁТЗ($G:$G);1)

IKor>> Re: сумма ячеек в столбцах через 1 или 2
2012-06-15 12:11 http://forum.msexcel.ru/profiles/ikor-u6827.html
Если у нас все-равно есть вспомогательная строка 2:2, в которой прописаны + и -, то предлагаю использовать ее для упрощения результирующей формулы:
- убираем объединение ячеек
- записываем в строку вместо текстовых констант формулу: =ЕСЛИ(ИЛИ(D3=$D$3;D3=$E$3);1;-1) - можно и руками вписать сюда значения +1 и -1
- по желанию меняем формат представления данных - чтобы вместо единиц показывать только знаки (маска формата: "+";"-";"";@)
- в результирующих ячейка записываем формулу: =B4+СУММПРОИЗВ($D$2:$S$2;D4:S4)

Шпец Докапыч>> Re: макрос копирования строки по критерию
2012-06-15 12:11 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
В [abbr=правой кнопкой мыши по ярлычку листа -> Исходный текст]модуле листа[/abbr], где требуется данная функциональность, пишем:
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Column = 4 Then
    r = Target.Row - 1
    While Cells(r, 4) <> Target Or r < 14
      r = r - 1
    Wend
    If r < 14 Then MsgBox "Нет соответствий", 16: Exit Sub
    Application.EnableEvents = 0
    Cells(Target.Row, 5).Resize(1, 16).Value = Cells(r, 5).Resize(1, 16).Value
    Application.EnableEvents = 1
  End If
End Sub


cheshiki1>> Re: макрос копирования строки по критерию
2012-06-15 12:23 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html
СПС а в модуль книги как нибудь можно. Или если в [abbr=правой кнопкой мыши по ярлычку листа -> Исходный текст]модуль листа[/abbr] то как нибудь автоматизировать прописку макроса в [abbr=правой кнопкой мыши по ярлычку листа -> Исходный текст]модуль листа[/abbr].


Шпец Докапыч>> Re: макрос копирования строки по критерию
2012-06-15 12:27 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
Можно. Тот же код (без изменений) кидай в Workbook_SheetChange.

bodzin>> Re: Макрос переноса данных из одного файла в другой
2012-06-15 12:28 http://forum.msexcel.ru/profiles/bodzin-u145695.html
Доброго времени суток!Подскажите как переносить данные из одного файла в другой,есть файл бюджета из которого нужно перенести значения некоторых статтей и сделать надо так чтоб при обновлении файла бюджета они обновлялись.Пожалуйста:))

Ksy>> Re: сумма ячеек в столбцах через 1 или 2
2012-06-15 12:34 http://forum.msexcel.ru/profiles/ksy-u14999.html
наверное я не указала- просчитывать все повторные ячейки до конца строки -раньше это было IV.. счас даже и незнаю какое буквенное обозначение будет соответсвовать концу строки

cheshiki1>> Re: макрос копирования строки по критерию
2012-06-15 12:41 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html
чет не проходит, наверно из за того что там есть уже пару макросов. Посмотрите Плиз.

Шпец Докапыч>> Re: макрос копирования строки по критерию
2012-06-15 12:43 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
Правильный заголовок процедуры должен быть:
Код:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)


_Boroda_>> Re: сумма ячеек в столбцах через 1 или 2
2012-06-15 13:21 http://forum.msexcel.ru/profiles/boroda-u12234.html
наверное я не указала- просчитывать все повторные ячейки до конца строки -раньше это было IV.. счас даже и незнаю какое буквенное обозначение будет соответсвовать концу строки
от этого в формуле ничего, кроме диапазона не меняется. Но, может, все-таки подумаете - это довольно много столбцов, тормозить будет. Определите четко, сколько Вам нужно.

verdim>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-15 13:30 http://forum.msexcel.ru/profiles/verdim-u145537.html
О, как я зол, как я зол (на себя, естественно). Злой
Наверное, это уже диагноз.
Путь поиска решения:
1 отмечаю в проекте "BAZA.xls" пункт "Microsoft Excel Object" и щелкаю кнопку Insert;
2.в открывшемся окне Module1 щелкаю Insert-Procedure и корректирую текст function-процедуры, добавив "диапазон As Range" и "As Single";
3.ввожу текст функции и сохраняю (значек дискеты);
4.щелкаю по "Лист9(mont)";
5.в открывшемся окне в левом меню выбираю "Worksheet", а в правом - "SelectionChange";
6. автоматически формируется sub-функция, в которую заношу ее текст;
7.сохраняю (значек дискеты).
А дальше ... Честно признаюсь, что дальше был тупик.
Оставить все без изменения невозможно: откуда функция знает с чем надо работать.
Завожу все данные для функции "СомЦвет" (так она называется для этого случая), так она портит ячейку с курсором и опять-таки работает только один раз. При попытке изменить (установить\удалить комментарий), выдается ошибка о неопределенности имени "СомЦвет" (Непонимающий)
Я, честно говор...

Шпец Докапыч>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-15 13:54 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
Что если указать путь до функции точнее?
Код:
Module1.СомЦвет [диапазон]


Шпец Докапыч>> Re: макрос копирования строки по критерию
2012-06-15 15:11 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
Тогда, пожалуй, скопируем как есть (значение+формула+формат):
Код:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Column = 4 Then
    r = Target.Row - 1
    While Cells(r, 4) <> Target And r >= 14
      r = r - 1
    Wend
    If r < 14 Then MsgBox "Нет соответствий", 16: Exit Sub
    Application.EnableEvents = 0
    Cells(r, 5).Resize(1, 16).Copy Cells(Target.Row, 5).Resize(1, 16) 'правка
    Application.EnableEvents = 1
  End If
End Sub


_Boroda_>> Re: сумма ячеек в столбцах через 1 или 2
2012-06-15 15:17 http://forum.msexcel.ru/profiles/boroda-u12234.html
И поставьте соответствующий диапазон
=B4-СУММ(D4:DW4)+2*СУММПРОИЗВ((D$3:DW$3="перемещение в")+(D$3:DW$3="возврат");D4:DW4)

verdim>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-15 15:28 http://forum.msexcel.ru/profiles/verdim-u145537.html
Что если указать путь до функции точнее?
Код:
Module1.СомЦвет [диапазон]
Щас попробую. Правда смущает то, что Module1 аж Цвай Штукен.

cheshiki1>> Re: макрос копирования строки по критерию
2012-06-15 15:35 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html
ещё раз большое спасибо.
на этом пожалуй все.

verdim>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-15 15:47 http://forum.msexcel.ru/profiles/verdim-u145537.html
Увы. Не находит.
Смущает, однако, и то, что мне никак не избавиться от "#ЗНАЧ!" в ячейке с курсором при организации функции "СомЦвет", в то время как у Вас в этом смысле все чисто. Надо же ей как-то передать интервал ... Все тихо до тех пор, пока не "дотронешься" до комментария ... После этого "СомЦвет" и не находится. Т.е., Worksheet, я так понимаю, запускается, но не может по какой-то причине найти "СомЦвет". Я проверил шрифт в вызове и имени функции: то и другое на русском. Может быть Worksheet недолюбливает Россию Непонимающий

Шпец Докапыч>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-15 16:17 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
Тут следует уточнить один момент. Функция СомЦвет в моём примере равноценна процедуре:
Код:
Sub СомЦвет(диапазон As Range)
Т.е. подобная реализация не годится для использования функции в качестве пользовательской (UDF). Соответственно диапазон нужно указывать при вызове процедуры из кода (должен быть прописан в Worksheet_SelectionChange). Если же задача ставится обойти ограничения пользовательской функции и менять заливку формулой, то реализация уже будет другой. Как минимум лучше будет использовать событие Worksheet_Calculate или заливать уже непосредственно формулой (что вряд ли имеет смысл).

Ещё можно объединить код в один (тогда не надо будет искать СомЦвет):
[code]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
  If [A1] <> Comments.Count Then
    For Each i In [диапазон]
     If i.Comment Is Nothing Then
       i.Interior.ColorIndex = 6
     Else
       i.Interior.ColorIndex = 4
     End If
    Next
    [A1] = Comments.Count
  ...

verdim>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-15 16:32 http://forum.msexcel.ru/profiles/verdim-u145537.html
Произведен эксперимент (это, конечно, бред, но, все-таки, результат).
"Target" был помещен в параметр ComЦвет вместо "диапазон" и начались удивительные вещи:
1.при движении кусора по ячейкам, они раскрашивались сообразно с алгоритмом;
2.при действии с комментарием раскрас происходил, но довольно странным образом:
   надо было уйти на любую ячейку, а затем вернуться.
Уточнение: красятся все ячейки; даже те, которые вне диапазона.
Полученное указывает на то, что функция находится (Непонимающий) и никакого "#ЗНАЧ!" нет. Возникает вопрос: почему с "диапазон" не происходит хотя бы тоже самое и сама функция не находится (+ #ЗНАЧ) Непонимающий

verdim>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-15 16:37 http://forum.msexcel.ru/profiles/verdim-u145537.html
Тут следует уточнить один момент. Функция СомЦвет в моём примере равноценна процедуре:
Код:
Sub СомЦвет(диапазон As Range)
Т.е. подобная реализация не годится для использования функции в качестве пользовательской (UDF). Соответственно диапазон нужно указывать при вызове процедуры из кода (должен быть прописан в Worksheet_SelectionChange). Если же задача ставится обойти ограничения пользовательской функции и менять заливку формулой, то реализация уже будет другой. Как минимум лучше будет использовать событие Worksheet_Calculate или заливать уже непосредственно формулой (что вряд ли имеет смысл).

Ещё можно объединить код в один (тогда не надо будет искать СомЦвет):
[code]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
  If [A1] <> Comments.Count Then
    For Each i In [диапазон]
     If i.Comment Is Nothing Then
       i.Interior.ColorIndex = 6
     Else
    ...


verdim>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-15 17:02 http://forum.msexcel.ru/profiles/verdim-u145537.html
Честно говоря, я несовсем понимаю, как мы будем ограничивать диапазон в случаи объединения:
боюсь, функция будет метелить все подряд ячейки без разбора ... Рот на замке
Извините: это уже бандитизм. Веселый
Кстати, объединил и проверил: функция действительно не видна ...  Плачущий
Поэтому передать ей диапазон у меня не получилось. Плачущий

Шпец Докапыч>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-15 17:09 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
Откуда берётся "#ЗНАЧ!", если на листе нет формул? А если есть и функция возвращает "#ЗНАЧ!", то это означает, что функция определяется, иначе было бы "#ИМЯ?".

Во вложении я поместил в свой пример код из ответа #29. Предлагаю поэкспериментировать с ним. )

verdim>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-15 17:26 http://forum.msexcel.ru/profiles/verdim-u145537.html
Откуда берётся "#ЗНАЧ!", если на листе нет формул? А если есть и функция возвращает "#ЗНАЧ!", то это означает, что функция определяется, иначе было бы "#ИМЯ?".

Во вложении я поместил в свой пример код из ответа #29. Предлагаю поэкспериментировать с ним. )

Готовлю пистолет: сегодня застрелюсь ... С такой скоростью ... и опять не понятно ... Где мои патроны Непонимающий

Шпец Докапыч>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-15 17:39 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
А что не так? В [abbr=правой кнопкой мыши по ярлычку листа -> Исходный текст]модуле листа[/abbr], вместо [хрю], указываем [F5:G15], например.

verdim>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-15 17:44 http://forum.msexcel.ru/profiles/verdim-u145537.html
Я перед Вами преклоняю колени: Целующий
Вы выделили диапазон и дали ему имя "хрю". :Улыбка
Далее, вы с этим именем работаете как с массивом ... Смеющийся
Мать моя женщина: значит мозги у меня не окончательно завяли ... :Улыбка
Единственный остался теперь вопрос:
хотелось бы, чтобы он увеличился после вставки в конец (после последней ячейки) Непонимающий Опять переназначать диапазон Непонимающий
Как-то против автоматизации, понимаете ...  В замешательстве С добавлением и удалением то внутри диапазона все O'key ...  :Улыбка

Шпец Докапыч>> Re: Автоматическое изменение заливки ячеек в зависимости от наличия комментария
2012-06-15 17:54 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
Определить последнюю ячейку и сделать "резиновый" диапазон, - это классика жанра, например:
Код:
    LR = [A65536].End(xlUp).Row
    For Each i In Range("A2:A" & LR)


IKor>> Re: сумма ячеек в столбцах через 1 или 2
2012-06-15 21:59 http://forum.msexcel.ru/profiles/ikor-u6827.html
наверное я не указала- просчитывать все повторные ячейки до конца строки -раньше это было IV.. счас даже и незнаю какое буквенное обозначение будет соответсвовать концу строки
Теоретически можно использовать динамически расширяемый диапазон (т.е. рассматриваемый диапазон будет автоматически расширяться при добавлении новых столбцов).
Функция =СЧЁТЗ($3:$3)-2 вернет количество значимых столбцов, правее столбца C. Здесь константа -2 вычитается для отбрасывания не пустых значений в ячейках В3 и С3. Если в реальном файле в строке 3:3 есть другие "лишние" не пустые ячейки, то константу нужно поправить.
Тогда функция =СМЕЩ($B4;0;2;1;СЧЁТЗ($3:$3)-2) вернет ссылку на диапазон, D4:S4 - т.е. на строку длиной 16 и высотой 1 ячейку, отодвинутую вправо на 2 ячейки относительно ячейки B4.
Вы можете вставить эту функцию (без знака = ) вместо целевого диапазона в любую понравившуюся вам формулу. например:
=B4-СУММ([color=...

KuklP>> Re: Загрузка файла .CSV, в табличную часть
2012-06-16 07:40 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Вариант:
Код:
Sub www()
    Dim wb As Workbook
    ThisWorkbook.Sheets("Пример").UsedRange.Clear
    Set wb = Workbooks.Open("H:\post.csv", local:=True)
    wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("Пример").[a3]
    wb.Close 0: Set wb = Nothing
End Sub


radist>> Re: Отображение в формуле не номером ячейки,а значениями ячеек
2012-06-16 16:18 http://forum.msexcel.ru/profiles/radist-u144958.html
Вроде такая,казалась бы,простая задача, а решается очень уж сложно. Даже странно,что в Excel нельзя так сделать. Очень полезная была бы команда. Просто, проверяя формулы, искать глазами ячейки по названию и цвету,мне кажется,не всегда удобно бывает. А вот по значениям было бы вполне быстрее. Не всегда, но в моем случае очень часто Улыбка
IKor, спасибо вам огромное за ответы.

Spicker>> Количество вложений &quot;ЕСЛИ&quot; больше 7
2012-06-16 16:28 http://forum.msexcel.ru/profiles/spicker-u15674.html
Здравствуйте.

Подскажите пожалуйста как можно увеличит количество вложений "ЕСЛИ" больше 7, или может каким оператором можно дополнить формулу?

=ЕСЛИ(M26=Q14;R14;ЕСЛИ(M26=Q15;R15;ЕСЛИ(M26=Q16;R16;ЕСЛИ(M26=Q17;R17;ЕСЛИ(M26=Q18;R18;ЕСЛИ(M26=Q19;R19;ЕСЛИ(M26=Q20;R20;ЕСЛИ(M26=Q21;R21;ЕСЛИ - дальше не принимает - как продолжить???

Спасибо.


Шпец Докапыч>> Re: Количество вложений &quot;ЕСЛИ&quot; больше 7
2012-06-16 17:36 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
Надо продолжить изучать другие популярные функции.  Улыбка
=ВПР($M$26;$Q$14:$R$99;2;0)

Шпец Докапыч>> Re: Отображение в формуле не номером ячейки,а значениями ячеек
2012-06-16 17:59 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
Для отладки формул удобно вычислять промежуточный результат, выделяя непосредственно в строке формул и нажимая F9:
(синим то, что выделяется) =A1+B1 → [F9] → =A1+3 → [F9] → =2+3

Spicker>> Re: Количество вложений &quot;ЕСЛИ&quot; больше 7
2012-06-16 20:19 http://forum.msexcel.ru/profiles/spicker-u15674.html
Как вы не заблудитесь среди нескольких сайтов?.. На Планете в приемы чего не заглянуть - http://www.planetaexcel.ru/tip.php?aid=322...



Смотрел, искал но повторюсь ВПР и ПОИСКПОЗ ищут либо точное значение либо ближайшее.  

Spicker>> Re: Количество вложений &quot;ЕСЛИ&quot; больше 7
2012-06-16 20:20 http://forum.msexcel.ru/profiles/spicker-u15674.html
Так пример будет или нам самим рисовать?

да обязательно, щас просто вытяну отдельно и предоставлю.

IKor>> Re: Количество вложений &quot;ЕСЛИ&quot; больше 7
2012-06-16 20:25 http://forum.msexcel.ru/profiles/ikor-u6827.html
Не успел Улыбка


TimSha>> Re: Количество вложений &quot;ЕСЛИ&quot; больше 7
2012-06-16 20:31 http://forum.msexcel.ru/profiles/timsha-u13313.html
Как вы не заблудитесь среди нескольких сайтов?.. На Планете в приемы чего не заглянуть - http://www.planetaexcel.ru/tip.php?aid=322...

Смотрел, искал но повторюсь...

Не надо, пожалуйста... По ссылке "Пример 2. Приблизительный двумерный поиск" - как вам? Или - из пруда да без труда...

Spicker>> Re: Количество вложений &quot;ЕСЛИ&quot; больше 7
2012-06-16 20:51 http://forum.msexcel.ru/profiles/spicker-u15674.html
Вот пример

Serge 007>> Re: Количество вложений &quot;ЕСЛИ&quot; больше 7
2012-06-16 21:20 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Так что ли:
Код:
=ПРОСМОТР(B5;E6:E15;D6:D15)


ZORRO2005>> Re: Количество вложений &quot;ЕСЛИ&quot; больше 7
2012-06-16 21:31 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
Код:
=ИНДЕКС(D6:D15;ПОИСКПОЗ(1;Ч(E6:E15-B5>=0);))
Если список не сортирован по возрастанию:
Код:
=ИНДЕКС(D6:D15;ПОИСКПОЗ(1;Ч(ЕСЛИ(E6:E15>=B5;E6:E15-B5)=МИН(ЕСЛИ(E6:E15>=B5;E6:E15-B5)));))
формулы массива

IKor>> Re: Количество вложений &quot;ЕСЛИ&quot; больше 7
2012-06-16 22:27 http://forum.msexcel.ru/profiles/ikor-u6827.html
вот решение.
даже два...

Spicker>> Re: Количество вложений &quot;ЕСЛИ&quot; больше 7
2012-06-16 22:43 http://forum.msexcel.ru/profiles/spicker-u15674.html
вот решение.
даже два...

Отлично- даже растерялся сколько примеров Улыбка


ВСЕМ СПАСИБО за помощь.

pashamt8>> Оптимизирование инвестиций
2012-06-17 01:39 http://forum.msexcel.ru/profiles/pashamt8-u145838.html
Задача такая.

Срок планирования - 3 года.
Бюджет каждого года  - 15 млн

Есть стоимость и отдача инициатив.
Инициативы взаимосвязаны - добыча руды -> доставка на завод -> переработка.
То есть в итоге надо получить равные  максимальные значения добычи, доставки и переработки для 3 года. Главное, что добыча опеределяет сколько нам надо доставлять и обрабатывать.

Я мало знаком с экселем, есть только представление о пути решения.

Думаю так - надо задать два параметра для инициативы - отдачу и стоимость.

По вертикали три инициативы, по горизонтали - 3 года. Условия - значение отдачи от инициативы по добыче максимально после 3 года, отдачи от остальных инициатив меньше либо равны, стоиомсть при этом меньше 15 для каждого года в сумме.

При этом некоторые инициативы применяются только раз ( применили и они не должны повторяться). Плюс время реализации разное - год либо два.

В итоге - надо получить оптимальные значения добычи, обработки и доставки руды.
Устно я сделал, цифры легкие, а как ре...

b1b1g0n>> Сравнение двух столбцов на совпадения ячеек с сортировкой и заменой ячеек
2012-06-17 19:47 http://forum.msexcel.ru/profiles/b1b1g0n-u145901.html
В общем задача. Представьте, есть четыре столбца - два с ценами, два с артикулами. Соответственно, сочетаются попарно: артикул-цена, артикул-цена.

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

vater>> Изучение VBA
2012-06-17 20:59 http://forum.msexcel.ru/profiles/vater-u144728.html
Здравствуйте, хочу изучить этот язык для более удобного освоения Excel, но столкнулся с проблемой в выборе учебника. Это слишком упрощенная подача материала, я хоть и гуманитарий, но заметил, что в учебниках по Excel и VBA очень много воды. Есть ли учебники или сайты, где рассказывают все на примерах, начиная с банального Hello word и арифметики, и идя все глубже, как в обучении языкам программирования?

Андрей Евстигнеев>> Re: Соединение данных из нескольких таблиц
2012-06-17 21:30 http://forum.msexcel.ru/profiles/andrey_evstigneev-u145906.html
В примере в файле все есть. Смотрите, если что непонятно, спрашивайте.
Пришлите, пожалуйста, файл примера.

_Boroda_>> Re: Сравнение двух столбцов на совпадения ячеек с сортировкой и заменой ячеек
2012-06-17 21:52 http://forum.msexcel.ru/profiles/boroda-u12234.html
Для начала почитайте правила форума
Без этого только общие рекомендации - используйте [url=http://msexcel.ru/content/view/116/2/]условное_форматирование[/url] и функцию ВПР

Rinalaz>> Re: Вычисление суммы частных, где делителем является пустая ячейка
2012-06-18 11:05 http://forum.msexcel.ru/profiles/rinalaz-u9639.html
Наверное я неправильно действительно сформулировала задачу. Упрощаю. Надо, чтоб при делении на пустую ячейку, или на ноль не отображалась ошибка "деление на ноль" - надо чтоб была просто пустая ячейка.
Пример. Чтоб пользователи не видели сообщений об ошибках и при печати это не выходило тоже.

Serge 007>> Re: Вычисление суммы частных, где делителем является пустая ячейка
2012-06-18 11:11 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Можно скрыть УФом: =еош(E7)
или
=если(C7*D7;D7*100/C7;"")
или (для xlsx)
=еслиошибка(D7*100/C7;"")

Fedbul>> Re: Вычисление суммы частных, где делителем является пустая ячейка
2012-06-18 11:27 http://forum.msexcel.ru/profiles/fedbul-u31035.html
Можно и так

=ЕСЛИ(C7>0;D7/C7*100;)
или
=ЕСЛИ(C8>0;D8/C8*100;ЕСЛИ(C8=0;""))

shamilganiev>> Двигаю вертикальный ползунок чууууточку, перескакивает 2000 строк, как исправить
2012-06-18 12:58 http://forum.msexcel.ru/profiles/shamilganiev-u140702.html
Двигаю вертикальный ползунок чууууточку, перескакивает 2000 строк, как исправить? Согласен, у меня много используемых строк, но я фильтрую, оставляя лишь 100 строк к примеру.

STEROID>> Re: Создание списка из списка по выбранному критерию
2012-06-18 13:00 http://forum.msexcel.ru/profiles/steroid-u114348.html
или так без доп. ст. (на основе формулы в столбце Е)
=ИНДЕКС(A$1:A$9;НАИМЕНЬШИЙ(ЕСЛИ($D$2:$D$9>0;СТРОКА(E$2:E$9));СТРОКА()-1))
[abbr=Вводится через Ctrl+Shift+Enter]формула массива[/abbr]

=ИНДЕКС(A$1:A$9;НАИМЕНЬШИЙ(ЕСЛИ($D$2:$D$9>0;СТРОКА(E$2:E$9));СТРОКА()-1))

Можете пояснить, сижу азы формул разбираю - не могу все сложить в одну формулу?

Serge 007>> Re: Создание списка из списка по выбранному критерию
2012-06-18 13:15 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Подробно см. здесь

Serge 007>> Re: Двигаю вертикальный ползунок чууууточку, перескакивает 2000 строк, как исправить
2012-06-18 13:17 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Необходимо удалить все строки ниже данных и все столбцы правее данных, сохранить файл и закрыть открыть.

_Boroda_>> Re: Создание списка из списка по выбранному критерию
2012-06-18 13:26 http://forum.msexcel.ru/profiles/boroda-u12234.html
=ИНДЕКС(A$1:A$9;НАИМЕНЬШИЙ(ЕСЛИ($D$2:$D$9>0;СТРОКА(E$2:E$9));СТРОКА()-1))
1) ЕСЛИ($D$2:$D$9>0;СТРОКА(E$2:E$9) - если в D значения больше 0, то формула дает номер этой строки (2;3;4;...), иначе - ЛОЖЬ
2) из полученного в п.1 выбираем n-ую наименьшую цифру, где n - СТРОКА()-1 - это номер строки, в которой находится сама формула, минус 1
В итоге получаем последовательно номера строк (минус 1), в которых D>0
3) Индексом выковыриваем по этим номерам значения из А

shamilganiev>> Re: Двигаю вертикальный ползунок чууууточку, перескакивает 2000 строк, как исправить
2012-06-18 13:33 http://forum.msexcel.ru/profiles/shamilganiev-u140702.html
Сделал. Не помогает.

Я уже так делал раньше. Обычно это помогало, но сейчас что-то не так. Ниже определённой строчки данных нет, я всё удалил, не только данные, но и сами строки.

shamilganiev>> Re: Забава (Звабаа)
2012-06-18 13:38 http://forum.msexcel.ru/profiles/shamilganiev-u140702.html
Вот какой раз уже захожу сюда в Ваш вопрос, мне всё больше и больше кажется стандартными функциями тут не обойтись...

STEROID>> Re: Создание списка из списка по выбранному критерию
2012-06-18 13:42 http://forum.msexcel.ru/profiles/steroid-u114348.html
=ИНДЕКС(A$1:A$9;НАИМЕНЬШИЙ(ЕСЛИ($D$2:$D$9>0;СТРОКА(E$2:E$9));СТРОКА()-1))
1) ЕСЛИ($D$2:$D$9>0;СТРОКА(E$2:E$9) - если в D значения больше 0, то формула дает номер этой строки (2;3;4;...), иначе - ЛОЖЬ
2) из полученного в п.1 выбираем n-ую наименьшую цифру, где n - СТРОКА()-1 - это номер строки, в которой находится сама формула, минус 1
В итоге получаем последовательно номера строк (минус 1), в которых D>0
3) Индексом выковыриваем по этим номерам значения из А

Вопрос - можно ли  привязанные массивы в этой формуле заменить динамическими?

zarl>> Re: Забава (Звабаа)
2012-06-18 13:45 http://forum.msexcel.ru/profiles/zarl-u56773.html
У меня получается только если огроооомную таблицу изобрести. Но это не интересно...

Serge 007>> Re: Создание списка из списка по выбранному критерию
2012-06-18 13:47 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Вопрос - можно ли  привязанные массивы в этой формуле заменить динамическими?
Можно. Что мешает самому проверить?

ЗЫ Только размерность массивов должна быть одинаковой.

STEROID>> Re: Создание списка из списка по выбранному критерию
2012-06-18 13:52 http://forum.msexcel.ru/profiles/steroid-u114348.html
Вопрос - можно ли  привязанные массивы в этой формуле заменить динамическими?
Можно. Что мешает самому проверить?

ЗЫ Только размерность массивов должна быть одинаковой.

Проверяю не получается!
 и еще, хотел поменять условие, так как по условию столбцом D пользоваться нельзя, условие ЕСЛИ($E$2:$E$9="применяется";СТРОКА(F$2:F$9) не выполняется.....

Serge 007>> Re: Создание списка из списка по выбранному критерию
2012-06-18 13:55 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Проверяю не получается!
Выкладывайте что не получается

Цитировать
так как по условию столбцом D пользоваться нельзя
В моём варианте этот столбец не используется

verdim>> Проблема с точностью вычисления
2012-06-18 19:45 http://forum.msexcel.ru/profiles/verdim-u145537.html
Добрый день !!!
Вот я и опять у Вас в гостях. Принес подарок. А именно.
Есть функция, простенькая такая:

Function СумЦвет (диапазон As Range, критерий As Range) As Single
Application.Volatile True
Dim  i As Range
   For Each  i  In диапазон
        If i.Interior.ColorIndex = критерий.Interior.ColorIndex Then
              СумЦвет = СумЦвет + i.Value
        End If
   Next
EndFunction

Что она делает, - не мне Вам рассказывать.
Расскажу только о том, чем она меня убила .... наповал.
Задумал я сложить цифры с двумя знаками после точки ...
Задумано, - сделано: выставил их столбиком, завел функцию, выделил столбик, установил критерий ...
И получил ... довольно неприятно и не туда, куда хотел.
Сложиться то они сложились, но, сколько бы я ни стучал головой об стенку, цифры после точки напрочь не хотели реагировать.
Я, желая их умаслить, умножал два слагаемых на сто, а потом делил сумму на эти злосчастные сто, - ни в какую.
Увеличиваю цифирю на одну сотую, проделываю эту манипуляцию, а резу...

Nurikus>> Работа с базой данных.
2012-06-18 20:08 http://forum.msexcel.ru/profiles/nurikus-u145967.html
Есть очень большой список аппаратов с их выручкой, данные из системы выгружаются ежедневно. Хочу прописать формулу чтобы в тотальной таблицы она по названию аппарата вытаскивала его выручку из нужного листа. Как такое сделать?
Попробовал функцию ВПР, не получилось. Обеспокоенный


Serge 007>> Re: Работа с базой данных.
2012-06-18 20:38 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Как такое сделать?  
Сбор информации с нескольких листов. Использование названий листов в формуле

Prist>> Re: Двигаю вертикальный ползунок чууууточку, перескакивает 2000 строк, как исправить
2012-06-18 21:36 http://forum.msexcel.ru/profiles/prist-u4859.html
Сделал. Не помогает.

Я уже так делал раньше. Обычно это помогало, но сейчас что-то не так. Ниже определённой строчки данных нет, я всё удалил, не только данные, но и сами строки.
А теперь необходимо проверить лист на наличие объектов:
В Excel 2003: меню Правка- Перейти – Выделить – Объекты.
в Excel 2007-2010: вкладка Главная-Найти и выделить-Выделение группы ячеек-Объекты.
Нажмите Delete. Все объекты на листе будут удалены. Правда есть небольшой шанс, что у Вас есть скрытые объекты. Тогда надо идти в редактор VBA(Alt+F11)-Ctrl+R. Отображаете окно свойств(F4). Находите объект ЭтаКнига(ThisWorkbook) и в окне свойств свойство — DisplayDrawingObjects и ставите там значение — -4104-xlDisplayShapes. После этого переходите опять на лист и повторяете операции по выделению и удалению объектов, описанные выше. Нахождение на листе объектов не означает, что Вы их видите.

Serge 007>> Re: Двигаю вертикальный ползунок чууууточку, перескакивает 2000 строк, как исправить
2012-06-18 21:54 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Дим, в файле нет объектов
Ни скрытых, ни видимых

ЗЫ На работе я не мог посмотреть файл, слишком он большой, но дома посмотрел

ZORRO2005>> Re: Работа с базой данных.
2012-06-18 22:27 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
Попробуйте СУММЕСЛИ.

MCH>> Re: Проблема с точностью вычисления
2012-06-19 00:17 http://forum.msexcel.ru/profiles/mch-u48782.html
1. вместо Single используйте Double
2. если хотите округлять до двух знаков, то округляйте: СумЦвет = СумЦвет + Round(i.Value, 2)

shamilganiev>> Re: Двигаю вертикальный ползунок чууууточку, перескакивает 2000 строк, как исправить
2012-06-19 08:09 http://forum.msexcel.ru/profiles/shamilganiev-u140702.html
В оригинале у меня там 7 листов, в том листе который я Вам дал я удалил некоторые столбцы, но думаю там не было объектов. Думаю в принципе в файле не должно быть сверхсекретных данных, может его выложить для исследования? Или просто скопировать на новый лист и закрыть вопрос, как вы думаете?

SanSanych>> Как правильно написать макрос сохраняющий файл в Excel2007?
2012-06-19 08:46 http://forum.msexcel.ru/profiles/sansanych-u146002.html
Добрейшего времени суток!

Как корректно написать макрос сохраняющий обновленную сводную таблицу в формате Excel2007?

Есть такой макрос:

Sub Auto_Open()

' Auto_Open Макрос
'
    Range("B9").Select
    ActiveSheet.PivotTables("СводнаяТаблица2").PivotCache.Refresh
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "D:\FileName.xlsx", FileFormat _
    :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
    False, CreateBackup:=False
    ThisWorkbook.Close False
 End Sub

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

FileFormat:=xlExcel8 - так же не помог. Та же ошибка.

Что не так?


shamilganiev>> Re: Работа с базой данных.
2012-06-19 09:02 http://forum.msexcel.ru/profiles/shamilganiev-u140702.html
вопрос: как точно будут подписаны листы? просто месяц.год или день.месяц.год? и как будут подписаны названия столбцов в тотал?

shamilganiev>> Re: Работа с базой данных.
2012-06-19 09:11 http://forum.msexcel.ru/profiles/shamilganiev-u140702.html
Посмотри, примерно так?

Nurikus>> Re: Работа с базой данных.
2012-06-19 09:58 http://forum.msexcel.ru/profiles/nurikus-u145967.html
Посмотри, примерно так?
Работает, а можно к примеру данную операцию сделать через функцию ВПР или ГПР?
За помощь спасибо!

shamilganiev>> Re: Работа с базой данных.
2012-06-19 10:02 http://forum.msexcel.ru/profiles/shamilganiev-u140702.html
к сожаленью я не пользовался данными функциями, но насколько я смутно знаю про эти функции, то можно. может кто другой форумчанин поможет...

Nurikus>> Re: Работа с базой данных.
2012-06-19 10:06 http://forum.msexcel.ru/profiles/nurikus-u145967.html
вопрос: как точно будут подписаны листы? просто месяц.год или день.месяц.год? и как будут подписаны названия столбцов в тотал?
Страницы могут быть подписаны по разному, столбцы тоже. Возможно это будет аналитика по дням.

Serge 007>> Re: Работа с базой данных.
2012-06-19 10:17 http://forum.msexcel.ru/profiles/serge_007-u25260.html
...можно к примеру данную операцию сделать через функцию ВПР?
Код:
=ВПР($B5;ДВССЫЛ("'"&Total!C$4&"'!b2:c300");2;)


IKor>> Re: Работа с базой данных.
2012-06-19 10:21 http://forum.msexcel.ru/profiles/ikor-u6827.html
Попробуйте СУММЕСЛИ.
Одной СУММЕСЛИ() не обойтись.
Я рекомендую попробовать еще ДВССЫЛ() Улыбка

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

Если диапазонов будет много и возиться с отдельным именованием каждого не хочется, то я рекомендую придумать правило их именования и мало-мало автоматизировать аргументы ДВССЫЛ() Улыбка

shamilganiev>> Re: Работа с базой данных.
2012-06-19 10:40 http://forum.msexcel.ru/profiles/shamilganiev-u140702.html
Попробуйте СУММЕСЛИ.
Одной СУММЕСЛИ() не обойтись.
Я рекомендую попробовать еще ДВССЫЛ() Улыбка

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

Если диапазонов будет много и возиться с отдельным именованием каждого не хочется, то я рекомендую придумать правило их именования и мало-мало автоматизировать аргументы ДВССЫЛ() Улыбка
как ты из ДВССЫЛ("янв2012") получаешь '01.2012'!B2:C263 ?
научи а

Serge 007>> Re: Работа с базой данных.
2012-06-19 10:44 http://forum.msexcel.ru/profiles/serge_007-u25260.html
как ты из ДВССЫЛ("янв2012") получаешь '01.2012'!B2:C263 ?

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

shamilganiev, Ctrl+F3 нажмите

Nurikus>> Re: Работа с базой данных.
2012-06-19 10:52 http://forum.msexcel.ru/profiles/nurikus-u145967.html
...можно к примеру данную операцию сделать через функцию ВПР?
Код:
=ВПР($B5;ДВССЫЛ("'"&Total!C$4&"'!b2:c300");2;)
Как вы подвязали диапазон b2:c300 к странице 01.2012!
Помогите плиз!

Serge 007>> Re: Работа с базой данных.
2012-06-19 10:58 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Как вы подвязали диапазон b2:c300 к странице 01.2012!
Nurikus, Вы по ссылке, что я дал в первом своём посте этой темы, ходили?
Там всё подробно и с картинками

cheshiki1>> Re: Работа с базой данных.
2012-06-19 11:07 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html
Цитировать
Как вы подвязали диапазон b2:c300 к странице 01.2012!
походу Вы про ф-цию СЦЕПИТЬ в исполнении & не знаете.
два значения (текст или число не важно) можно сцепить:
так =СЦЕПИТЬ(A1;A2) или так  =A1&A2


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

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


В избранное