- iPhone topik
- AI-ra cserélte a concierge szolgáltatást a Vertu
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- Hamarosan robottelefon figyelheti minden mozdulatod
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Honor 200 - kétszázért pont jó lenne
- Yettel topik
- Motorola Edge 50 Neo - az egyensúly gyengesége
- OnePlus 8T – fazonigazítás
-
Mobilarena
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
- GYÖNYÖRŰ iPhone 15 Pro Max 256GB Black Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3067
- GYÖNYÖRŰ iPhone 12 mini 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3327, 94% Akkumulátor
- iKing.Hu - Apple iPhone 14 Pro Max Stílusos erő, Pro kamera rendszerrel! 128GB - 3 hónap gari!
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő