Рет қаралды 5,788
출석부에 체크 기호를 표시하는 방법과 각 개인별 출석 일수와 출석율을 구하는 방법을 알아봅니다.
bong.byus.net - 엑셀자료실
마우스로 체크하기
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nRow As Integer
Dim oRng As Range
Set oRng = Range("C3:N7")
oRng.Font.Name = "Wingdings 2"
If Not Intersect(oRng, Target) Is Nothing Then
nRow = Target.Row
If Target.Value = "" Then
Target.Value = "P"
Else
Target.Value = ""
End If
Cells(nRow, 2).Select
End If
End Sub