>

좋아요. 그래서 참조 테이블을 통해 분류 된 테이블에서 사용자 정의 정렬을 시도하고 있습니다. 여기에는 참조 테이블의 작은 부분이 있습니다.

이제 분류 표를 정렬 할 때마다 이것이됩니다

보시다시피, 그것은 특정 수의 행까지만 정렬하고 (C&J Global Enterprises) 나머지는 알파벳순으로 정렬됩니다 (내가 원하는 것은 아닙니다)

여기 내 VBA 코드가 있습니다

Private Sub WorkSheet_Activate()
Dim MainSheet As Worksheet, RefSheet As Worksheet
Set MainSheet = Worksheets("Classifieds Client Table")
Set RefSheet = Worksheets("RefTable")
Dim RangeOne As Range, RangeTwo As Range
Set RangeOne = MainSheet.Range("A2:A150")
Set RangeTwo = RefSheet.Range("A1:A137")
Dim MainRange As Range
Set MainRange = MainSheet.Range("A2:H150")
Application.AddCustomList ListArray:=RangeTwo
MainSheet.Sort.SortFields.Clear
MainRange.Sort Key1:=MainRange, Header:=xlNo, _
OrderCustom:=Application.CustomListCount + 1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Application.DeleteCustomList Application.CustomListCount

미리 감사합니다!


  • 답변 # 1

    SortOn   Range.Sort 에 유효한 매개 변수가 아닙니다. .

    SortMethod .

    그것을 수정하십시오 (또한 답변과 관련이없는 외부 코드를 제거하십시오). 맞춤 목록으로 정렬되지 않으면 답변을 편집하고 알아 내려고 시도합니다.

    추가 정보 :

    MSDN : Range.Sort  방법

관련 자료

  • 이전 java - Apache POI를 사용하여 시스템 날짜 형식에 상관없이 Excel에서 형식으로 날짜 읽기
  • 다음 javascript - 앵귤러 2 머티리얼 필드를 설정하는 방법