이 문서의 Microsoft Excel 2000 버전은 를 213798.

이 문서의 Microsoft Excel 98 및 이전 버전의 Excel 버전은 149689.

요약

이 문서에는 여러 Visual Basic for Applications 작업하는 데 사용할 수 있는 Microsoft Visual Basic for Applications 프로시저 샘플이 포함되어 있습니다.

추가 정보

Microsoft는 표현되거나 암시적으로 보증 없이 그림에 대한 프로그래밍 예제를 제공합니다. 여기에는 특정 목적에 대한 상인성 또는 적합성의 암시적 보증이 포함되지만 이에 국한되지는 않습니다. 이 문서에서는 시연되는 프로그래밍 언어와 프로시저를 만들고 디버그하는 데 사용되는 도구에 익숙하다고 가정합니다. Microsoft 지원 엔지니어는 특정 프로시저의 기능을 설명하는 데 도움이 될 수 있지만 이러한 예제를 수정하여 추가 기능을 제공하거나 특정 요구 사항을 충족하는 프로시저를 생성하지 않습니다. 참고: Visual Basic for Applications 절차에서 apostrophe(') 다음 단어는 메모입니다.

배열을 채우고 워크시트에 복사

  1. 새 통합 문서 를 열고 Visual Basic 삽입합니다.

  2. 모듈 시트에 다음 코드를 입력합니다.

    Sub Sheet_Fill_Array()
    Dim myarray As Variant
    myarray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
    Range("a1:a10").Value = Application.Transpose(myarray)
    End Sub
  3. Sheet1을 선택합니다.

  4. 도구 메뉴에서 매크로를 지적한 다음 매크로를 클릭합니다.

  5. 매크로 대화 상자에서 Sheet_Fill_Array 클릭한 다음 실행을 클릭합니다.

워크시트에서 값을 취하고 배열을 채우기

  1. 셀 A1:A10에 Sheet1에 값을 입력합니다.

  2. 모듈 Visual Basic 시트에 다음 코드를 입력합니다.

    Sub from_sheet_make_array()
    Dim thisarray As Variant
    thisarray = Range("a1:a10").Value

    counter = 1 'looping structure to look at array
    While counter <= UBound(thisarray)
    MsgBox thisarray(counter, 1)
    counter = counter + 1
    Wend
    End Sub
  3. Sheet1을 선택합니다.

  4. 도구 메뉴에서 매크로를 지적한 다음 매크로를 클릭합니다.

  5. 매크로 대화 상자에서 from_sheet_make_array 클릭한 다음 실행을 클릭합니다.

배열을 전달하고 받으면

  1. 모듈 시트에 다음 코드를 입력합니다.

    Sub pass_array()
    Dim thisarray As Variant
    thisarray = Selection.Value
    receive_array (thisarray)
    End Sub

    Sub receive_array(thisarray)
    counter = 1
    While counter <= UBound(thisarray)
    MsgBox thisarray(counter, 1)
    counter = counter + 1
    Wend
    End Sub
  2. Sheet1을 선택하고 A1:A10 범위를 강조 표시합니다.

  3. 도구 메뉴에서 매크로를 지적한 다음 매크로를 클릭합니다.

  4. 매크로 대화 상자에서 pass_array 클릭한 다음 실행을 클릭합니다.

두 배열을 비교하기 위해

  1. Sheet1에서 두 개의 명명된 범위를 생성합니다. 하나의 범위1 및 다른 범위2의 이름을 지정합니다.

    예를 들어 A1:A10 셀 범위를 강조 표시하고 range1의 이름을 지정합니다. 셀 범위를 강조 표시하고 범위2의 이름을 지정합니다.

  2. 모듈 시트에 다음 코드를 입력합니다.

    Sub compare_two_array()
    Dim thisarray As Variant
    Dim thatarray As Variant

    thisarray = Range("range1").Value
    thatarray = Range("range2").Value
    counter = 1
    While counter <= UBound(thisarray)
    x = thisarray(counter, 1)
    y = thatarray(counter, 1)
    If x = y Then
    MsgBox "yes"
    Else MsgBox "no"
    End If
    counter = counter + 1
    Wend
    End Sub
  3. Sheet2를 선택합니다.

  4. 도구 메뉴에서 매크로를 지적한 다음 매크로를 클릭합니다.

  5. 매크로 대화 상자에서 compare_two_array 클릭한 다음 실행을 클릭합니다.

    모든 비교에 대해 하나의 메시지 상자가 표시됩니다.

동적 배열을 채우기

  1. 모듈 시트에 다음 코드를 입력합니다.

    Sub fill_array()

    Dim thisarray As Variant
    number_of_elements = 3 'number of elements in the array

    'must redim below to set size
    ReDim thisarray(1 To number_of_elements) As Integer
    'resizes this size of the array
    counter = 1
    fillmeup = 7
    For counter = 1 To number_of_elements
    thisarray(counter) = fillmeup
    Next counter

    counter = 1 'this loop shows what was filled in
    While counter <= UBound(thisarray)
    MsgBox thisarray(counter)
    counter = counter + 1
    Wend

    End Sub
  2. 도구 메뉴에서 매크로를 지적한 다음 매크로를 클릭합니다.

  3. 매크로 대화 상자에서 fill_array 클릭한 다음 실행을 클릭합니다.

참고: "number_of_elements"를 변경하면 배열의 크기가 결정됩니다.

추가 도움이 필요하신가요?

기술 향상
교육 살펴보기
새로운 기능 우선 가져오기
Microsoft Insider 참가

이 정보가 유용한가요?

언어 품질에 얼마나 만족하시나요?
사용 경험에 어떠한 영향을 주었나요?

의견 주셔서 감사합니다!

×