Excel 2016에서 배열을 반환하는 VBA 함수 작업

워크시트에서 MonthNames 함수를 사용하려면 12셀 배열 수식으로 입력해야 합니다. 예를 들어 A2:L2 범위를 선택하고 =MonthNames() 를 입력 합니다. 그런 다음 Ctrl+Shift+Enter를 눌러 선택한 12개 셀 모두에 배열 수식을 입력합니다. 결과를 확인하십시오.

MonthNames 함수를 사용하여 12개 요소 배열을 반환합니다.

월 이름을 열에 표시하려면 열에서 12개의 셀을 선택하고 이 배열 수식을 사용합니다. (Ctrl+Shift+Enter를 눌러 입력하는 것을 잊지 마십시오.)

=TRANSPOSE(월 이름())

배열에서 한 달을 선택할 수도 있습니다. 다음은 배열의 네 번째 요소인 April을 표시하는 수식(배열 수식이 아님)입니다.

=INDEX(월이름(),4)

정렬된 목록 반환

다른 셀 범위에 정렬된 순서로 표시하려는 이름 목록이 있다고 가정합니다. 워크시트 기능이 있으면 좋지 않을까요?

이 사용자 정의 함수는 다음과 같은 역할을 합니다. 단일 열 범위의 셀을 인수로 사용하고 정렬된 해당 셀의 배열을 반환합니다. 범위 A2:A13에는 일부 이름이 포함되어 있습니다. 범위 C2:C13에는 이 다중 셀 배열 수식이 포함됩니다. (Ctrl+Shift+Enter를 눌러 수식을 입력해야 합니다.)

사용자 정의 함수를 사용하여 정렬된 범위를 반환합니다.

=정렬(A2:A13)

다음은 Sorted 함수의 코드입니다.

기능 정렬(Rng As Range)
  Dim SortedData() As Variant
  범위로 희미한 셀
  Dim Temp As Variant, i As Long, j As Long
  비어 있지 않은 만큼 어둡게
' SortedData로 데이터 전송
  Rng의 각 셀에 대해
    IsEmpty(셀)가 아니면
      비어 있지 않음 = 비어 있지 않음 + 1
      ReDim은 SortedData(1부터 비어 있지 않음까지)를 유지합니다.
      SortedData(NonEmpty) = Cell.Value
    종료
  다음 셀
' 배열 정렬
  i = 1에서 비어 있지 않은 경우
    j = i + 1의 경우 비어 있지 않은 경우
      SortedData(i) > SortedData(j)이면
        온도 = SortedData(j)
        SortedData(j) = SortedData(i)
        SortedData(i) = 임시
      종료
    다음 j
  다음 나는
' 배열을 전치하고 반환
  정렬 = Application.Transpose(SortedData)
종료 기능

=TRANSPOSE(정렬(A16:L16))