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

• #38117 Delila_1 veterán Peddy789 #38116

  Új Válasz 2018-05-28 18:02:44 #38117

  Ú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

  

  Delila_1

  veterán

  válasz Peddy789 #38116 üzenetére

  Egy felhasználói függvénnyel megoldható. Modulba másold (lásd a Téma összefoglalóban)

  Function Alatta(mit As Range, oszlop As Variant)
Dim sor As Integer, osszeg As Long, db As Long

sor = 1: oszlop = Asc(oszlop) - 64
Do While Cells(sor, oszlop) <> ""
If Cells(sor, oszlop) = mit Then
osszeg = osszeg + Cells(sor + 1, oszlop)
db = db + 1
End If
sor = sor + 1
Loop
Alatta = osszeg / db
End Function

  A kép L1 cellájában láthatod az alkalmazást.

  

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