예제

1에서 10까지의 숫자를 셀 범위의 A1:A10까지 표시

일반적인 방법

Public Sub ShowNumber()
    Dim i As Long
    For i = 1 To 10
        Cells(i, "A").Value = i
    Next
End Sub

이번에 소개하는 방법

다음 기사에서 사용한 방법을 사용합니다.
블랙잭 부모의 버스트 확률을 난수를 사용하지 않고 확률 계산만으로 프로그래밍 방식으로 계산

Variant 형식을 반환하는 함수를 만들고 배열을 결과로 설정

Public Function ShowNumber() As Variant
    Dim Result(1 To 10) As Long
    Dim i As Long
    For i = 1 To 10
        Result(i) = i
    Next

    '列方向に配列の結果を表示したい時
    ShowNumber = WorksheetFunction.Transpose(Result)

    '行方向に配列の結果を表示したい時
    'ShowNumber = Result
End Function

A1 셀에 셀 함수 =ShowNumber()를 입력합니다.
그 때 배열 수식이 되도록 셀 범위를 선택(예에서는 A1:A10)하고 Ctrl+Shift+Enter 를 누릅니다.

또, 코멘트에 있듯이, 행 방향으로 결과를 표시하고 싶을 때는,ShowNumber = WorksheetFunction.Transpose(Result)ShowNumber = Result 로 변경하고,
A1:J1의 셀 범위를 선택하고 Ctrl+Shift+Enter를 누릅니다.

※우리 쪽에는 환경이 없기 때문에 불확실합니다만, office365에서는 스필을 사용할 수 있으므로, 배열 수식으로 하지 않아도 좌상의 셀에 셀 함수를 입력하는 것만으로, 배열이 전개된다고 생각합니다.
꼭, 스필의 환경을 사용할 수 있는 분은 실행해 결과를 코멘트에 부탁합니다.

장점

· 이전 기사 에서 소개한 케이스와 같이, 인수에 바리에이션을 갖고 싶을 때에 셀의 참조를 사용할 수 있다.
· 위와 관련이 있지만 인수에 전달 된 셀의 값을 변경하면 즉시 결과에 반영됩니다.
・코드를 일부러 실행시킬 필요가 없고, 셀 함수를 입력할 뿐.
· 결과를 표시하는 셀의 범위를 코드에 포함하지 않고 자유롭게 선택할 수 있다.