그래프5기 부분합 목표값

 그래프5기 부분합 목표값

FREQUENCY

엑셀 페이지 나누기 점선 없애기

문제 1: 특정 범위의 숫자 합계 계산 (Ctrl + Shift + Enter)

주어진 범위 A1:A5에서 30보다 큰 숫자들의 합계를 구하세요.

문제 2: 조건을 만족하는 값 중 최댓값 찾기 (Ctrl + Shift + Enter)

주어진 범위 B1:B8에서 20보다 작으면서 가장 큰 값 찾기.

문제 3: 특정 조건을 만족하는 값들의 평균 계산 (Ctrl + Shift + Enter)

주어진 범위 C1:C6에서 50보다 큰 값들의 평균을 구하세요.

문제 4: 조건에 따라 다른 범위의 합계 계산 (Ctrl + Shift + Enter)

주어진 범위 D1:D7에서 B열의 값이 20보다 큰 경우에 대한 합계를 구하세요.

문제 5: 특정 조건에 따른 값들의 개수 세기 (Ctrl + Shift + Enter)

주어진 범위 E1:E5에서 30보다 작은 값들의 개수를 세세요.

답: {=SUM(IF(A1:A5 > 30, A1:A5, 0))}

답: {=MAX(IF(B1:B8 < 20, B1:B8))}

답: {=AVERAGE(IF(C1:C6 > 50, C1:C6))}

답: {=SUM(IF(B1:B7 > 20, D1:D7, 0))}

답: {=COUNT(IF(E1:E5 < 30, 1, ""))} 

Public Function GetR(r As Range)

    Dim currentCell As Range

    Dim Address As String ' 주소 문자열을 저장하기 위한 변수

    Dim Column As String ' 열 문자열을 저장하기 위한 변수

    Dim Row As String ' 행 문자열을 저장하기 위한 변수

    Dim vValue As Variant ' 비교할 값

    Dim rankValue As Integer ' 순위 값

    ' 첫 번째 셀의 주소를 열과 행으로 분리

    Address = r.Cells(1, 1).Address(True, True)

    Column = Split(Address, "$")(1)

    Row = Split(Address, "$")(2)

    ' 현재 실행 중인 함수의 셀 주소를 가져오기

    Address = Application.Caller.Address

    Row = Split(Address, "$")(2)

    Address = "$" & Column & "$" & Row

    ' 비교할 값 가져오기

    vValue = Range(Address).Value

    ' 초기 순위 값 설정

    rankValue = 1

    ' 주어진 범위 내에서 비교하며 순위 계산

    For Each currentCell In r

        If currentCell.Value > vValue Then

            rankValue = rankValue + 1

        End If

    Next currentCell

    ' 순위 값 반환

    GetR = rankValue

End Function