수식이 있는 조건부 서식

인용 자비드P 18 년 2022 월 XNUMX 일 수요일

섹션 No.12의 행 맨 위에 나와야 하는 셀 Q18:Q12의 최소값을 기반으로 D18:AH1 범위의 모든 데이터를 정렬하고 섹션 No.2와 같은 다른 섹션에서도 동일하게 정렬하고 싶습니다. No.712 및 또한이 정렬 후 행 섹션 상단에 최소 셀 Q가 나올 때 필요합니다. 배경에 노란색으로 표시되고 셀 "I"의 공급 업체 이름도 동일한 노란색 배경을 표시합니다.

Sub ExtendOffice_Sort()

Dim xExtendRg, xOfficeSRgC As Range

Dim xRg As Range

Dim xRangeAddress As String

Dim xNum, xCSNum, xCENum, xRSNum, xRSNum2, xRENum As Integer

Dim xRCount As Integer

Dim xBol, xBolWS As Boolean

Dim xStr1, xStr2 As String

Dim xWSh As Worksheet

Dim xSortColumn As Integer

On Error Resume Next

Set xExtendRg = Application.InputBox("Please select the range with data to be sorted:", "ExtendOffice - Kutools for Excel", , , , , , 8)

If xExtendRg Is Nothing Then Exit Sub

Set xOfficeSRgC = Application.InputBox("Please select the column with values to be sorted from smallest to largest:", "ExtendOffice - Kutools for Excel", , , , , , 8)

If xOfficeSRgC Is Nothing Then Exit Sub

xNum = Application.InputBox("Please enter a number of rows to be sorted in a section:", "ExtendOffice - Kutools for Excel", , , , , , 1)



Set xRg = xExtendRg



Set xWSh = xRg.Worksheet



xWSh.Activate

xSortColumn = xOfficeSRgC.Column

xRCount = xRg.Rows.Count

xCSNum = xRg.Column

xCENum = xCSNum + xRg.Columns.Count - 1

xRSNum = xRg.Row

xRENum = xRSNum + xRCount - 1

xRSNum2 = xRSNum

xRSNum = (xRSNum + xNum) - 1

xBol = True

xBolWS = Application.ScreenUpdating

Application.ScreenUpdating = False

Do While xBol

xStr1 = xWSh.Cells(xRSNum2, xCSNum).Address & ":" & xWSh.Cells(xRSNum, xCENum).Address

xStr2 = xWSh.Cells(xRSNum2, xSortColumn).Address & ":" & xWSh.Cells(xRSNum, xSortColumn).Address

'Debug.Print xStr1 & " - " & xStr2



    xWSh.Sort.SortFields.Clear

    xWSh.Sort.SortFields.Add Key:=Range(xStr2) _

        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With xWSh.Sort

        .SetRange Range(xStr1)

        .Header = xlGuess

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    xWSh.Sort.SortFields.Clear



If (xRSNum + xNum) >= xRENum Then

    If xRSNum = xRENum Then

        xBol = False

    Else

        xRSNum2 = xRSNum + 1

        xRSNum = xRENum

    End If

Else

    xRSNum2 = xRSNum + 1

    xRSNum = (xRSNum + xNum)

End If

Loop



Application.ScreenUpdating = xBolWS



End Sub

인용 자비드P 20 년 2022 월 XNUMX 일 금요일

이제 내 테이블에서 약 712번 실행하고 매번 데이터 조각을 선택해야 합니다.

인용 자비드P 17년 2022월 XNUMX일 화요일

안녕 친애하는 아만다
내 요청을 읽어준 탱크와 친절한 답변에 감사드립니다.
5000개 이상의 데이터 행이 있는 테이블이 있습니다...
이 표에서 각 7~11행에는 A열의 셀을 병합한 단일 숫자가 있습니다!
1개의 행 번호가 있는 각 부품에는 하나의 품목에 대한 여러 공급업체의 데이터가 포함되어 있으며 각 부품마다 고유한 가격이 있으며 내가 필요한 것은 각 섹션의 날짜를 행 섹션 맨 위에 있는 모든 공급업체의 더 낮은 가격으로 정렬하는 것입니다😊
보시다시피 2가지 요청이 있습니다.
1: 내 데이터의 각 부분에 있는 데이터를 해당 섹션에서 가장 낮은 가격으로 정렬,
2: 첫 번째 행에서 가장 낮은 가격을 강조 표시합니다.
어제 두 번째 요청을 해결했지만 첫 번째 요청에 대한 답변을 찾지 못했습니다.
제 문제를 해결해 주시면 감사하겠습니다. :)
불행히도 내 테이블의 이미지를 업로드할 수 없습니다:(