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

• Delila_1 veterán

  #10110

  #10109 peeter81

  2011-04-19 13:49:03

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #10109 peeter81

  Function AverageColor(Mintacella As Range, Tartomany As Range)
  Dim rngCell As Range
  nColor = Mintacella.Font.Color
  nDb = 0: nSum = 0
  For Each rngCell In Tartomany
  If rngCell.Font.Color = nColor Then
  nDb = nDb + 1
  nSum = nSum + rngCell
  End If
  Next rngCell
  AverageColor = nSum / nDb
  End Function

  Vidd be ezt a makrót a füzeted VB szerkesztőjébe. Ugyanúgy használhatod majd, mint bármelyik másik függvényt.
  Pl. az A1:B20 tartomány azon részének az átlagát szeretnéd megkapni, ahol a karakter kék színű. A Mintacella paraméternél add meg (rákattintással) egy olyan cella címét, ahol kék a karakter. Legyen ez pl. a B6, a függvényed a területen kívül egy cellában:
  =AverageColor(B6;A1:B20)

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