Hirdetés
- kraftxld: Diáklaptop - Dell Latitude 3140 - Királyunk ajándéka
- sziku69: Fűzzük össze a szavakat :)
- Meggyi001: A végtelenbe...
- Invázió egy novellában 3-4. (Update) +5. fejezet! (18+ nyelvezet)
- Luck Dragon: Asszociációs játék. :)
- Magga: PLEX: multimédia az egész lakásban
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- LordAthis: Mission: Imposible? - Együtt 1333 és 1600 MHz, ECC/Non-ECC
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
veterán
Függvénnyel nem, de egy rövid makróval igen.
Másold modulba a makrót. Állj a cellára, is indíthatod.
Ha sok ilyen színesítendő cellád van, akkor tehetsz a gyorselérési eszköztárra a makróhoz egy ikont.Sub Piros()
Dim elso As Integer, hossz As Integer
elso = InStr(ActiveCell, "(") + 1
hossz = Len(ActiveCell) - elso
ActiveCell.Characters(Start:=elso, Length:=hossz).Font.Color = RGB(255, 0, 0)
End SubNagyon sok színezendőhöz érdemes egy ciklust írni.
-
föccer
nagyúr
Jelöld ki a felső sort és állíts be rá autoszűrőt. Válaszd ki a megfelelő dátumot és a kategória szerint rakd sorrendbe, majd részösszeggel tudod csoportosan összegezni az adott tételeket.
Lehet egyszerűbb lenne külön vezetni minden hónapra a táblázatot és akkor egy szumha megoldást jelent.
üdv, föccer
-
Sasos
senior tag
Lehet. Ha - az előző példánál maradunk - az A1 cellára teszel egy szűrőt. Majd az "Adatok" fülön "Rendezés és szűrés" opciónál kiválasztod a "speciális" lehetőséget. A "Csak az egyedi rekordok megjelenítése" előtti jelölőnégyzetbe pipa, és már jó is. Így az A oszlopban nincs ismétlődés és közben a C-ben látod, hogy melyik hányszor szerepel az A-ban.
-
Sasos
senior tag
-
Delila_1
veterán
Tedd be a képeket, ahogy sikerül, és egy makróval az összeset egyszerre méretezheted.
Sub Egyforma_meret()
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 77.25
Selection.ShapeRange.Width = 113.25
Application.CutCopyMode = False
End SubA szélesség, és magasság értéket változtathatod, hogy a kívánt értéket elérd. Ha egész számot adsz, a végére #-ot tegyél, pl. 83#.
Új hozzászólás Aktív témák
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Antivírus szoftverek, VPN
- HIBÁTLAN iPhone 15 Pro Max 256GB Natural Titanium -1 ÉV GARANCIA -Kártyafüggetlen, 100% Akkumulátor
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RTX 5060Ti 16GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 14 Pro Max 256GB Purple -1 ÉV GARANCIA -Kártyafüggetlen, MS3932, 100% Akkumulátor
- Okosóra felvásárlás!! Samsung Galaxy Watch 6, Samsung Galaxy Watch 7, Samsung Galaxy Watch Ultra
- CSX 2x2GB (4GB) DDR 800 MHz kit
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi



Fferi50
