|
|
|
|
|
|
'---------------------------------------------
Function get_sum(rX As Range) As Variant
'---------------------------------------------
' 수시로 재계산, now, rand함수 같이
Application.Volatile
' 여기서 Application.Caller는 현재 수식이 있는 셀을 반환한다.(젤 중요)
' 현재 수식 입력 셀 바로 왼쪽 셀 값이 '합계'가 아니면
If Application.Caller.Offset(0, -1).Value <> "합계" Then
' 빈 문자열을 반환하고 빠져나가기
get_sum = "": Exit Function
End If
' 합계할 변수
Dim iSum As Variant: iSum = 0
Dim v As Variant
' 범위의 각 셀을 끝에서 부터 처음으로 돌며
'--------------------------------------
For r = rX.Cells.Count To 1 Step -1
'--------------------------------------
' 셀의 값
v = rX.Cells(r).Value
' 숫자가 아니면 FOR문 빠져 나가기
If Not IsNumeric(v) Then Exit For
' iSum에 합치기
iSum = iSum + v
'--------------------------------------
Next r
'--------------------------------------
' 함수의 결과 값으로 iSum 반환
get_sum = iSum
'----------------------------------
End Function
'---------------------------------- |
|
[불량 게시물 신고] |
|
|
|
작성일 : 2019-11-07(23:44)
최종수정일 : 2019-11-07(23:44) |
|
|
|
|