[방송통신대 컴퓨터과학과] 데이터처리와활용_기말과제물

소개글

"[방송통신대 컴퓨터과학과] 데이터처리와활용_기말과제물"에 대한 내용입니다.

목차

1. 연습문제 4장
2. 연습문제 5장
3. 연습문제 6장
4. 연습문제 7장
5. 참고문헌

본문내용

● 소스 코드
a) 4번
Sub 부서별정렬()
'
' 부서별정렬 매크로
' 부서이름에 따른 오름차순 정렬
'

'
Range("B5").Select
Call 부서별급여부분합삭제
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B6:B17") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("B5:H17")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub 부서별급여부분합()
'
' 부서별급여부분합 매크로
' 부서별 급여에 대한 부분합 계산
'

'
Range("B5").Select
Call 부서별정렬
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6, 7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveWindow.SmallScroll Down:=9
End Sub
Sub 부서별급여부분합삭제()
'
' 부서별급여부분합삭제분합삭제 매크로
' 부서별 급여/상여의 부분합 출력을 시트에서 삭제

참고 자료

한국방송통신대학교출판문화원. (2020). “데이터처리와활용”, 교재 4-7장.