InputBox를 이용하여 입력된 데이터 split하여 배열로 만들기

DATA배열을 만들기 위해서는 반드시 String형 자료형 선언 필요

# variant자료형으로 선언시 split하여 대입된 DATA의 모양  => DATA(0)(0), DATA(0)(1)........ 형식임  (차후 정리 필요)

 

- Trim을 이용하여 양끝 공백 제거

- Split을 이용하여 space bar 단위로 문자열 split

- 문자열을 정수화하여 직접실행창에 출력

 

Dim i As Integer     Dim a, DATA() As String               a = InputBox("데이터 입력 [ space bar로 구분 ]")     DATA = Split(Trim(a))     For i = LBound(DATA) To UBound(DATA)         Debug.Print (Int(DATA(i)))     Next i