꿀돌대디님 -> [Q] VBA좀 여쭤볼께요. 답변입니다...    글쓴이:윤스딘 , Hit : 724

- File #1 : 통합_문서1.xlsm(19.9 KB), Download : 6

안녕하세요? 눈팅 회원 윤스딘입니다. 꿀돌대디님이 말씀하신 사항이 정확히 맞는건지 한번 보시겠습니까? 예제 파일은 첨부하겠습니다. Private Sub CommandButton1_Click()   test1 = Array(1, 2, 3, 4)   test2 = Array(6, 7, 8, 9)   '/   s1 = Join(test1, ",")   s2 = Join(test2, ",")   '/   MsgBox ("첫 번째 Array 값 = " & s1)   MsgBox ("두 번째 Array 값 = " & s2)   s3 = s1 & "," & s2   MsgBox ("세 번째 Arrary 값 = 첫 번째 Array 값 + 두 번째 Arrary 값 = " & s3)   s4 = Split(s3, ",")   MsgBox ("세 번째 Array 값을 Array로 할당 완료")   MsgBox ("세 번째 Array 값의 4번째 값 = " & s4(4)) End Sub 추천:제이제이님이 게시물을 좋아합니다. 추천:헤르니아님이 게시물을 좋아합니다. 추천:파군님이 게시물을 좋아합니다.

윤스딘 회원님의 소개글이 없습니다. 정보력:3220 친절도:15236

꿀돌대디 정보력:3340 친절도:27621   08-10 09:52 와우, Join이란 함수를 몰랐네요. 고맙습니다.

꿀돌대디 정보력:3340 친절도:27621   08-10 10:09 저는 아쉬운대로 이렇게 사용하고 있습니다. 장점은 변수형이 바뀌지 않는다는것과, 배열속에 배열이 들어있는 이중배열인 경우에도 가능하다는 장점이 있습니다. 루프를 돌린다는게 좋은 방법인지는 모르겠지만, 딱히 더 좋은 방법이 떠오르지 않아 이렇게 만들었습니다. 현재 개발하는 프로젝트에서는 배열갯수가 10~20개정도로 한정적이어서 사용하는데 문제는 없지만, 배열갯수가 백단위, 천단위가 되면 사용을 못 할 수도 있겠네요. Function MergeArray(Var1 As Variant, Var2 As Variant) As Variant If TypeName(Var1) = "Variant()" Then If TypeName(Var2) <> "Variant()" Then Var2 = Array(Var2) Length = UBound(Var1) - LBound(Var1) + UBound(Var2) - LBound(Var2) + 2 ReDim MergeArr(0 To Length) As Variant For i = LBound(Var1) To UBound(Var1) MergeArr(i) = Var1(i) Next For j = LBound(Var2) To UBound(Var2) MergeArr(i + j) = Var2(j) Next MergeArray = MergeArr End If End Function

제이제이 정보력:28910 친절도:27391   08-10 10:58 제이제이님이 이 게시물을 좋아합니다.

헤르니아 정보력:26030 친절도:19834   08-10 11:56 헤르니아님이 이 게시물을 좋아합니다.

파군 정보력:1470 친절도:111   08-10 12:00 파군님이 이 게시물을 좋아합니다.