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

• #44875 scha_vagyok friss újonc

  Új Válasz 2020-09-21 14:12:01 #44875

  Ú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

  friss újonc

  Nincs több makró, csak a feltételes formázás. És mivel annyira nem értek hozzá, nem tudom, hogy tudom megmutatni, és cserébe azt sem értem, hogy mit jelent az Option Explicit és a hasonlók. Tudom, én vagyok a nagyon hülye, elnézést kérek.
  Csak kellene valami, ami jól működik az előbb leírt helyzetre. Amúgy így néz ki

• #44871 scha_vagyok friss újonc Fferi50 #44870

  Új Válasz 2020-09-21 13:36:59 #44871

  Ú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

  friss újonc

  válasz Fferi50 #44870 üzenetére

  Jaj, nagyon hálás vagyok a segítségért! Inkább a helyzetet írom le, hátha akkor célirányosabban tudtok segíteni.
  Egy 147 soros excelről van szó, bizonyos sorokban szerepel egy "X" (abban a sorban, amelyik a helyes válasz).
  Az oszlopokba bemásolásra kerül a delikvensek által adott válasz (sok ilyen oszlop lesz).
  Feltételes formázással csak az a sor lesz piros az oszlopban, ahol rossz helyre tette az "X"-et.
  Meg kellene számolni, hogy hány piros cella van az oszlopban (majd utána kivonni a helyes válaszok számából).
  Fenti modult nem én írtam, gondolom, látszik, hogy egyáltalán nem tudok programozni.
  Nagyon köszi minden javaslatot, segítséget!

• #44869 scha_vagyok friss ú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

  friss ú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