vba_03_operator

• 사칙연산

+ : 합
- : 차
* : 곱
/ : 몫
\ : 몫(정수) 이거 못찾는 분들 계신다, Enter 위에 있다.
Mod : 나머지
^ : 제곱

Sub pd_opr02()
    Dim n1, n2 As Long
    n1 = Worksheets(ActiveSheet.Name).Cells(3, 1).Value
    n2 = Worksheets(ActiveSheet.Name).Cells(3, 2).Value
    
    Worksheets(ActiveSheet.Name).Cells(4, 1).Value = "+"
    Worksheets(ActiveSheet.Name).Cells(5, 1).Value = "-"
    Worksheets(ActiveSheet.Name).Cells(6, 1).Value = "*"
    Worksheets(ActiveSheet.Name).Cells(7, 1).Value = "/"
    Worksheets(ActiveSheet.Name).Cells(8, 1).Value = "%"
    
    Worksheets(ActiveSheet.Name).Cells(4, 2).Value = n1 + n2
    Worksheets(ActiveSheet.Name).Cells(5, 2).Value = n1 - n2
    Worksheets(ActiveSheet.Name).Cells(6, 2).Value = n1 * n2
    Worksheets(ActiveSheet.Name).Cells(7, 2).Value = n1 / n2
    Worksheets(ActiveSheet.Name).Cells(8, 2).Value = n1 Mod n2
    Worksheets(ActiveSheet.Name).Range("A4:B8").VerticalAlignment = xlCenter '수직 정렬
    Worksheets(ActiveSheet.Name).Range("A4:B8").HorizontalAlignment = xlCenter '수평 정렬
    MsgBox "실행완료"
End Sub

비교 연산

A = B : A와 B는 같다.

A > B : A가 B보다 크다.

A >= B : A가 B보다 크거나 같다.

A <> B : A와 B가 같지 않다.

A Like B : A는 B와 비슷하다.
(<, <= 는 반대 방향 생략.)

논리 연산

 if A and B then
 
 elseif A or B then
 
 else
 
 End if