티스토리 뷰

Excel VBA/VBA 예제

excel vba array, redim예제

KyeongRok Kim 2018. 5. 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.



공지사항
최근에 올라온 글
최근에 달린 댓글
Total
Today
Yesterday
링크
«   2024/03   »
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
글 보관함