rand(life)

Option Explicit Sub Jo_sort() Dim rD As Range Dim jList As Object Dim i As Long, iCol As Long 'Application.ScreenUpdating = False Set rD = Range("a1").CurrentRegion '데이터 범위 iCol = rD.Columns.Count Set jList = CreateObject("system.collections.sortedlist") With jList For i = 1 To rD.Rows.Count Step 2 Dim sT As String sT = rD.Cells(i, 1).Value & rD.Cells(i, 3).Value If Not .contains(sT) Then .Add s..

가나다 순이 아니라 사용자가 지정한 순서대로 정렬하는 매크로이다다른 책에서는 아래와 같이 나와있었는데 엑셀2016 환경에서 적용해보니 잘 안된다. 확인해볼 필요가 있다. .sortfields.add key:=range("a2"), customorder:="lee,park,kim" .apply 다음은 Stack Overflow에서 가져온 코드이다. Dim vCustom_Sort As Variant Dim lc As Long vCustom_Sort = Split("Body,Chassis,Theta,PC Forklift,5S", ",")Application.AddCustomList ListArray:=vCustom_Sort With ActiveSheet .Sort.SortFields.Clear lc = .Ce..

188 사용자지정목록 정렬.sortfields.add key:=range("a2"), customorder:="lee,park,kim".apply option compare binary 대소문자구분정렬option compare text 구분없음 [정렬 기본적인 구문]With rng .Sort Key1:=rng.Cells(1, 1), Order1:=xlDescendingEnd With [선택한 영역만 정렬]With ActiveSheet.Sort .SortFields.Clear .SortFields.Add Key:=Selection.Columns(1), Order:=xlDescending .SetRange Selection .ApplyEnd With [이차기준 정렬]Sub 셀정렬() With Range("A..

2. [편집] 2.1 다른 이름으로 저장하기- 암호 걸기 2.2 행열 크기 조정하기 2.3 셀병합하기 / 병합 해제하기 2.4 행열 숨기기 표시하기/ 시트 숨기기 표시하기 2.5 시트복사하기 – 이동하기 2.6 정렬 및 필터 3.[차트] 3.1간단한 차트 작성 3.2차트 종류 변경 3.3이중 축 차트 작성 3.4차트 구성요소 추가 - 데이터 값 표시하기 3.5차트 수정 및 도형 활용하기 3.6아래아한글(HWP)에 복사하기 4.[인쇄] 4.1미리보기 4.2용지 방향- 여백 조절 4.3머리글 - 바닥글 설정 4.4제목줄 반복 인쇄 5.[추가] 5.1함수중 주의할 것 (ex) countif에서 정렬하면 틀어지는 문제해결 6.[VBA] 처음에 공개하였던 과정에서 "정렬 및 필터"가 꼭 들어가야할 것 같아서 집어..

점수를 구간으로 나누어 각 구간마다 등급을 매기고 싶을 때가 있습니다. 지난번에 소개한 것처럼 사용자정의함수를 이용하는 방법도 있습니다만, 좀 더 간단한 방법을 보여드리려고 합니다. 바로 vlookup 함수를 사용하는 방법입니다. VLOOKUP함수의 구문중 다음 주의사항을 한번 보시죠. VLOOKUP(lookup_value,table_array,col_index_num,range_lookup) range_lookup 정확하게 일치하는 값을 찾을 것인지, 근사값을 찾을 것인지를 결정하는 논리값입니다. TRUE이거나 생략되면 정확한 값이나 근사값을 반환합니다. 정확하게 일치하는 값이 없으면 lookup_value보다 작으면서 그 다음으로 가장 큰 값을 반환합니다.table_array의 첫 번째 열 값은 오름..