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

• #45367 Delila_1 veterán KBaj #45365

  Új Válasz 2020-11-20 08:02:24 #45367

  Ú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 KBaj #45365 üzenetére

  Szerintem a feltételt kellene megadnod a ciklusban, ami színezi a cellákat.

  Function FeltetelesDarabszam(Tartomany As Range)
Dim CV As Range, db As Integer
Application.Volatile
db = 0
For Each CV In Tartomany
If CV > 40 Then db = db + 1
Next CV
FeltetelesDarabszam = db
End Function

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