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

• #10110 Delila_1 veterán peeter81 #10109

  Új Válasz 2011-04-19 13:49:03 #10110

  Ú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 peeter81 #10109 üzenetére

  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