본문으로 바로가기

excel vba array, redim예제

category Excel VBA/VBA 예제 2018.05.14 21:15

excel vba array, redim예제


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Function get제품명(브랜드명)
 
    Sheets("filter_제품코드제품명").Range("a2:e7").ClearContents
    Sheets("filter_제품코드제품명").Range("d2").Value = 브랜드명
    
    Call advancedFilter("제품코드제품명""filter_제품코드제품명")
    
    행개수 = Sheets("filter_제품코드제품명").Range("a8").CurrentRegion.Rows.Count - 1
    
    Dim 데이터개수 As Integer
    데이터개수 = 행개수 - 1
    
    Dim ar() As String
    ReDim ar(데이터개수)
 
    For i = 1 To 행개수
        제품명 = Sheets("filter_제품코드제품명").Range("b" & i + 8).Value
        ar(i - 1= 제품명
    Next
    
    get제품명 = ar
    
End Function
 
Sub test_get제품명()
    ar = get제품명("hello")
    
    For Each Item In ar
        Debug.Print (Item)
    Next
End Sub
 
cs

고급필터 한 결과를 array로 뽑아오기.

데이터는 제품코드제품명에 들어있다.

end.




댓글을 달아 주세요