|
|
|
|
|
|
'---------------------------------------------------------------------------------
'숨겨진 셀을 제외한 짝수 셀들의 합계
'---------------------------------------------------------------------------------
'---------------------------------------------------------------------------------
Function sumX(rngX As Range) As Long
'---------------------------------------------------------------------------------
Dim iTotal As Long
Dim v As Long
Dim cell As Range
For Each cell In rngX.Cells
If cell.EntireRow.Hidden = False And cell.EntireColumn.Hidden = False Then
v = cell.Value
If v Mod 2 = 0 Then
iTotal = v + iTotal
End If
End If
Next cell
sumX = iTotal
End Function
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2019-04-08(01:41)
최종수정일 : 2019-04-08(01:41) |
|
|
|
|