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

Страницы: 1
удалить все строки, кроме выбранных фильтром
 
#
28.11.2018 12:15:09
JayBhagavan, спасибо, но много ручных действий, нужно автоматом
 
Перейти    
удалить все строки, кроме выбранных фильтром
 
#
28.11.2018 10:13:19
Добрый день.

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

Прошу помочь. Спасибо.
Изменено: pnv - 28.11.2018 12:13:51
 
Перейти    
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
#
22.06.2018 14:59:12
да все работает
 
Перейти    
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
#
22.06.2018 14:28:08
всем спасибо
 
Перейти    
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
#
22.06.2018 14:10:41
Цитата
Юрий М написал:
ознакомились с Правилами
Ознакомился (было полезно в т.ч. п. 2.4. про персональные данные). Спасибо.
 
Перейти    
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
#
22.06.2018 14:05:18
Цитата
Андрей VG написал:
Power Query
Спасибо, но существующий офис не поддерживает Power Query.
Не из Екатеринбурга.
 
Перейти    
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
#
22.06.2018 12:27:30
Я был бы очень признателен, если бы Вы исправили макрос. Хотя я не понял про номер строки.
 
Перейти    
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
#
22.06.2018 12:13:34
Юрий М, слово "файл" не находит, а должно
 
Перейти    
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
#
22.06.2018 11:55:35
1. Прилагаю, слова "тест" или "файл" найти не могу - в этом проблема.
2. Результат должен сообщать присутствует или нет искомое слово.
 
Перейти    
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
#
22.06.2018 10:57:12
если в ячейке не одно слово, присутствуют другие символы - не получается
 
Перейти    
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
#
22.06.2018 10:33:04
Добрый день.

Можно ли автоматически найти слово (без учета регистра) по нескольким ячейкам наполненным текстом (с пробелами). Результат вернуть любом виде.

Спасибо за ответы. Николай.
 
Перейти    
Сортировка в сводной таблице
 
#
12.09.2017 07:05:14
RAN,спасибо
 
Перейти    
Сортировка в сводной таблице
 
#
08.09.2017 11:59:26
RAN,спасибо за пояснение. Не подскажите, как в таком случае можно организовать сортировку? дело в том, что в сводной таблице могут быть, а могут и не быть "поз1-9"
Изменено: pnv - 09.09.2017 10:23:13
 
Перейти    
Сортировка в сводной таблице
 
#
08.09.2017 11:32:48
Извините, не понимаю. Понятно, что "поз6" и "поз7" нет, но для организован пропуск ошибок (On Error Resume Next и On Error GoTo 0). "Поз8" в любом случае должно стоять выше "поз9". Чего я не понимаю?
Изменено: pnv - 09.09.2017 10:20:31
 
Перейти    
Сортировка в сводной таблице
 
#
08.09.2017 08:19:41
Добрый день.

Некорректно сортируются строки в таблице.
Код
On Error Resume Next    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз1"). _ 
       Position = 1 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз2"). _ 
       Position = 2 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз3"). _ 
       Position = 3 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз4"). _ 
       Position = 4 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз5"). _ 
       Position = 5 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз6"). _ 
       Position = 6 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз7"). _ 
       Position = 7 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз8"). _ 
       Position = 8 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз9"). _ 
       Position = 9 
On Error GoTo 0

Результат:
поз1
поз2
поз3
поз4
поз5
поз9
поз8

Где ошибка? Заранее спасибо.
 
Перейти    
vba сортировка строк в сводной таблице
 
#
07.09.2017 12:04:52
спасибо за ответ, результат сортировки кода:
Код
On Error Resume Next
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз1"). _
        Position = 1
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз2"). _
        Position = 2
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз3"). _
        Position = 3
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз4"). _
        Position = 4
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз5"). _
        Position = 5
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз6"). _
        Position = 6
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз7"). _
        Position = 7
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз8"). _
        Position = 8
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз9"). _
        Position = 9
On Error GoTo 0
теперь странный:
поз1
поз2
поз3
поз4
поз5
поз9
поз8
Почему?
Изменено: pnv - 07.09.2017 17:24:56
 
Перейти    
vba сортировка строк в сводной таблице
 
#
07.09.2017 09:53:45
Добрый день.

Нужно упорядочить строки в сводной таблице, для этого использую:
Код
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("тест1"). _
        Position = 1
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("тест2"). _
        Position = 2

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

Заранее спасибо.
 
Перейти    
Страницы: 1
Наверх