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

• #24433 Fferi50 Topikgazda .OM. #24431

  Új Válasz 2014-12-01 16:07:09 #24433

  Ú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

  

  Fferi50

  Topikgazda

  válasz .OM. #24431 üzenetére

  Szia!

  Amit az előbb írtam, az sajnos nem megy - a vba help becsapott - bocs.

  Viszont a másik ötletem a következő (hátha nem fogytak még el a libák. ):

  Ha az oszlopaid értékét egymás alá másolod, úgy, hogy a sorcimkéket is tovább másolod velük, majd minden adat mellé a mellette levő oszlopba beírod a hónapot (ami eddig a fejléc volt), akkor az így keletkezett adatoszlopot a sorcimkék és az új - a fejlécet sokszorozó - oszlop alapján kívánság szerint összegezheted.

  Remélem érthető, amit írtam.

  Üdv.

• #24432 Fferi50 Topikgazda .OM. #24431

  Új Válasz 2014-12-01 15:44:18 #24432

  Ú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

  

  Fferi50

  Topikgazda

  válasz .OM. #24431 üzenetére

  Szia!

  Csak egy ötlet:

  Csoportosítsd át a tábládat úgy, hogy az összegzendő oszlopok egymás mellé kerüljenek. Akkor összefüggő tartományként megadhatod összegzendő paraméternek a 6 oszlopot. (A kiválogatást megcsinálhatod speciális szűrőt használva az adott oszlopokra a jelenlegi táblád végére is.)

  Üdv.

• #24427 Fferi50 Topikgazda .OM. #24425

  Új Válasz 2014-12-01 15:04:46 #24427

  Ú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

  

  Fferi50

  Topikgazda

  válasz .OM. #24425 üzenetére

  Szia!

  A SZUMHATÖBB függvény arra jó, hogy egy összegzendő tartományt több feltétel - azaz több feltételtartomány-kritérium páros - szerint is vizsgálva adjon összeget.
  A példádban több összegzendő tartomány van (a hónapok adatai) szerintem és a kritériumok azonosak (vagy nem).
  Ezek összegét úgy kaphatod meg, ha a SZUMHATÖBB (vagy a SZUMHA, ha egy kritérium van) függvényt alkalmazod az oszlopokra és az eredményt összeadod:
  =SZUMHATÖBB(elsőoszlop,elsőkritérium,elsőfeltétel,másodikkritérium,másodikfeltétel)+SZUMHATÖBB(harmadikoszlop,elsőkritérium,elsőfeltétel, másodikkritérium,másodikfeltétel) + így tovább...
  Mivel külön SZUMHATÖBB függvényekről van szó, az egyes oszlopok összegezési feltételei akár el is térhetnek egymástól.

  Üdv.

• #23440 m.zmrzlina senior tag .OM. #23436

  Új Válasz 2014-09-24 19:10:35 #23440

  Ú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

  

  m.zmrzlina

  senior tag

  válasz .OM. #23436 üzenetére

  Bocsánat teljesen igazad van. A második ciklus helyesen így néz ki:

  For i = 0 To intSorok - 1
  For j = 0 To intOszlopok - 1
  Cells(i + 1, j + 1).Interior.Color = arrCopyColor(i, j)
  Next
  Next

  A többi stimmel.

• #23429 m.zmrzlina senior tag .OM. #23423

  Új Válasz 2014-09-24 12:47:05 #23429

  Ú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

  

  m.zmrzlina

  senior tag

  válasz .OM. #23423 üzenetére

  Próbáld ki ezt! Szerintem közel van ahhoz amit szeretnél. Úgy indítasz, hogy kijelölöd azt a tartományt aminek a szineit másolni szeretnéd és elindítod a makrót.

  Sub masol()
  
  Dim intSorok As Integer
  Dim intOszlopok As Integer
  Dim arrCopyColor()
  
  intSorok = Selection.Rows.Count
  intOszlopok = Selection.Columns.Count
  ReDim arrCopyColor(intSorok, intOszlopok)
  
  For i = 0 To intSorok
  For j = 0 To intOszlopok
  arrCopyColor(i, j) = Cells(ActiveCell.Row + i, ActiveCell.Column + j).DisplayFormat.Interior.Color
  Next
  Next
  
  Sheets.Add After:=Sheets(Sheets.Count)
  ActiveSheet.Name = "colors"
  
  For i = 1 To intSorok
  For j = 1 To intOszlopok
  Cells(i, j).Interior.Color = arrCopyColor(i, j)
  Next
  Next
  
  End Sub

• #23425 m.zmrzlina senior tag .OM. #23423

  Új Válasz 2014-09-24 10:40:26 #23425

  Ú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

  

  m.zmrzlina

  senior tag

  válasz .OM. #23423 üzenetére

  Ugye a legprofibb megoldás gondolom az lenne, hogy egy változóba kiírkálni a cellák DisplayFormat.Interior.Color tulajdonságát majd egy újonnan létrehozott munkalapon visszaírni.

  Vagy a másik, hogy ha van elég hely a munkalapodon akkor annyi oszloppal jobbra (vagy sorral lejjebb) másolni a formátumot ahol már nem zavar aztán Ctrl+C > formátum másolása az új munkalapra.

  Nyilván te is észrevetted, hogy annyit sántít a megoldás, hogy a nofill (nincs kitöltés) hátterű cellákból fehér (colorindex 2) hátterű cellák lesznek. Nem tudom ez mennyire baj.

• #23418 m.zmrzlina senior tag .OM. #23414

  Új Válasz 2014-09-23 19:47:53 #23418

  Ú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

  

  m.zmrzlina

  senior tag

  válasz .OM. #23414 üzenetére

  Nekem ezzel a kóddal sikerült lemásolnom (Excel 2010 alatt) egy korábbi munkalapon a feltételes formázás színeit:

  Sub masol()
  For Each cella In Selection.Cells
  cella.Offset(0, 10).Interior.Color = cella.DisplayFormat.Interior.Color
  Next
  End Sub

  Ez a kód a kijelölt tartomány minden cellájának (feltételesen és nem feltételesen formázott) színét 10 oszloppal jobbra másolja.

  Ja innen loptam, kipróbáltam és működött. (jsmith4892002 2012 aug 19.-i hozzászólása)

• #23417 Fferi50 Topikgazda .OM. #23414

  Új Válasz 2014-09-23 19:43:05 #23417

  Ú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

  

  Fferi50

  Topikgazda

  válasz .OM. #23414 üzenetére

  Szia!

  Szerintem ez elég bonyolult makróval oldható meg csak, mivel a feltételes formázás feltételeit kell megvizsgálnod, hogy az adott cellára melyik teljesült.
  Makróban pl. a cells(1,1).formatconditions(x).interior.color adja meg a szín számát, ahol
  cells(1,1) az A1 cella, formatconditions(x) az x-edik feltételes formázás. Hogy hány feltételes formázás van az adott cellánál, azt pedig a cells(1,1).formatconditions.count eredménye adja meg.
  De a feltételes formázásnak sok egyéb tulajdonsága is van még, amiket mind meg kellene nézni, hogy teljesül-e a cellára (típusa, a tipustól függően a hozzá tartozó kifejezés, operátor....).
  Én most nem vállalkoznék egy ilyen makró megírására....

  Üdv.

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