Új hozzászólás Aktív témák

• #38132 Mutt senior tag Joe109 #38129

  Új Válasz 2018-05-30 11:54:31 #38132

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz Joe109 #38129 üzenetére

  Szia,

  A többiektől kapott válasz mellett egy rosszul megírt saját függvénnyel (UDF) is el lehet érni ezt.

  Function Osszeg(oszlop As String) As Double
Dim Utolsosor As Long, i As Long

Utolsosor = Range(oszlop & Rows.Count).End(xlUp).Row

Osszeg = 0

For i = 1 To Utolsosor
With Range(oszlop & i)
If Not .EntireRow.Hidden Then
If IsNumeric(.Value) Then
Osszeg = Osszeg + Range(oszlop & i)
End If
End If
End With
Next i

End Function

  Használata, ha az értékek a B-oszlopban vannak: =Osszeg("B")

  Mivel a függvény paramétere nem változik meg a szűrés során ezért nem számolódik újra, tartja a korábbi értéket. Ha frissíteni akarod, a képletet tartalmazó cellába bele kell kattintanod.

  üdv

Új hozzászólás Aktív témák