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

• #44869 scha_vagyok újonc

  Új Válasz 2020-09-21 12:34:53 #44869

  Ú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

  

  scha_vagyok

  újonc

  Sziasztok! Segítenétek abban, hogy ez miért ad vissza "compile error expected end of statement" hibát? A vizsgált tartományban feltételes formázással kerülnek kijelölésre a kívánt cellák, ezeket kell összeszámolni, a mintacellát ugyanolyan színűre állítottam. Köszi előre is!

  Function CountColor(Mintacella As Range, Tartomany As Range)
  'Összeszámolja, hogy a mintaként jelölt háttérszínű cellából hány darab
  'van a kijelölt tartományban.
  Dim rngCell As Range
  nColor = Mintacella.Interior.Color
  nResult = 0
  For Each rngCell In Tartomany
  If rngCell.Interior.Color = nColor Then
  nResult = nResult + 1
  End If
  Next rngCell
  CountColor = nResult
  End Function

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