Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Николай Венгеров
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
перестает работать макрос на офисе 365
 
#
27.02.2020 16:20:29
Дмитрий(The_Prist) Щербаков,Ура!!! Спасибо! Выручили еще раз. Теперь работает.
 
Перейти    
перестает работать макрос на офисе 365
 
#
27.02.2020 08:43:22
Дмитрий(The_Prist) Щербаков, Да, виноват. Это я искал решения и забыл исправить.
Похоже проблема в том, что макрос не включат и не отключает фильтр, который стоит выше сводной таблицы.
Дмитрий, в далеком 2018 г. Вы мне помогли найти решение как сделать Фильтр по цвету в сводной таблице) https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=103460&MID=855468#message855468  Спасибо! Далее я сделал макрос фильтрации. Но на 2010 офисе все работает, а на 365 - нет. Возможно в 365 офисе нельзя чтобы фильтр "перекрывал" сводную таблицу?
Код
Sub Макрос1()
    ActiveSheet.Range("$A$10:$D$26").AutoFilter Field:=4, Criteria1:=RGB(255, _
        255, 0), Operator:=xlFilterCellColor
  End Sub

Sub Макрос2()
    ActiveSheet.Range("$A$10:$D$26").AutoFilter Field:=4
End Sub
 
Перейти    
перестает работать макрос на офисе 365
 
#
25.02.2020 21:24:26
на виндовс ХР, эксель 2010 все работает. Этот же макрос на фисе 365 выдает ошибку на ActiveSheet.Range. Не могу понять почему?
Подскажите пожалуйста, как нужно отредоктировать?
Код
    Sub Обнов()

Worksheets("Сводная").Unprotect Password:="11679"
    ActiveSheet.Range("$D$10:$D$37437").AutoFilter Field:=1
    Range("D12").Select
    ActiveSheet.PivotTables("СводнаяТаблица5").RepeatAllLabels xlDoNotRepeatLabels
    Range("D14").Select
    With ActiveSheet.PivotTables("СводнаяТаблица5").PivotFields("ДО")
        .PivotItems("12:00:00 AM").Visible = True
    End With
    ActiveSheet.PivotTables("СводнаяТаблица5").PivotCache.Refresh
    With ActiveSheet.PivotTables("СводнаяТаблица5").PivotFields("ДО")
        .PivotItems("12:00:00 AM").Visible = False
    End With
   Worksheets("Сводная").Protect Password:="11679", DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
 
Перейти    
Разделить ФИО по столбцам формулой
 
#
15.02.2020 11:39:31
Очень большое всем спасибо!
 
Перейти    
Разделить ФИО по столбцам формулой
 
#
15.02.2020 09:32:30
Здравствуйте! Подскажите пожалуйста как разложить текст по ячейка формулой?
К примеру, есть ячейка с фамилией, именем и отчеством - нужно отделить каждое слово.
 
Перейти    
Разница столбцов в сводной таблице
 
#
05.09.2018 11:20:37
Максим Зеленский, спасибо Большое! Подойдет такой вариант.  
 
Перейти    
Разница столбцов в сводной таблице
 
#
05.09.2018 10:46:19
Добрый день!
Подскажите пожалуйста, как из одного столбца сводной отнять другой? Знаю что это можно сделать при помощи "вычисляемого поля". Но в моем примере не могу этого сделать.

Пример прикрепил. Красным выделил какой столбец в сводной должен добавиться.

Спасибо.
 
Перейти    
Обновление условного форматирования сводной таблицы
 
#
24.08.2018 09:03:32
БМВ,Спасибо большое!!! Все работает! Мне даже хватило ума перенести формулы в свою большую таблицу))

Еще раз СПАСИБО!))
 
Перейти    
Обновление условного форматирования сводной таблицы
 
#
23.08.2018 16:53:11
БМВ,
да, так уже лучше)) теперь не форматируется только новый столбец, а строки - все хорошо.
Не пойму как мне Вашу функцию добавить?  FormatArea? Чтоб к своей большой таблице адаптировать. Подскажите пожалуйста из чего она состоит?
 
Перейти    
Обновление условного форматирования сводной таблицы
 
#
23.08.2018 15:41:33
 
Изменено: Николай Венгеров - 23.08.2018 15:43:24
 
Перейти    
Обновление условного форматирования сводной таблицы
 
#
23.08.2018 15:41:06
БМВ, Спасибо! Так! только при обновлении таблицы при внесении доп. данных, диапазон условного форматирования автоматически не расширяется(
А если сделать заранее диапазон с запасом (если отключить итоги) тогда при обновлении таблицы форматирование вообще "слетает"???

Может есть решение?  
 
Перейти    
Обновление условного форматирования сводной таблицы
 
#
23.08.2018 15:00:41
Здравствуйте!
Подскажите пожалуйста как можно настроить подсветку "выше и ниже среднего" каждого столбца сводной таблицы? Одного сделал, а чтобы это распространить на каждый столбец не могу додуматься((

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

Пример прикрепил.

Спасибо.
 
Перейти    
Фильтр по цвету в сводной таблице
 
#
11.04.2018 09:24:20
Дмитрий Щербаков, СПАСИБО!!! :D  Как всё просто! :)  
 
Перейти    
Фильтр по цвету в сводной таблице
 
#
10.04.2018 17:48:46
Z, главная цель отобрать нужные даты, которые закрашиваются условным форматированием. Оригинал файла 10 Мб, поэтому упростил пример.  У меня эксель 2007. В идеале было бы получить результат как в обычных таблица, где можно сортировать по цвету заливки. Вариант водить в фильтр нужный диапазон дат, не подходит - тогда нет смысла от условного форматирования. И как всегда)) фалом будут пользоваться люди которые не знают как настроить фильтр по дате))
 
Перейти    
Фильтр по цвету в сводной таблице
 
#
10.04.2018 17:15:06
Здравствуйте!

Подскажите пожалуйста, как в сводной таблице сделать фильтр по цвету?
В форуме ответ на эту тему не нашел. Пример прикрепил.

Спасибо!
 
Перейти    
Включить работу срезов сводной табл. на защищенном листе
 
#
10.04.2018 16:56:23
m.roman, Спасибо!

у меня получилось так
Код
Sub Обновить()
Worksheets("Сводная").Unprotect Password:="123"
   'первый макрос'
    End With
   Worksheets("Сводная").Protect Password:="11679", DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
 
Перейти    
Включить работу срезов сводной табл. на защищенном листе
 
#
09.04.2018 13:30:34
Я так понимаю, нужно приблизительно такой код вставить
Только куда именно?  8-0  Подскажите!
Код
 ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFiltering:=True, AllowUsingPivotTables:=True
Изменено: Николай Венгеров - 09.04.2018 13:31:23
 
Перейти    
Включить работу срезов сводной табл. на защищенном листе
 
#
09.04.2018 10:54:07
Здравствуйте!

Подскажите пожалуйста как макросом разрешить работу срезов на защищенном паролем 123 листе?
На форуме нашел как разрешить работу макросов на защищенном листе (сделал чтоб можно было обновить таблицу). А какой макрос можно сюда дописать, чтоб еще и срезы заработали?

Спасибо!
Код
Sub Обновить()
Worksheets("Сводная").Unprotect Password:="123" '
   Range("C5").Select
    ActiveSheet.PivotTables("СводнаяТаблица1").PivotCache.Refresh
    Range("E6").Select
   Worksheets("Сводная").Protect Password:="123"
End Sub
 
Перейти    
Скрытие группы столбцов флажком на заблокированном листе
 
#
06.04.2018 13:26:48
Додумался наконец-то!
Кто-нибудь может подсказать как на автоматическую блокировку листа добавить конкретный пароль, например 444?
Спасибо.
Код
Private Sub Workbook_Open()
   Call SheetProtect(Sheets("Данные"))
   UserForm1.Show
 End Sub
Изменено: Николай Венгеров - 06.04.2018 13:27:16
 
Перейти    
Скрытие группы столбцов флажком на заблокированном листе
 
#
06.04.2018 11:06:12
webley, Спасибо большое! Работает  :)
А подскажите еще пожалуйста. У меня в книге есть еще  "заставка при открытии файла". Как можно совместить эти два макроса?
У меня не получается.

Код
Private Sub Workbook_Open()
   UserForm1.Show
End Sub

Option Explicit

Private Sub Workbook_Open()
    Call SheetProtect(Sheets("Данные"))
End Sub
 
Перейти    
Скрытие группы столбцов флажком на заблокированном листе
 
#
04.04.2018 17:59:48
webley, Спасибо!
Но в Вашем примере устанавливаю флажки, перехожу на лист данные и появляется ошибка. Может я что-то сломал?))
Изменено: Николай Венгеров - 04.04.2018 18:01:31
 
Перейти    
Скрытие группы столбцов флажком на заблокированном листе
 
#
04.04.2018 16:56:39
Здравствуйте!
Как можно сделать, чтоб при включении флажка на листе "Настройки" автоматически Скрывались/Отображались группы столбцов на листе "Данные" (J:L, M:O и т.д. до CD:CF) при условии, что оба листа защищены?

Пытался найти на форуме, но такого варианта не нашел.
Пример прикрепил.
Спасибо.
 
Перейти    
Msbox с информацией с ячейки, кMsbox
 
#
04.04.2018 15:43:21
Всем большое спасибо!
 
Перейти    
Msbox с информацией с ячейки, кMsbox
 
#
03.04.2018 14:08:55
Ігор Гончаренко, я в начале темы описал суть вопроса и показывал картинку с желаемым результатом. Так как Sanja и Апострофф изначально подсказывали и участвовали в теме, поэтому я не стал заново описывать задачу.

Необходимо, чтоб при щелчке на картинку в ячейке А12 появлялось диалоговое окно с текстом (инфомацией) из ячейки W12 далее:
картинка А14 текст W13
картинка А16 текст W14
картинка А18 текст W15
и так до
картинка А60 текст W36

Примеры прикрепил.
 
Перейти    
Msbox с информацией с ячейки, кMsbox
 
#
03.04.2018 13:04:08
Sanja, просто не захотел Вас затруднять. Надеялся сам адаптировать под свои условия.

Я конечно понимаю, что "Когда знаешь - все просто!")), но когда не знаешь можно неделю и больше думать над одной цифрой)  Так основная часть людей Эксель и познает :idea:

Прикрепил пример соответствующий правилам. Если не трудно - подскажите.
 
Перейти    
Msbox с информацией с ячейки, кMsbox
 
#
02.04.2018 18:00:03
Апострофф, Сдаюсь!
Думал это номер строки с которой начинаются ячейки с текстом ссылок. Но, нет.
Что это, подскажите пожалуйста.
 
Перейти    
Msbox с информацией с ячейки, кMsbox
 
#
02.04.2018 15:58:05
Апострофф, как я понял ))

\ 2 + 3, 5)  
2 - это номер ячейки с картинкой
3 - это номер столбца первого текста
5 - это номер столбца второго текста
Но так как у меня не получается адаптировать под свой вариант (сообщение №17) - я все понял неправильно))! У меня даже не становится ссылкой сама картинка :oops:  
 
Перейти    
Msbox с информацией с ячейки, кMsbox
 
#
02.04.2018 13:48:04
Sanja, я рассматриваю все варианты.
Ваш тоже супер!
Только опять не могу подогнать под свои условия))) За что отвечает "\ 2 + 3, 5)" ))  :qstn:

И как Ваш макрос подогнать под прикрепленный пример?  :evil:  :(  Ничего не получается ))
Как?
 
Перейти    
Msbox с информацией с ячейки, кMsbox
 
#
02.04.2018 12:55:17
Апострофф, Спасибо!
У меня вирус молчит, все ОК.
Сейчас попробую подогнать под свои условия.
 
Перейти    
Msbox с информацией с ячейки, кMsbox
 
#
02.04.2018 12:00:44
Irregular Expression, я думал как-то проще это сделано))

А можете сделать хотя бы 2 ссылки, чтоб я мог дальше сам подумать как дальше делать (всего у меня 25).
У меня мозгов не хватает)) сделать все с нуля.
 
Перейти    
Страницы: 1 2 След.
Наверх