엑셀 vba 여러 조건문에 따른 메세지박스, 변수 사용하기

 

엑사남님 강의 Study 1강

Sub Test1()     If MsgBox("당신은 숫자 7을 좋아하나요?", vbYesNo) = vbYes Then         MsgBox "7은 역시 행운의 수이죠!!"     Else         If MsgBox("그러면 당신은 숫자 1을 좋아하나요?", vbYesNo) = vbYes Then             MsgBox "1은 역시 No1~!!"         Else             MsgBox "아직은 제가 2가지 숫자만 대응할 수 있어요.홍홍홍~"         End If     End If End Sub

엑셀파일

If,Msgbox.xlsm

0.04MB

엑사남님의 강의 Study 2강

Sub Dim_test()     'long : 숫자     'string : 문자     Dim lngT As Long     Dim strT As String         '변수 이름을 통해 형식 추측가능     Dim lngA As Long     Dim lngB As Long          lngA = 10     lngB = 2     strT = " 의 결과는 "          lngT = lngA + lngB     MsgBox lngA & "+" & lngB & strT & lngT          lngT = lngA - lngB     MsgBox lngA & "-" & lngB & strT & lngT          lngT = lngA * lngB     MsgBox lngA & "x" & lngB & strT & lngT     lngT = lngA / lngB     MsgBox lngA & "/" & lngB & strT & lngT End Sub

엑셀파일

Dim,Long,String,lng,Str.xlsm

0.03MB