Сортировка по условию:жирности шрифта содержимого ячейки

[sonata]

Как осуществить сортировку по условию :

Код: Выделить всё

If(Cells(i, 3).Font.Bold = True)

то такие строки переместить в начало списка, но именно строки, не ячейки...

[SergeySV]

Как осуществить сортировку по условию :

Код: Выделить всё

If(Cells(i, 3).Font.Bold = True)

то такие строки переместить в начало списка, но именно строки, не ячейки...

Самостоятельно их туда куда тебе надо копировать, раздвигать, вставлять строки...

А что именно непонятно??? Как вырезать и вставлять строки или как алгоритм составить для такой сортировки?

Для того чтобы решить эту задачу надо уметь:
1. Вставлять, Вырезать строку:
' пустую вставляем
Worksheets("Sheet1").Rows(2).EntireRow.Insert
' теперь туда переносим например 11 строку
Worksheets("Sheet1").Rows(11).Cut Worksheets("Sheet1").Rows(2)
ну и так далее надо пробежаться

Кстати, чтобы тебя не путать, вместо Rows(2) можно легко и так писать - Range("2:2") - вариантов много

[sonata]

Сделала, как Вы посоветовали...Но...Комп подвис окончательно, и, кроме добавления пустых строк я не увижела ничего....

Код: Выделить всё

Sub Сортировка_по_шрифту()
Dim Ñ As Object
Dim i As Integer
i = 0
For Each C In Worksheets("Ë&&&1").Range("B1:B500")
i = i + 1
If C.Font.Bold = True Then
Worksheets("Ë&&&1").Rows(2).EntireRow.Insert
Worksheets("Ë&&&1").Rows(i).Cut Worksheets("Ë&&&1").Rows(2)
   
End If
Next C
End Sub

Очень прошу, помочь!!!

[sonata]

Ë&&&1 - означает Лист1

[GSerg]

Код: Выделить всё

Sub SortByBold(SortRange As Range)
  Dim i As Long, BoldLinesCount As Long
 
  With SortRange
    For i = 1 To .Rows.Count
      If .Cells(i, 3).Font.Bold = True Then
        .Rows(1).Insert
        .Rows(i).Cut .Rows(1).Offset(-1)
        .Rows(i).EntireRow.Delete xlShiftUp
        BoldLinesCount = BoldLinesCount + 1
      End If
    Next
  End With
 
  If BoldLinesCount > 0 Then SortRange.Rows("1:" & BoldLinesCount).Sort SortRange.Cells(1, 3)
End Sub


[sonata]

Логически все выглядит - совершенно....
Но данная процедура- с параметром.
И, когда я ее хочу вызвать, то мне предлагается окошко с выбором макросов...
Не понимаю, зачем этот параметр, если в теле самой процедуры, указан столбец? В частности С или 3?
Не могли бы Вы подсказать как теперь воспользоваться данным творением?

[sonata]

И еще почему здесь:
.Rows(i).Cut .Rows(1).Offset(-1)
стоит Offset(-1)

[alibek]

Предлагаю другой подход.
Добавляешь слева от данных столбец (пусть будет столбце A).
В него пишешь целые числа (0 или 1), а на остальных условиях задаешь условное форматирование вроде формула: =(A$1=1), если верно, то выводить полужирным. А затем столбец A делаешь скрытым.
Тогда твоя сортировка будет заключаться в сотрировке по значению в столбце A, а это сделать можно легко.

[GSerg]

Логически все выглядит - совершенно....

Не могли бы Вы подсказать как теперь воспользоваться данным творением?

Ну что ж, спасибо
Просто решать задачи в общем виде для меня проще и удобнее в плане дальнейшего их юзания
Напиши ещё один макрос, единственной командой которого будет SortByBold YourRange. Например, SortByBold ActiveSheet.Range("a1:c500"). Заметь, что проверяется третий столбец относительно переданного диапазона, поэтому передавать надо диапазон из не менее чем трёх столбцов... Ну или цифру 3 замени на что нужно

А Offset (-1)... Щас объясню... Просто оказалось, что когда выполняется команда Insert, то ссылка на переданный диапазон уходит вниз на одну строку. То есть, если передано в процедуру Range("a10:c500"), то после выполнения Insert комп будет думать, что передано Range("a11:c501"). Так вот, Offset(-1) - это смещение вверх на одну строку относительно переданного диапазона (уже изменённого), то есть на самом деле это реальная первая строка ("a10:c10" в данном случае). Именно в эту строку (она пустая) производится вставка данных. А потом, после выполнения Delete, всё становится нормально...

[SergeySV]

Сделала, как Вы посоветовали...Но...Комп подвис окончательно, и, кроме добавления пустых строк я не увижела ничего....

Код: Выделить всё

Sub Сортировка_по_шрифту()
Dim Ñ As Object
Dim i As Integer
i = 0
For Each C In Worksheets("Ë&&&1").Range("B1:B500")
i = i + 1
If C.Font.Bold = True Then
Worksheets("Ë&&&1").Rows(2).EntireRow.Insert
Worksheets("Ë&&&1").Rows(i).Cut Worksheets("Ë&&&1").Rows(2)
   
End If
Next C
End Sub

Очень прошу, помочь!!!

Тяжело с тобой sonata.... У тебя слишком отрывочные знания Excel'a и VBA для него, а общение в форуме только усуглябляет эту отрывочность.
Постарай прежде чем задавать вопрос самой покапаться в проблеме. Врядли конечно что-нибудь получится, но зато ты приобретешь ценный опыт и уже будешь представлять себе проблему в целом, а выносить на обсуждение уже какой-нибудь свой вариант...

А вот исправленный твой код, который работает:

Код: Выделить всё

Sub Сортировка_по_шрифту()
Dim i As Integer

For i = 1 To 500
  If Worksheets("Лист1").Range("B" & i).Font.Bold = True And i > 1 Then
    Worksheets("Лист1").Rows(1).EntireRow.Insert
    i = i + 1
    Worksheets("Лист1").Rows(i).Cut Worksheets("Лист1").Rows(1)
    Worksheets("Лист1").Rows(i).Delete
    i = i - 1
  End If
Next i

End Sub


У тебя было несколько ошибок:
1. Нельзя было делать цикл по ячейкам объекта Range, потому тогда цикл идет по ячейкам подряд сам по себе, а ты в это время вставляешь, удаляешь строки и твои ячейки постоянно ползают верх/вниз. В результате ты смотришь Font.Bold одной ячейки, а по i вырезаешь и вставляешь другую уже строку с другой ячейкой.
2. Надо не забывать про i . После того как ты вставила новую строку, все номера строк сдвинулись на вниз на 1, а потом ты вырезаешь строку, а пустая остается и ее надо не забыть удалить и опять же при этом не забыть про i. Удаляешь строку, все сдвигается вверх на 1 и поэтому после удаления строки надо сделать i=i-1.

Маленький совет: ты свой код отлаживаешь ?!? Используй Breakpoint, пошагово проходи свой код и смотри параллельно что происходит в Excel.