엑셀 매크로 VBA 예제 - egsel maekeulo VBA yeje

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

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"를 변경하면 배열의 크기가 결정됩니다.