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

Вход

Регистрация

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

 

= Мир MS Excel/Заливка цветом дублей и последующая их сортировка - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка цветом дублей и последующая их сортировка (Макросы/Sub)
Заливка цветом дублей и последующая их сортировка
Serge1400 Дата: Понедельник, 12.06.2017, 22:49 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем вечер добрый!
Возникла следующая потребность:
выделять в столбце А (пример) заливкой разными цветами дублей значений.(одинаковые значения заливаются одинаковым цветом) для последующей их обработки.
Макрос под это дело нашелся, но вот для пущего удобства хотелось бы, чтобы одинаковые значения (и цвета) группировалась вместе. Штатная экселевая сортировка с этой задачей не совсем справляется: она строки по всей длине сортирует, а надо только в заданном диапазоне - от А до М. Ну и чтобы совсем стало удобно, хотелось бы чтобы дубли сразу заливались цветами конкретно в столбце А., а не в производно выделенном.
Пример, после работы макроса прилагаю. Сам макрос там есть. Сюда выкладывать опасаюсь, так не умею делать этого в соответствии с правилами форума - накосячу и модеры в очередной раз мне задницу надерут.
P.S. Все таки рискнул и вставил

[vba]
Код
Sub ВыделитьДубликатыРазнымиЦветами()
    On Error Resume Next
     Colors = Array(65535, 15773696, 255, 5287936, 14281213, 14277081, _
        9944516, 14994616, 12040422, 12379352, 15921906, 14336204, 15261367, 14281213)
    Dim coll As New Collection, dupes As New Collection, _
        cols As New Collection, ra As Range, cell As Range, n&
    Err.Clear: Set ra = Intersect(Selection, ActiveSheet.UsedRange)
    If Err Then Exit Sub
    ra.Interior.ColorIndex = xlColorIndexNone: Application.ScreenUpdating = False
    For Each cell In ra.Cells
        Err.Clear: If Len(Trim(cell)) Then coll.Add CStr(cell.Value), CStr(cell.Value)
        If Err Then dupes.Add CStr(cell.Value), CStr(cell.Value)
    Next cell
    For i& = 1 To dupes.Count
        n = n Mod (UBound(Colors) + 1): cols.Add Colors(n), dupes(i): n = n + 1
    Next
    For Each cell In ra.Cells
        cell.Interior.Color = cols(CStr(cell.Value))
    Next cell
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 0156863.xlsm (16.8 Kb)


Сообщение отредактировал Serge1400 - Понедельник, 12.06.2017, 22:58
 
Ответить
СообщениеВсем вечер добрый!
Возникла следующая потребность:
выделять в столбце А (пример) заливкой разными цветами дублей значений.(одинаковые значения заливаются одинаковым цветом) для последующей их обработки.
Макрос под это дело нашелся, но вот для пущего удобства хотелось бы, чтобы одинаковые значения (и цвета) группировалась вместе. Штатная экселевая сортировка с этой задачей не совсем справляется: она строки по всей длине сортирует, а надо только в заданном диапазоне - от А до М. Ну и чтобы совсем стало удобно, хотелось бы чтобы дубли сразу заливались цветами конкретно в столбце А., а не в производно выделенном.
Пример, после работы макроса прилагаю. Сам макрос там есть. Сюда выкладывать опасаюсь, так не умею делать этого в соответствии с правилами форума - накосячу и модеры в очередной раз мне задницу надерут.
P.S. Все таки рискнул и вставил

[vba]
Код
Sub ВыделитьДубликатыРазнымиЦветами()
    On Error Resume Next
     Colors = Array(65535, 15773696, 255, 5287936, 14281213, 14277081, _
        9944516, 14994616, 12040422, 12379352, 15921906, 14336204, 15261367, 14281213)
    Dim coll As New Collection, dupes As New Collection, _
        cols As New Collection, ra As Range, cell As Range, n&
    Err.Clear: Set ra = Intersect(Selection, ActiveSheet.UsedRange)
    If Err Then Exit Sub
    ra.Interior.ColorIndex = xlColorIndexNone: Application.ScreenUpdating = False
    For Each cell In ra.Cells
        Err.Clear: If Len(Trim(cell)) Then coll.Add CStr(cell.Value), CStr(cell.Value)
        If Err Then dupes.Add CStr(cell.Value), CStr(cell.Value)
    Next cell
    For i& = 1 To dupes.Count
        n = n Mod (UBound(Colors) + 1): cols.Add Colors(n), dupes(i): n = n + 1
    Next
    For Each cell In ra.Cells
        cell.Interior.Color = cols(CStr(cell.Value))
    Next cell
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Serge1400
Дата добавления - 12.06.2017 в 22:49
ant6729 Дата: Вторник, 13.06.2017, 00:21 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
[vba]
Код
Sub Sort()
    Dim sht As Worksheet
    Dim rngSort As Range
    Dim rngTable As Range
    Set sht = ActiveSheet

    RowCount = sht.Range("A2").End(xlDown).Row
    Set rngSort = sht.Range("A2:A" & RowCount)
    Set rngTable = sht.Range(sht.Cells(1, 1), sht.Cells(RowCount, 1).End(xlToRight))

    sht.Sort.SortFields.Clear
    sht.Sort.SortFields.Add(rngSort, _
        xlSortOnCellColor, xlDescending, , _
        xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
        
        sht.Sort.SortFields.Add(rngSort, _
        xlSortOnCellColor, xlDescending, , xlSortNormal).SortOnValue.Color =15
        
        sht.Sort.SortFields.Add(rngSort, _
        xlSortOnCellColor, xlDescending, , xlSortNormal).SortOnValue.Color = RGB(255, 0, 0)
        
'
    With sht.Sort
        .SetRange rngTable
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
[/vba]

Сдул
Но это неуниверсально. Если цвета будут меняться, ничего не получится.


Сообщение отредактировал ant6729 - Вторник, 13.06.2017, 00:27
 
Ответить
Сообщение[vba]
Код
Sub Sort()
    Dim sht As Worksheet
    Dim rngSort As Range
    Dim rngTable As Range
    Set sht = ActiveSheet

    RowCount = sht.Range("A2").End(xlDown).Row
    Set rngSort = sht.Range("A2:A" & RowCount)
    Set rngTable = sht.Range(sht.Cells(1, 1), sht.Cells(RowCount, 1).End(xlToRight))

    sht.Sort.SortFields.Clear
    sht.Sort.SortFields.Add(rngSort, _
        xlSortOnCellColor, xlDescending, , _
        xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
        
        sht.Sort.SortFields.Add(rngSort, _
        xlSortOnCellColor, xlDescending, , xlSortNormal).SortOnValue.Color =15
        
        sht.Sort.SortFields.Add(rngSort, _
        xlSortOnCellColor, xlDescending, , xlSortNormal).SortOnValue.Color = RGB(255, 0, 0)
        
'
    With sht.Sort
        .SetRange rngTable
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
[/vba]

Сдул
Но это неуниверсально. Если цвета будут меняться, ничего не получится.

Автор - ant6729
Дата добавления - 13.06.2017 в 00:21
Serge1400 Дата: Вторник, 13.06.2017, 00:33 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо!
Но почему то сортируется только 2 цвета (желтый, красный). Синий не сгруппирован.
 
Ответить
СообщениеСпасибо!
Но почему то сортируется только 2 цвета (желтый, красный). Синий не сгруппирован.

Автор - Serge1400
Дата добавления - 13.06.2017 в 00:33
ant6729 Дата: Вторник, 13.06.2017, 00:48 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Поставьте 33 вместо 15
 
Ответить
СообщениеПоставьте 33 вместо 15

Автор - ant6729
Дата добавления - 13.06.2017 в 00:48
Serge1400 Дата: Среда, 14.06.2017, 21:33 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Протестировал макрос сегодня в "боевых условиях" - не, не работает как надо. По цвету заливки не группирует, иногда вообще значения с цветом удаляет и непонятно по какому признаку.
В общем вопрос пока остается открытым.
 
Ответить
СообщениеПротестировал макрос сегодня в "боевых условиях" - не, не работает как надо. По цвету заливки не группирует, иногда вообще значения с цветом удаляет и непонятно по какому признаку.
В общем вопрос пока остается открытым.

Автор - Serge1400
Дата добавления - 14.06.2017 в 21:33
_Boroda_ Дата: Среда, 14.06.2017, 22:45 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Сергей, привет!
Так хотел?
Я просто тупо отсортировал диапазон А2:М14 по первому столбцу (столбец М - это цифра 13 в самом низу кода, 13-й по счету столбец)
[vba]
Код
Sub ВыделитьДубликатыРазнымиЦветами()
    On Error Resume Next
     Colors = Array(65535, 15773696, 255, 5287936, 14281213, 14277081, _
        9944516, 14994616, 12040422, 12379352, 15921906, 14336204, 15261367, 14281213)
    Dim coll As New Collection, dupes As New Collection, _
        cols As New Collection, ra As Range, cell As Range, n&
    Err.Clear
    r0_ = 2
    r1_ = Range("A" & Rows.Count).End(xlUp).Row
    If r1_ < r0_ Then
        Exit Sub
    End If
    Set ra = Range("A" & r0_).Resize(r1_ - r0_ + 1)
    If Err Then Exit Sub
    ra.Interior.ColorIndex = xlColorIndexNone
    Application.ScreenUpdating = False
    For Each cell In ra.Cells
        Err.Clear
        If Len(Trim(cell)) Then
            coll.Add CStr(cell.Value), CStr(cell.Value)
        End If
        If Err Then
            dupes.Add CStr(cell.Value), CStr(cell.Value)
        End If
    Next cell
    For i& = 1 To dupes.Count
        n = n Mod (UBound(Colors) + 1)
        cols.Add Colors(n), dupes(i)
        n = n + 1
    Next
    For Each cell In ra.Cells
        cell.Interior.Color = cols(CStr(cell.Value))
    Next cell
    With ActiveSheet.Sort
        .SetRange Range("A" & r0_).Resize(r1_ - r0_ + 1, 13)
        .Apply
    End With
    Application.ScreenUpdating = True
End Sub
[/vba]
[p.s.]Ненавижу двоеточия в кодах макросов! Кое-кто (знаю, есть любители короткой записи) со мной не согласится, но я предпочитаю написать лишнюю строчку. Зато код читается легко и без напряжения и сразу видно, где If начинается и где заканчивается


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеСергей, привет!
Так хотел?
Я просто тупо отсортировал диапазон А2:М14 по первому столбцу (столбец М - это цифра 13 в самом низу кода, 13-й по счету столбец)
[vba]
Код
Sub ВыделитьДубликатыРазнымиЦветами()
    On Error Resume Next
     Colors = Array(65535, 15773696, 255, 5287936, 14281213, 14277081, _
        9944516, 14994616, 12040422, 12379352, 15921906, 14336204, 15261367, 14281213)
    Dim coll As New Collection, dupes As New Collection, _
        cols As New Collection, ra As Range, cell As Range, n&
    Err.Clear
    r0_ = 2
    r1_ = Range("A" & Rows.Count).End(xlUp).Row
    If r1_ < r0_ Then
        Exit Sub
    End If
    Set ra = Range("A" & r0_).Resize(r1_ - r0_ + 1)
    If Err Then Exit Sub
    ra.Interior.ColorIndex = xlColorIndexNone
    Application.ScreenUpdating = False
    For Each cell In ra.Cells
        Err.Clear
        If Len(Trim(cell)) Then
            coll.Add CStr(cell.Value), CStr(cell.Value)
        End If
        If Err Then
            dupes.Add CStr(cell.Value), CStr(cell.Value)
        End If
    Next cell
    For i& = 1 To dupes.Count
        n = n Mod (UBound(Colors) + 1)
        cols.Add Colors(n), dupes(i)
        n = n + 1
    Next
    For Each cell In ra.Cells
        cell.Interior.Color = cols(CStr(cell.Value))
    Next cell
    With ActiveSheet.Sort
        .SetRange Range("A" & r0_).Resize(r1_ - r0_ + 1, 13)
        .Apply
    End With
    Application.ScreenUpdating = True
End Sub
[/vba]
[p.s.]Ненавижу двоеточия в кодах макросов! Кое-кто (знаю, есть любители короткой записи) со мной не согласится, но я предпочитаю написать лишнюю строчку. Зато код читается легко и без напряжения и сразу видно, где If начинается и где заканчивается

Автор - _Boroda_
Дата добавления - 14.06.2017 в 22:45
ant6729 Дата: Четверг, 15.06.2017, 20:36 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
[vba]
Код
Sub U()
Dim Msg As String
Dim Response As Long
Dim MyCollection As Collection
Dim Rng As Range
Dim Cell As Range
Dim vNum As Variant
Dim i&

    

lr = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lr
Set Rng = Sheets("Лист1").Range("A2:A" & lr)
Set MyCollection = New Collection
On Error Resume Next
For Each Cell In Rng.Cells
MyCollection.Add Cell.Interior.Color, CStr(Cell.Interior.Color)
Next Cell
Next i
On Error GoTo 0
For Each vNum In MyCollection
  ActiveWorkbook.Worksheets("Лист1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").AutoFilter.Sort.SortFields.Add(Range("A1"), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = vNum
    With ActiveWorkbook.Worksheets("Лист1").AutoFilter.Sort

        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Next vNum
Exit Sub
End Sub
[/vba]
Исправляюсь. На более универсальный вариант. Время появилось.
С фильтрами нет времени дописывать. Обязательно в верхней строчке на длину таблицы должен стоять фильтр.


Сообщение отредактировал ant6729 - Четверг, 15.06.2017, 20:38
 
Ответить
Сообщение[vba]
Код
Sub U()
Dim Msg As String
Dim Response As Long
Dim MyCollection As Collection
Dim Rng As Range
Dim Cell As Range
Dim vNum As Variant
Dim i&

    

lr = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lr
Set Rng = Sheets("Лист1").Range("A2:A" & lr)
Set MyCollection = New Collection
On Error Resume Next
For Each Cell In Rng.Cells
MyCollection.Add Cell.Interior.Color, CStr(Cell.Interior.Color)
Next Cell
Next i
On Error GoTo 0
For Each vNum In MyCollection
  ActiveWorkbook.Worksheets("Лист1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").AutoFilter.Sort.SortFields.Add(Range("A1"), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = vNum
    With ActiveWorkbook.Worksheets("Лист1").AutoFilter.Sort

        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Next vNum
Exit Sub
End Sub
[/vba]
Исправляюсь. На более универсальный вариант. Время появилось.
С фильтрами нет времени дописывать. Обязательно в верхней строчке на длину таблицы должен стоять фильтр.

Автор - ant6729
Дата добавления - 15.06.2017 в 20:36
Serge1400 Дата: Четверг, 29.06.2017, 23:23 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всех благодарю за помощь!
_Boroda_,
Саша, как понял, твой макрос еще и отсортировать должен по цвету значения. Цветами разными все заливается, вот чето только по цвету не сортируется ничего в указанном тобой диапазоне %)


Сообщение отредактировал Serge1400 - Четверг, 29.06.2017, 23:28
 
Ответить
СообщениеВсех благодарю за помощь!
_Boroda_,
Саша, как понял, твой макрос еще и отсортировать должен по цвету значения. Цветами разными все заливается, вот чето только по цвету не сортируется ничего в указанном тобой диапазоне %)

Автор - Serge1400
Дата добавления - 29.06.2017 в 23:23
_Boroda_ Дата: Пятница, 30.06.2017, 09:15 | Сообщение № 9
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Странно. Дома сортировал. Я ж проверял перед тем, как выложить. А на работе не сортирует.
Последний With перепиши так
[vba]
Код
With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A" & r0_).Resize(r1_ - r0_ + 1)
        .SetRange Range("A" & r0_).Resize(r1_ - r0_ + 1, 13)
        .Apply
    End With
[/vba]
К сообщению приложен файл: 0156863_2.xlsm (23.3 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеСтранно. Дома сортировал. Я ж проверял перед тем, как выложить. А на работе не сортирует.
Последний With перепиши так
[vba]
Код
With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A" & r0_).Resize(r1_ - r0_ + 1)
        .SetRange Range("A" & r0_).Resize(r1_ - r0_ + 1, 13)
        .Apply
    End With
[/vba]

Автор - _Boroda_
Дата добавления - 30.06.2017 в 09:15
Serge1400 Дата: Воскресенье, 02.07.2017, 23:25 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010

Последний With перепиши так

Переписал и чуток потискал. :(
Не, мне предыдущий больше интересен, хоть он и предполагает некоторый "ручной труд" для получения конечного результата.
Крайний же по цвету сортирует все в самом конце таблицы ( и заголовок заодно). А меня в таблице 770 строк - пока туда сползешь.
А как в предложенном макросе ввести второе условие, чтоб получилось вот так: при совпадении значений в столбце A и С заливать одинаковым цветом?


Сообщение отредактировал Serge1400 - Воскресенье, 02.07.2017, 23:38
 
Ответить
Сообщение

Последний With перепиши так

Переписал и чуток потискал. :(
Не, мне предыдущий больше интересен, хоть он и предполагает некоторый "ручной труд" для получения конечного результата.
Крайний же по цвету сортирует все в самом конце таблицы ( и заголовок заодно). А меня в таблице 770 строк - пока туда сползешь.
А как в предложенном макросе ввести второе условие, чтоб получилось вот так: при совпадении значений в столбце A и С заливать одинаковым цветом?

Автор - Serge1400
Дата добавления - 02.07.2017 в 23:25
_Boroda_ Дата: Понедельник, 03.07.2017, 10:44 | Сообщение № 11
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
1. "и заголовок заодно" - какой пример - такой ответ. Где у тебя в файле заголовок? Если заголовок есть, то начинать нужно не с r0_=2, а с r0_=3 или любой нужной строки
2. "по цвету сортирует все в самом конце таблицы" не по цвету в конце таблицы, а обычная сортировка по значениям в ячейках. Какие значения больше - те и ниже. Если хочешь, чтобы бОльшие были наверху, то в строку с Add нужно добавить условие сортировки. Вот так
[vba]
Код
.SortFields.Add Key:=Range("A" & r0_).Resize(r1_ - r0_ + 1), Order:=xlDescending
[/vba]Или можно перепрыгивать вниз таблицы c помощью [vba]
Код
Application.Goto
[/vba]
А по двум столбцам все аналогично
К сообщению приложен файл: 0156863_2-1-1.xlsm (29.1 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение1. "и заголовок заодно" - какой пример - такой ответ. Где у тебя в файле заголовок? Если заголовок есть, то начинать нужно не с r0_=2, а с r0_=3 или любой нужной строки
2. "по цвету сортирует все в самом конце таблицы" не по цвету в конце таблицы, а обычная сортировка по значениям в ячейках. Какие значения больше - те и ниже. Если хочешь, чтобы бОльшие были наверху, то в строку с Add нужно добавить условие сортировки. Вот так
[vba]
Код
.SortFields.Add Key:=Range("A" & r0_).Resize(r1_ - r0_ + 1), Order:=xlDescending
[/vba]Или можно перепрыгивать вниз таблицы c помощью [vba]
Код
Application.Goto
[/vba]
А по двум столбцам все аналогично

Автор - _Boroda_
Дата добавления - 03.07.2017 в 10:44
Serge1400 Дата: Вторник, 04.07.2017, 16:10 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
А по двум столбцам все аналогично

Саша.! Хошь убивай, хошь не убивай, но объясни мне бестолковому как мне переназначить в макросе столбец по местонахождению второго условия в оригинале моей таблицы
Я два дня тыркаюсь и методом тыка пытаюсь вычислить какую и где цифирку надо поменять.
И хорошо бы еще и по цвету чтоб сортировалось :pray
 
Ответить
Сообщение
А по двум столбцам все аналогично

Саша.! Хошь убивай, хошь не убивай, но объясни мне бестолковому как мне переназначить в макросе столбец по местонахождению второго условия в оригинале моей таблицы
Я два дня тыркаюсь и методом тыка пытаюсь вычислить какую и где цифирку надо поменять.
И хорошо бы еще и по цвету чтоб сортировалось :pray

Автор - Serge1400
Дата добавления - 04.07.2017 в 16:10
_Boroda_ Дата: Вторник, 04.07.2017, 16:14 | Сообщение № 13
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
[vba]
Код
s_ = 3
[/vba] - смещение вправо от первого столбца

Про сортировку не понял. Там все сортируется по столбцу А


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[vba]
Код
s_ = 3
[/vba] - смещение вправо от первого столбца

Про сортировку не понял. Там все сортируется по столбцу А

Автор - _Boroda_
Дата добавления - 04.07.2017 в 16:14
Serge1400 Дата: Вторник, 04.07.2017, 17:04 | Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Про сортировку не понял

Ну мы же совпадающие по первому и второму условию значения в столбце А красим одинаковым цветом - а то у меня в таблице 750 строк и они по всей длине растащились группами. Вот и хотелось бы сортировать так чтобы прям сначала столбца шли скажем синенькие, потом красненькие и т.п.
P/S/ Ура - меня наконец то реабилитировали. Сняли с меня отрицательную 40% карму. yahoo yahoo yahoo


Сообщение отредактировал Serge1400 - Вторник, 04.07.2017, 22:49
 
Ответить
Сообщение
Про сортировку не понял

Ну мы же совпадающие по первому и второму условию значения в столбце А красим одинаковым цветом - а то у меня в таблице 750 строк и они по всей длине растащились группами. Вот и хотелось бы сортировать так чтобы прям сначала столбца шли скажем синенькие, потом красненькие и т.п.
P/S/ Ура - меня наконец то реабилитировали. Сняли с меня отрицательную 40% карму. yahoo yahoo yahoo

Автор - Serge1400
Дата добавления - 04.07.2017 в 17:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка цветом дублей и последующая их сортировка (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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