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

Вход

Регистрация

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

 

= Мир MS Excel/Сортировка по цвету - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка по цвету (Макросы/Sub)
Сортировка по цвету
Fredigoodle Дата: Четверг, 20.01.2022, 20:12 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Подскажите как сделать, чтобы из заявок, сортировка шла по цветам которые там указаны, количество там считает при вставки в эксель этих заявок цветных заявок. И второй вопрос по вводу "причины" надо сделать чтобы заполнялись I:3 столбец... Спасибо
К сообщению приложен файл: 123.xlsm(30.1 Kb)
 
Ответить
СообщениеПодскажите как сделать, чтобы из заявок, сортировка шла по цветам которые там указаны, количество там считает при вставки в эксель этих заявок цветных заявок. И второй вопрос по вводу "причины" надо сделать чтобы заполнялись I:3 столбец... Спасибо

Автор - Fredigoodle
Дата добавления - 20.01.2022 в 20:12
msi2102 Дата: Пятница, 21.01.2022, 12:25 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 246
Репутация: 89 ±
Замечаний: 0% ±

Excel 2007
сортировка шла по цветам которые там указаны

Если правильно понял, то попробуйте так
[vba]
Код
Sub Макрос3()
Dim r As Range
Range("D3:G" & Cells(Rows.Count, 3).End(xlUp).Row).Clear
For Each r In Range("C3:C" & Cells(Rows.Count, 3).End(xlUp).Row)
    Select Case r.Interior.Color
        Case 65280
            r.Copy Cells(Cells(Rows.Count, 4).End(xlUp).Row + 1, 4)
        Case 39423
            r.Copy Cells(Cells(Rows.Count, 5).End(xlUp).Row + 1, 5)
        Case 65535
            r.Copy Cells(Cells(Rows.Count, 6).End(xlUp).Row + 1, 6)
        Case 12811406
            r.Copy Cells(Cells(Rows.Count, 7).End(xlUp).Row + 1, 7)
    End Select
Next
End Sub
[/vba]
К сообщению приложен файл: 123_1-1-.xlsm(33.7 Kb)


Сообщение отредактировал msi2102 - Пятница, 21.01.2022, 12:43
 
Ответить
Сообщение
сортировка шла по цветам которые там указаны

Если правильно понял, то попробуйте так
[vba]
Код
Sub Макрос3()
Dim r As Range
Range("D3:G" & Cells(Rows.Count, 3).End(xlUp).Row).Clear
For Each r In Range("C3:C" & Cells(Rows.Count, 3).End(xlUp).Row)
    Select Case r.Interior.Color
        Case 65280
            r.Copy Cells(Cells(Rows.Count, 4).End(xlUp).Row + 1, 4)
        Case 39423
            r.Copy Cells(Cells(Rows.Count, 5).End(xlUp).Row + 1, 5)
        Case 65535
            r.Copy Cells(Cells(Rows.Count, 6).End(xlUp).Row + 1, 6)
        Case 12811406
            r.Copy Cells(Cells(Rows.Count, 7).End(xlUp).Row + 1, 7)
    End Select
Next
End Sub
[/vba]

Автор - msi2102
Дата добавления - 21.01.2022 в 12:25
Fredigoodle Дата: Пятница, 21.01.2022, 15:37 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Cr msi2102, скажите как вы определили цвет ячейки?


Сообщение отредактировал Fredigoodle - Пятница, 21.01.2022, 15:38
 
Ответить
СообщениеCr msi2102, скажите как вы определили цвет ячейки?

Автор - Fredigoodle
Дата добавления - 21.01.2022 в 15:37
Nic70y Дата: Суббота, 22.01.2022, 08:44 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 7857
Репутация: 1891 ±
Замечаний: 0% ±

Excel 2010
Fredigoodle,
[vba]
Код
Sub u_914()
    MsgBox Selection.Interior.Color
End Sub
[/vba]


ЮMoney 41001841029809
 
Ответить
СообщениеFredigoodle,
[vba]
Код
Sub u_914()
    MsgBox Selection.Interior.Color
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 22.01.2022 в 08:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка по цвету (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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