프로그래밍 블로그

Private Sub Form_Load()
Dim TArr() As String
Dim TestStr As String

TestStr = "명인바보=_=;; 명인은 천재다 명인은 고수다, 명인은 초보다"
TArr() = Split(TestStr, "명인")

Dim i As Long
For i = LBound(TArr) To UBound(TArr)
Debug.Print "|" & TArr(i) & "|" '직접실행창에 출력
Next
End Sub

Split 함수를 사용할때 꼭
배열을 설정할때 배열길이를 설정하면 안된다
위 처럼 Tarr() 식으로 선언을 해주어야 한다.

Split와 반대대는 함수는 Join 함수 반대로
특정 기준으로 붙여주는 함수

Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3"   ' 프롬프트 설정.
Title = "InputBox Demo"   ' 제목 설정.
Default = "1"   ' 기본값 설정.
' 메시지 화면 표시, 제목, 기본값.
MyValue = InputBox(Message, Title, Default)

' Helpfile과 구문을 사용하십시오. 도움말 단추는 자동적으로 추가됩니다.
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' 100, 100의 위치에 대화 상자를 표시합니다.
MyValue = InputBox(Message, Title, Default, 100, 100)

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

MsgBox("내용",버튼종류,"제목")

이정도만 알고 있으면 됩니다.


Buttons 인수 설명
예제 )
MsgBox("예제",1,"제목")
or
MsgBox("예제",vbOKCancel,"제목")