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

• #6177 Delila_1 veterán mr.nagy #6176

  Új Válasz 2010-02-08 07:36:48 #6177

  Ú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 mr.nagy #6176 üzenetére

  Szívesen.

• #6175 Delila_1 veterán mr.nagy #6174

  Új Válasz 2010-02-07 12:56:06 #6175

  Ú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 mr.nagy #6174 üzenetére

  A DARAB2 való erre.

• #5752 Cuci3 tag mr.nagy #5749

  Új Válasz 2009-11-27 10:33:47 #5752

  Ú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

  

  Cuci3

  tag

  válasz mr.nagy #5749 üzenetére

  Nekem összejött. Tényleg a szüke hátterű Adatok dolgot kell áthúzni az oszlopmezőhöz.

• #5748 Fehér Mancs tag mr.nagy #5745

  Új Válasz 2009-11-26 13:54:51 #5748

  Ú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

  

  Fehér Mancs

  tag

  válasz mr.nagy #5745 üzenetére

  A megoldás, hogy amikor az adatokat kitetted, akkor fogod az "Adat" elnevezésű mezőt és áthúzod az oszloplistába (nem a tervezőnézetben, hanem már az excelben).

• #5746 Cuci3 tag mr.nagy #5745

  Új Válasz 2009-11-25 22:46:43 #5746

  Ú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

  

  Cuci3

  tag

  válasz mr.nagy #5745 üzenetére

  A kérdés tök jó, de még sose jöttem rá, hogy pontosan hogyan kellene.
  Amit ismerek 2003-ban: megvan a pivot, ráállsz valamelyik részére Formázás / Automatikus formázás. Onnan kiválasztasz egyet, de ne az utolsó kettőt. Megjelenik szép színesbe a kimutatás, de az adatok már oszlopba bontva. Aztán újra Automatikus formázás, majd a bal alsó kinézet választása (ez a normális kinézetet hozza vissza).

  Tuti valahol valami opció, de sose jöttem rá, hogy merre kellen keresni.

• #5446 Cuci3 tag mr.nagy #5433

  Új Válasz 2009-10-08 09:42:30 #5446

  Ú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

  

  Cuci3

  tag

  válasz mr.nagy #5433 üzenetére

  Elkezdtem ezen gondolkodni. Direkten nincs ilyen lehetőség, indirekten pedig makróval lehet valamit megoldani. De tuti belassítaná a munkafüzetet.
  Autofilter makró lehetőségeinek elolvasása után én így látom a probléma megoldását:
  1. Betöltéskor a B oszlop autószűrő kritéiumát el kellene tárolni.
  2. Ha változik valami a munkafüzetben, akkor megnézni, hogy változott-e a kritérium
  3. Ha változott a kritérium, akkor a kritériumnak megfelelő elemeket kiíratni valahova. A kiírásra egyelőre nem találtam tuti megoldást, úgy tűnik az A oszlop összes használt során végig kell lépkedni, és megnézni, hogy egyezik-e a kritériummal.

  Valakinek valami jobb ötlete?

• #3932 Delila_1 veterán mr.nagy #3931

  Új Válasz 2008-10-05 18:04:47 #3932

  Ú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 mr.nagy #3931 üzenetére

  Van itt két makró, sajnos nem én írtam őket. Az első jó a feladatodra.

  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
  
  Function SumColor(Mintacella As Range, Tartomany As Range)
  'A mintaként bejelölt hátterű cellákban szereplő számokat összegzi
  Dim rngCell As Range
  nColor = Mintacella.Interior.Color
  nResult = 0
  For Each rngCell In Tartomany
  If rngCell.Interior.Color = nColor Then
  nResult = nResult + WorksheetFunction.Sum(rngCell)
  End If
  Next rngCell
  SumColor = nResult
  End Function

  Másold be a makrókat egy üres füzet makró szerkesztőjébe, majd mentsd el SzinesCella.xla (Microsoft Excel bővítmény) formában. Jelöld be az Eszközök/Bővítmények között megjelenő SzinesCella nevűt, ezután alkalmazhatod függvényként. A függvények között a Felhasználói kategóriában, és persze a Mind-ben találod meg a CountColor és a SumColor nevezetűt. A makrókba beírtam, melyik mit csinál (és a nevük is utal rá).

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