Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сортировка с учетом регистра - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка с учетом регистра (Макросы/Sub)
Сортировка с учетом регистра
Enix Дата: Суббота, 09.12.2017, 05:59 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 60% ±

Excel 2007
Нужна макрос который фильтрует с первом большой буквы

Например в ячейки А слова
вместе
играем
мы
они
Футбол

Но при использование макроса фильтрует с первом большой буквы

Футбол
вместе
играем
мы


Сообщение отредактировал Pelena - Воскресенье, 10.12.2017, 16:12
 
Ответить
СообщениеНужна макрос который фильтрует с первом большой буквы

Например в ячейки А слова
вместе
играем
мы
они
Футбол

Но при использование макроса фильтрует с первом большой буквы

Футбол
вместе
играем
мы
Автор - Enix
Дата добавления - 09.12.2017 в 05:59
bmv98rus Дата: Суббота, 09.12.2017, 07:34 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4107
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
Фильтр (от лат. filtrum — «войлок») — понятия, устройства, механизмы, выделяющие (или удаляющие) из исходного объекта некоторую часть с заданными свойствами
По какому признаку вы в своем примере отфильтровали "они"?

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеФильтр (от лат. filtrum — «войлок») — понятия, устройства, механизмы, выделяющие (или удаляющие) из исходного объекта некоторую часть с заданными свойствами
По какому признаку вы в своем примере отфильтровали "они"?
Автор - bmv98rus
Дата добавления - 09.12.2017 в 07:34
Enix Дата: Суббота, 09.12.2017, 16:32 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 60% ±

Excel 2007
Я нечего не отфильтровал забыл писать слово "они", нужен макрос который фильтровал слово с первом большой буквы, а патом маленькими буквами слов. (Азбука, Большой, арбуз, банк и так далее)

Excel фильтрует по алфавиту Например Азбука, арбуз, Большой, банк и так далее…..
;)


Сообщение отредактировал Enix - Суббота, 09.12.2017, 16:40
 
Ответить
СообщениеЯ нечего не отфильтровал забыл писать слово "они", нужен макрос который фильтровал слово с первом большой буквы, а патом маленькими буквами слов. (Азбука, Большой, арбуз, банк и так далее)

Excel фильтрует по алфавиту Например Азбука, арбуз, Большой, банк и так далее…..
;)
Автор - Enix
Дата добавления - 09.12.2017 в 16:32
Wasilich Дата: Суббота, 09.12.2017, 16:57 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Не понятно, фильтр вроде как фильтрует. Может вам сортировка нужна по алфавиту?
Приложите пример.


Сообщение отредактировал Wasilich - Суббота, 09.12.2017, 16:57
 
Ответить
СообщениеНе понятно, фильтр вроде как фильтрует. Может вам сортировка нужна по алфавиту?
Приложите пример.
Автор - Wasilich
Дата добавления - 09.12.2017 в 16:57
Kuzmich Дата: Суббота, 09.12.2017, 16:59 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Enix, а с прошлой темой "Фильтр по строк число букв" вы разобрались?
 
Ответить
СообщениеEnix, а с прошлой темой "Фильтр по строк число букв" вы разобрались?
Автор - Kuzmich
Дата добавления - 09.12.2017 в 16:59
Enix Дата: Суббота, 09.12.2017, 20:46 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 60% ±

Excel 2007
Фильтр по строк число букв - да спасибо за МАКРОС

Вставляю пример файла
К сообщению приложен файл: 7571221.xlsx (9.4 Kb)
 
Ответить
СообщениеФильтр по строк число букв - да спасибо за МАКРОС

Вставляю пример файла
Автор - Enix
Дата добавления - 09.12.2017 в 20:46
Kuzmich Дата: Суббота, 09.12.2017, 21:26 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Sub iSort()
Dim i As Long
For i = 1 To 7
Cells(i, 3) = Asc(Left(Cells(i, 1), 1))
Next
Range("A1:C7").Sort key1:=Range("C1")
End Sub
[/vba]


Сообщение отредактировал Kuzmich - Суббота, 09.12.2017, 21:27
 
Ответить
Сообщение[vba]
Код
Sub iSort()
Dim i As Long
For i = 1 To 7
Cells(i, 3) = Asc(Left(Cells(i, 1), 1))
Next
Range("A1:C7").Sort key1:=Range("C1")
End Sub
[/vba]
Автор - Kuzmich
Дата добавления - 09.12.2017 в 21:26
InExSu Дата: Суббота, 09.12.2017, 23:26 | Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
Привет!
Цитата Enix, 09.12.2017 в 20:46, в сообщении № 6 ()
пример файла

Что было до применения "Авто фильтр"?

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
СообщениеПривет!
Цитата Enix, 09.12.2017 в 20:46, в сообщении № 6 ()
пример файла

Что было до применения "Авто фильтр"?
Автор - InExSu
Дата добавления - 09.12.2017 в 23:26
Enix Дата: Воскресенье, 10.12.2017, 08:47 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 60% ±

Excel 2007
InExSu, Привет!
У меня все словарь слов (окло 500000-600000 строк) в ячейки A

Ваш макрос работает c A1 до А7 можно ли увеличить.
 
Ответить
СообщениеInExSu, Привет!
У меня все словарь слов (окло 500000-600000 строк) в ячейки A

Ваш макрос работает c A1 до А7 можно ли увеличить.
Автор - Enix
Дата добавления - 10.12.2017 в 08:47
Kuzmich Дата: Воскресенье, 10.12.2017, 10:42 | Сообщение № 10
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Цитата
макрос работает c A1 до А7 можно ли увеличить

Можно, если это вопрос ко мне.
Находите последнюю заполненную ячейку в столбце А
и подставляете значение этой строки вместо 7.
 
Ответить
Сообщение
Цитата
макрос работает c A1 до А7 можно ли увеличить

Можно, если это вопрос ко мне.
Находите последнюю заполненную ячейку в столбце А
и подставляете значение этой строки вместо 7.
Автор - Kuzmich
Дата добавления - 10.12.2017 в 10:42
Enix Дата: Воскресенье, 10.12.2017, 15:02 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 60% ±

Excel 2007
Kuzmich,
Да работает вместо 7 на 300000
но для маленький буквы значение - 224, а для большой буквы - 192 (выставляемый в ячейку С) , можно ли по проще писать макрос еще
 
Ответить
СообщениеKuzmich,
Да работает вместо 7 на 300000
но для маленький буквы значение - 224, а для большой буквы - 192 (выставляемый в ячейку С) , можно ли по проще писать макрос еще
Автор - Enix
Дата добавления - 10.12.2017 в 15:02
nilem Дата: Воскресенье, 10.12.2017, 16:05 | Сообщение № 12
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Enix,
попробуйте так (использовал код от Kuzmich)
[vba]
Код
Sub iSort()
Dim x, i As Long
With Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
    x = .Value
    For i = 1 To UBound(x)
        x(i, 2) = Asc(x(i, 1))
    Next
    x = ShellSort22(x, 2) 'http://www.excelworld.ru/board/vba/tricks/sort_array_shell/9-1-0-32
    x = ShellSort22(x, 1)
    .Resize(, 1).Value = x
End With
End Sub
[/vba]
К сообщению приложен файл: _7571221.xlsm (19.8 Kb)

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеEnix,
попробуйте так (использовал код от Kuzmich)
[vba]
Код
Sub iSort()
Dim x, i As Long
With Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
    x = .Value
    For i = 1 To UBound(x)
        x(i, 2) = Asc(x(i, 1))
    Next
    x = ShellSort22(x, 2) 'http://www.excelworld.ru/board/vba/tricks/sort_array_shell/9-1-0-32
    x = ShellSort22(x, 1)
    .Resize(, 1).Value = x
End With
End Sub
[/vba]
Автор - nilem
Дата добавления - 10.12.2017 в 16:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка с учетом регистра (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!