홈>
좋아요. 그래서 참조 테이블을 통해 분류 된 테이블에서 사용자 정의 정렬을 시도하고 있습니다. 여기에는 참조 테이블의 작은 부분이 있습니다.
이제 분류 표를 정렬 할 때마다 이것이됩니다
보시다시피, 그것은 특정 수의 행까지만 정렬하고 (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
관련 자료
- if 문이 문자열 데이터에서 제대로 작동하지 않음 - excel
- worksheet function - Microsoft Excel 수식이 제대로 작동하지 않음
- sapui5 - 사용자 지정 파일 이름을 사용하여 UI5에서 Excel로 데이터를 내보내는 방법
- javascript - 개체에서 속성을 선택하는 사용자 지정 선택기 함수를 올바르게 입력하는 방법
- xml - Android에서 작동하지 않는 사용자 정의 백그라운드 리소스
- c++ - 내 프로그램이 제대로 작동하지만 마지막에 분할 오류가 표시됨
- Toggling not working properly - 제대로 작동하지 않는 토글 - 자바 스크립트
- subtraction - Paperjs가 제대로 작동하지 않는 모양에 대한 경로 빼기
- 제대로 작동하려면 Excel vba를 사용하여 curl API 요청 코드를 얻는 데 도움이 필요합니다
- c++ - 이 배열을 반복 할 때 코드가 제대로 작동하지 않는 이유
- reactjs - 재귀가 제대로 작동하지 않음 (React에서)
- python - 키 움직임이 제대로 작동하지 않는 이유는 무엇입니까?
- python - 파일 작업 중 오류를 올바르게 처리하는 방법은 무엇입니까?
- drupal - 일부 #states는 사용자 정의 필드에서 작동하지 않지만 동일한 웹 양식 필드에서 작동합니다
- sql - Postgresql에서 작동하지 않는 현재 날짜 및 사용자 지정 시간으로 쿼리 업데이트
- drupal - managed_file 사용자 정의 양식 필드의 #ajax가 작동하지 않습니다
- verilog - $display가 testbench에서 제대로 작동하지 않습니다
- knockout.js - jquery 버전을 21에서 3으로 업그레이드 한 후 녹아웃 유효성 검사 사용자 지정 규칙이 작동하지 않습니다
- reactjs - React Native asyncStorage가 제대로 작동하지 않습니다
- ruby - rails의 사용자 지정 도메인이 apptestcom - 3000에서 작동하지 않습니다
관련 질문
- Excel VBA에서 열에서 키워드 찾기 및 다른 열 편집
- excel : 마지막 행 IF를 찾는 매크로 도움말
- excel : 셀 색상을 확인/변경하기 위해 Change(byVal Target as Range)를 어떻게 사용합니까?
- excel : PC 스토리지 드라이브 이름 찾기
- excel : 성공적인 브라우저 시작 요청에 대한 동일한 페이로드에도 불구하고 VBA가 있는 HTTPRequest를 통한 "잘못된 다중 부분 페이로드 형식"
- excel : 수식 숫자 값을 숫자 더하기 1로 바꾸기
- excel : 값이 날짜를 따르도록 vlookup 또는 매크로를 설정하는 방법
- excel : 다른 이름으로 저장하는 동안 파일을 바꾸라는 메시지가 표시되면 "아니요" 또는 "취소"를 선택하면 VBA 1004 오류가 발생합니다.
- Excel 스프레드시트에 값을 쓰도록 확인란을 얻으려고 합니다.
- excel : 여러 If/Then 호출 옵션
SortOn
Range.Sort
에 유효한 매개 변수가 아닙니다. .SortMethod
.그것을 수정하십시오 (또한 답변과 관련이없는 외부 코드를 제거하십시오). 맞춤 목록으로 정렬되지 않으면 답변을 편집하고 알아 내려고 시도합니다.
추가 정보 :MSDN :
Range.Sort
방법