Hirdetés
- SzDavid99: Van 20 perced? Akkor tanulj meg koreait olvasni!
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- antikomcsi: Való Világ: A piszkos 12 - VV12 - Való Világ 12
- Amazon Kindle JailBreak
- sidi: 386-os Chicony gázplazma laptop memóriabővítése
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Garry84: Sumák aprós?
- Elektromos rásegítésű kerékpárok
Hirdetés
(használd a CYBSEC25PH kuponkódot további 20 ezer ft kedvezményért!)
-
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
válasz
konyi79 #20739 üzenetére
Egyszerűen megoldhatod. Rögzítesz egy makrót a csökkenő sorrend beállításához, és kiteszel hozzá egy gombot. Egy másik gombhoz az emelkedő sorrendhez rögzített makrót rendeld.
A makróban a mindenkori utolsó sorig kell kiterjesztened a rendezéseket. Ehhez fel kell venned egy változót a makró első sorában, legyen mondjuk usor:
Dim usor As LongA következő sorban meghatározod az értékét:
usor=WorksheetFunction.CountA(Columns(1))A Columns(1) az A oszlop, ehelyett írhatsz másik oszlopot, ahol biztosan ki van töltve minden sor, mert a CountA a Darab2 függvény megfelelője. Azt adja meg, hogy a jelölt területen (most 1 oszlopban) hány nem üres cella van.
Mikor ez megvan, a rögzített makrókban átírod a területet. Például olyan találsz benne, hogy Range("A1:H1524"), akkor ezt átírod Range("A1:H" & usor)-ra.
Új hozzászólás Aktív témák
- Apple iPhone Air - almacsutka
- Futás, futópályák
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Motorola ThinkPhone - gondold végig kétszer!
- World of Tanks - MMO
- Lexus, Toyota topik
- Milyen légkondit a lakásba?
- Battlefield 6
- BestBuy topik
- További aktív témák...
- LG 34GN850P-B - 34" Ívelt Nano IPS - 3440x1440 - 160Hz 1ms - G-Sync - FreeSync - HDR 400
- Dell Latitude 5430 i7-1255U 16GB 512GB 14" FHD 1 év garancia
- Apple Watch series 4 GPS / 1 Hó Garancia / 85% akku
- Gamer PC- Számítógép! Csere-Beszámítás! I7 4790K / 16GB DDR3 / RX 5700XT 8GB / 512GB SSD
- AKCIÓ! Nintendo Switch OLED 64GB fehér játékkonzol garanciával hibátlan működéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest