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

• #16510 Delila_1 veterán Thom6 #16509

  Új Válasz 2013-01-28 15:49:58 #16510

  Ú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 Thom6 #16509 üzenetére

  Írtam egy rövid makrót, ami "kifehéríti" azoknak a celláknak a karaktereit, amiket nem akarsz megjeleníteni.

  A képen az L oszlopig látszanak az adatok. Ha több oszlopban is vannak, a feltétel (If) 2. sorában írd át.

  Sub szin()
  Dim sor As Integer, usor As Integer
  
  usor = Cells(Rows.Count, ("H")).End(xlUp).Row
  For sor = 2 To usor
  If (sor + 1) Mod 5 Then
  Range(Cells(sor, "A"), Cells(sor, "G")).Font.ColorIndex = 2
  Range(Cells(sor, "J"), Cells(sor, "L")).Font.ColorIndex = 2
  End If
  Next
  End Sub

  Ezt lefuttatod, a táblázat bővítésekor csak másolnod kell az utolsó 5 sor formátumát a formátumfestő ecsettel.

• #16508 Delila_1 veterán Thom6 #16507

  Új Válasz 2013-01-28 15:27:36 #16508

  Ú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 Thom6 #16507 üzenetére

  Lappy válaszát tudom ajánlani.

  Gyorsan át tudod alakítani a táblázatodat. Kijelölöd az oszlopokat, ahol egyesítés van. Megszünteted az összevonást, de nem szünteted meg a kijelölést. Most minden valahány sorod üres cellákat tartalmaz ezen a területen.

  Ctrl+g-re bejön az "Ugrás" menü. Kiválasztod az Irányított ugrást, majd az "Üres cellák"-at.
  Ez kijelöli a tartomány üres celláit, ahol a képed szerint az A3 lesz aktív. Még most sem szünteted meg a kijelölést. Beírsz egy egyenlőség jelet, és nyomsz egy fel nyilat. Ctrl+enterrel az összes kijelölt cella a fölötte lévő értéket adja egy hivatkozás segítségével.

  Most újra kijelölöd a teljes oszlopokat, Ctrl+c-vel másolod, marad a kijelölés. Jobb klikk, Irányított beillesztés, Értéket. Minden cellába fixen beíródott az adat, amit az összevont cella tartalmazott.

  Ez az egész procedúra kevesebb idő alatt lesz kész, mint ahogy leírtam. Már csak a feltételes formázást kell megadnod.

• #16506 Delila_1 veterán Thom6 #16505

  Új Válasz 2013-01-28 15:06:36 #16506

  Ú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 Thom6 #16505 üzenetére

  Ha szépet és gyorsat akarsz, akkor már eleve ne vonj össze cellákat, mert az egy halom hibát okozhat.
  

• #16502 lappy őstag Thom6 #16501

  Új Válasz 2013-01-28 14:28:02 #16502

  Ú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

  

  lappy

  őstag

  válasz Thom6 #16501 üzenetére

  Szia!
  Igen macro nélkül meg lehet bár nem lesz túl elegáns a táblázat!
  Ott ahol egyesítve van a cella ott minden sorba beviszed az adatodat. Azaz ha 4 sort egyesítettél akkor 4 sorba beviszed pl.: B1
  Minden cellára ezt megteszed és ezután feltételes formázással oldod meg.
  Kijelölöd az oszlopot majd új szabály- formázandó cellák kijelölése képlettel.
  a képlet =A2=A1 majd a formázásnál megadod a cella színét (alapnál fehér)
  és alkalmaz

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