
Function S_V_C(Cells_To_sum As Object) ''Somma le celle solo visibili
Application.Volatile
For Each cell In Cells_To_sum
If cell.Rows.Hidden = False Then
If cell.Columns.Hidden = False Then
If Not IsEmpty(cell) And IsNumeric(cell) Then
total = total + cell.Value
End If
End If
End If
Next
S_V_C = total ''somma celle visibili = total
End Function |
