| 엑셀 VBA 기초 강의 1-4 편 | 엑셀 VBA 변수 지정과 데이터타입 설정 예제 |
첨부파일에 이상이 생겼을 경우, 1:1 문의하기로 연락주시면 신속히 해결해드리겠습니다.
1. VBA 코드 전문
Sub DataType_Test() Dim MyInt As Integer Dim MyLng As Long Dim MyDbl As Double Dim MyStr As String Dim MyVar As Variant Dim MyBln As Boolean Dim MyObj As Range '=============================== 'Range("A1") 값 = 1 '=============================== MyInt = Range("A1") MyLng = Range("A1") MyDbl = Range("A1") MyStr = Range("A1") MyVar = Range("A1") MyBln = Range("A1") Set MyObj = Range("A1") MsgBox "Integer: " & MyInt MsgBox "Long: " & MyLng MsgBox "Double: " & MyDbl MsgBox "String: " & MyStr MsgBox "Variant: " & MyVar MsgBox "Boolean: " & MyBln MsgBox "Object: " & MyObj.Value MsgBox "Integer + Integer: " & MyInt + MyInt MsgBox "Double + Double: " & MyDbl + MyDbl MsgBox "String + String: " & MyStr + MyStr MsgBox "Variant + String: " & MyStr + MyVar End Sub
2. VBA 명령문 코드 분석
2-A. 변수 지정
: Dim 함수를 사용하여 각 변수를 알맞은 데이터타입으로 지정합니다.
Dim [변수명] As [데이터타입]
* 각 변수의 데이터타입에 대한 설명은 이전 강의 엑셀 VBA 변수 자주 사용하는 데이터타입 7가지 를 참조하세요.
Dim MyInt As Integer Dim MyLng As Long Dim MyDbl As Double Dim MyStr As String Dim MyVar As Variant Dim MyBln As Boolean Dim MyObj As Range
2-B. 지정된 변수에 데이터 할당
: 각 지정된 변수에 데이터를 (예제의 경우 A1 셀에 있는 값)을 할당합니다.
: 일반적인 데이터타입 (숫자/문자) 는 SET을 이용하지 않지만, 그 이외의 데이터타입 (보통 개체[Object]타입) 의 경우 SET으로 값을 할당해야 합니다.
* Dim 과 Set을 이용하여 개체를 할당하는 방법은 이후 강의를 참조해주세요.
MyInt = Range("A1") MyLng = Range("A1") MyDbl = Range("A1") MyStr = Range("A1") MyVar = Range("A1") MyBln = Range("A1") Set MyObj = Range("A1")
3. 각 변수를 메세지박스로 출력
: Msgbox (메세지박스 출력함수) 을 이용하여 각 변수를 메세지창으로 출력합니다.
: Msgbox 에는 여러가지 속성값이 있지만, 각각의 속성값을 입력하지 않아도 아래와 같이 짧은 문구로 쉽게 이용할 수 있습니다.
Msgbox "원하는 내용 입력": [ & ]연산자를 이용하여 직접 입력한 문자열 (""안에 있는 내용)과 변수로 할당된 내용을 구분하여 입력할 수 있습니다.
MsgBox "Integer: " & MyInt MsgBox "Long: " & MyLng MsgBox "Double: " & MyDbl MsgBox "String: " & MyStr MsgBox "Variant: " & MyVar MsgBox "Boolean: " & MyBln
안녕하세요 오빠두님 유튜부를통해 재밌게보고있습니다. 여기에 질문을 드려도 답변이 달리지는 모르겠지만 답답한 마음에 올려봅니다. 시청자수가 나날이 늘고있어서 보시기는 힘드시겠지만 우연히라도 보셨으면 좋겠네요.. Sub 테스트_매크로() Dim PTNo As String 'PTNo로 지정하고 싶은것은… 더보기 »
안녕하세요?:)
Criteria를 Variant 의 배열형태로 만들어보세요.
Dim PTNo as variant
PTNO(0) = Range("V10")
감사합니다!
안녕하세요 오빠두님 유튜부를통해 재밌게보고있습니다. 여기에 질문을 드려도 답변이 달리지는 모르겠지만 답답한 마음에 올려봅니다. 시청자수가 나날이 늘고있어서 보시기는 힘드시겠지만 우연히라도 보셨으면 좋겠네요.. Sub 테스트_매크로() Dim PTNo As String 'PTNo로 지정하고 싶은것은… 더보기 »
친절한 동영상과 강의 내용까지 다 공개해주셔서 감사합니다.
항상 유익하게 보고 있습니다. 감사합니다
감사합니다. 잘 배우고 있습니다.
가입 전부터 실속 있는 도움 잘 받고 있습니다. 감사합니다.