월별개인출석부

페이지 정보

profile_image
작성자현재진행형 조회 0회 작성일 2020-11-20 21:31:36 댓글 0

본문

[컨텐츠 수업] 온라인 수업 출석부 쉽게 만들기

출석부 스프레드시트 양식 복사하기 (구글 로그인 후 사본 만들기로 복사해서 사용하세요.)
- https://docs.google.com/spreadsheets/d/1OAkPql8Yy_B_eWqNejak25q96Up8L3gZSrx75Avt4rU/edit?usp=sharing

GEG 경남 | 페이스북 : https://www.facebook.com/groups/1181734558882983/about/
GEG 경남 | 사이트 : https://sites.google.com/view/geg2020/%ED%99%88

감사합니다.

국가대표김선생+마이크로소프트 엑셀 출석부만들기

국가대표김선생+마이크로소프트 엑셀 출석부만들기
방과후 출석부 강사들 교무실와서 출석부 가지고 각자 교실 가서 볼펜찾고 학생 체크하고 기입하고, 수업하고, 마치고 다시 출석부 제출하고 담당자 수거하고 출결인원 파악하고 스캔이나 파일로 작성하고 결재받고……
저는 다른 방법이 있다고 생각했습니다.
온라인 출석부를 만들어 배부하면 체크즉시 수합, 통계까지 편리할 것 같아요. 그래서 만들어 봤습니다.
궁금한 점은 댓글 주세요.

[엑셀 실무]조건을 만족하는 명단으로 출석부 만드는 3가지 방법

--------------------------------------------------------------------------------
좋아요/구독 눌러주세요. 큰 힘이 됩니다.
--------------------------------------------------------------------------------
질문 사항이 있으시면 kim5953@gmail.com으로 해 주세요.

소스 파일:http://www.officetutor.co.kr//board/DType/bfrmvw.asp?f_tn=Dqa_excel_n2\u0026f_bno=125839\u0026page=\u0026fchk=\u0026fval=

Private Sub CommandButton1_Click()


' sort
Dim rngx As Range
Set rngx = list1.Range("A1").CurrentRegion

rngx.Sort Key1:="이름", Order1:=xlAscending, Header:=xlYes


rngx.AutoFilter Field:=8, Criteria1:="비대상"


'Stop


Set rngx = rngx.Columns(5)
Set rngx = rngx.Offset(1).Resize(rngx.Rows.Count - 1)
'Stop
Set rngx = rngx.SpecialCells(xlCellTypeVisible)

'rngx.Copy Range("C21")

'Stop

' 기존 자료 지우기
Union(list2.Range("B5").Resize(11), list2.Range("B26").Resize(11)).ClearContents

Dim rngY As Range: Set rngY = list2.Range("B5")

Dim rArea As Range, cell As Range
Dim i As Long, j As Long

'-------------------------
For i = 1 To rngx.Areas.Count
'-------------------------

Set rArea = rngx.Areas(i)

For Each cell In rArea.Cells

j = j + 1

rngY.Value = cell.Value
If j = 12 Then
Set rngY = list2.Range("B12")
Else
Set rngY = rngY.Offset(1)
End If
Next cell

Next i

Stop

'이름 필터 해제
rngx.AutoFilter Field:=8

' 필터 모드 해제
list1.AutoFilterMode = False

'원위치
With list1.Range("A1").CurrentRegion
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes
End With


End Sub




'------------------------------------
Private Sub CommandButton2_Click()
'------------------------------------

' sort
Dim varX As Variant
varX = list1.Range("A1").CurrentRegion.Value

Dim oList As Object: Set oList = CreateObject("System.Collections.ArrayList")
Dim r As Long

For r = 2 To UBound(varX, 1)
If varX(r, 8) = "비대상" Then oList.Add varX(r, 5)
Next r
Stop

oList.Sort

Dim vName As Variant: vName = oList.toarray


' 기존 자료 지우기
Union(list2.Range("B5").Resize(11), list2.Range("B26").Resize(11)).ClearContents

Dim rngY As Range: Set rngY = list2.Range("B5")
Dim i As Long, j As Long

'----------------------------------------
For i = LBound(vName) To UBound(vName)
'----------------------------------------


j = j + 1
rngY.Value = vName(i)

If j = 12 Then
Set rngY = list2.Range("B12")
Else
Set rngY = rngY.Offset(1)
End If

Next i

End Sub

#AutoFilter
#Sort
#ArrayList

... 

#월별개인출석부

댓글목록

등록된 댓글이 없습니다.

전체 783건 1 페이지
게시물 검색
Copyright © www.jaeheum.kr. All rights reserved.  Contact : help@oxmail.xyz