| 엑셀 VBA 기초 강의 1-4 편 | 엑셀 VBA 변수 지정과 데이터타입 설정 예제 |
첨부파일에 이상이 생겼을 경우, 1:1 문의하기로 연락주시면 신속히 해결해드리겠습니다.
관련강의 살펴보기
엑셀 양식 컨트롤 사용법 총정리 :: 드롭다운, 체크박스 등
| 엑셀 VBA 기초 강의 1-2 편 | 엑셀 드롭다운 체크박스 컨트롤 쉽게 이용하기 | 실습파일 무료E-Book 강의 PPT파일 완성파일 ...
엑셀 VBA 변수 알아보기 :: 자주 사용하는 7가지 변수 총정리
| 엑셀 VBA 기초 강의 1-3 편 | 엑셀 VBA 변수란 무엇인가 자주사용하는 변수 7가지 한눈에 보기 | 실습파일 무료E-Book ...
1. VBA 코드 전문
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 33 34 35 36 37 | 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가지 를 참조하세요.
1 2 3 4 5 6 7 8 | 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을 이용하여 개체를 할당하는 방법은 이후 강의를 참조해주세요.
1 2 3 4 5 6 7 8 | 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 에는 여러가지 속성값이 있지만, 각각의 속성값을 입력하지 않아도 아래와 같이 짧은 문구로 쉽게 이용할 수 있습니다.
1 2 | Msgbox "원하는 내용 입력" |
: [ & ]연산자를 이용하여 직접 입력한 문자열 (""안에 있는 내용)과 변수로 할당된 내용을 구분하여 입력할 수 있습니다.
1 2 3 4 5 6 7 | MsgBox "Integer: " & MyInt MsgBox "Long: " & MyLng MsgBox "Double: " & MyDbl MsgBox "String: " & MyStr MsgBox "Variant: " & MyVar MsgBox "Boolean: " & MyBln |
안녕하세요 오빠두님 유튜부를통해 재밌게보고있습니다. 여기에 질문을 드려도 답변이 달리지는 모르겠지만 답답한 마음에 올려봅니다. 시청자수가 나날이 늘고있어서 보시기는 힘드시겠지만 우연히라도 보셨으면 좋겠네요.. Sub 테스트_매크로() Dim PTNo As String 'PTNo로 지정하고 싶은것은 셀안에 숫자 4자리입니다.' PTNo = Range("V10") Range("A12:V10000").Select Selection.AutoFilter ActiveSheet.Range("$A$12:$V$10000").AutoFilter Field:=4, Criteria1:="*PTNo*" '엑셀 자동필터에서 "*텍스트*"로 입력하면 텍스트를 포함한 내용들이 필터링 되더군요. 그래서 PTNo라는 변수의 V10 셀값을 포함하는 필터링을 하고싶은데 잘되지않는군요… 방법을 알 수 있을까요? ActiveSheet.Range("$A$12:$V$10000").AutoFilter Field:=22, Criteria1:="오빠두" Range("D13:D10000").Select With Selection.Font '빨강 .Color = -16776961 .TintAndShade = 0 End With Range("$A$12").Select ActiveWindow.ScrollRow = 1 End Sub
안녕하세요 오빠두님 유튜부를통해 재밌게보고있습니다.
여기에 질문을 드려도 답변이 달리지는 모르겠지만 답답한 마음에 올려봅니다.
시청자수가 나날이 늘고있어서 보시기는 힘드시겠지만 우연히라도 보셨으면 좋겠네요..
Sub 테스트_매크로()
Dim PTNo As String 'PTNo로 지정하고 싶은것은 셀안에 숫자 4자리입니다.'
PTNo = Range("V10")
Range("A12:V10000").Select
Selection.AutoFilter
ActiveSheet.Range("$A$12:$V$10000").AutoFilter Field:=4, Criteria1:="*PTNo*"
'엑셀 자동필터에서 "*텍스트*"로 입력하면 텍스트를 포함한 내용들이 필터링 되더군요. 그래서 PTNo라는 변수의 V10 셀값을 포함하는 필터링을 하고싶은데 잘되지않는군요… 방법을 알 수 있을까요?
ActiveSheet.Range("$A$12:$V$10000").AutoFilter Field:=22, Criteria1:="오빠두"
Range("D13:D10000").Select
With Selection.Font '빨강
.Color = -16776961
.TintAndShade = 0
End With
Range("$A$12").Select
ActiveWindow.ScrollRow = 1
End Sub
안녕하세요?:)
Criteria를 Variant 의 배열형태로 만들어보세요.
Dim PTNo as variant
PTNO(0) = Range("V10")
감사합니다!