매크로 와 VBA 실전 9.08~ 강민혜(단국대)교수님

 매크로 와 VBA 실전 p. 119~  VBE (EDITION)  --> RUN PLAY

- ALT +F8 

- CNTR + 1

- ALT +F11 +삽입 , 모듈, 구문 붙여넣기 할 것

p.185~

1. Range("C5", Cells(Rows.Count, "D").End(xlUp)).Copy Sheets(Range("c2").Value).Range("B3")

2. Sub 과목복사()

'

' 과목복사 매크로

'

    Range("B4").AutoFilter Field:=1, Criteria1:=Range("c2").Value

        

    Range("C5", Cells(Rows.Count, "D").End(xlUp)).Copy Sheets(Range("c2").Value).Range("B3")

    

    Sheets("종합").Select

    Application.CutCopyMode = False

    Selection.AutoFilter

    Range("C2").Select

End Sub

p.200~

1. ALT +F11 +삽입 , 모듈, 구문 붙여넣기 할 것

Sub 합격확인()

    'Dim 필기 As Byte, 실기 As Byte, 합격 As String

    필기 = Range("b3").Value

    실기 = Range("c3")

    If 필기 >= 70 And 실기 >= 70 Then

        합격 = "합격"

    Else

        합격 = "불합격"

    End If

    Range("d3") = 합격

End Sub

-------

==>

2. ALT +F11 +삽입 , 모듈, 구문 붙여넣기 할 것

Sub 평점계산()

    Dim 평균 As Double, 평점 As String

    평균 = Range("d3")

    If 평균 >= 90 Then

        평점 = "A"

    ElseIf 평균 >= 80 Then

        평점 = "B"

    ElseIf 평균 >= 70 Then

        평점 = "C"

    Else

        평점 = "F"

    End If

    Range("e3") = 평점

End Sub

----------------

p.215

ALT +F11 +삽입 , 모듈, 구문 붙여넣기 할 것

Sub 숫자채우기()

    Dim i As Long

    For i = 1 To 10

        Range("a" & i) = i

    Next

        

End Sub

------------

Sub 합계()

    Dim i As Long, s As Long

    s = 0

    For i = 3 To 9

        s = s + Range("b" & i).Value

    Next

    

    Range("e4") = s

        

End Sub

-------

Sub 합계2()

    Dim i As Long, s As Long, 종료 As Long

    s = 0

    종료 = Cells(Rows.Count, "b").End(xlUp).Row

    For i = 3 To 종료

        s = s + Range("b" & i).Value

    Next

    

    Range("e4") = s

        

End Sub

-