Hirdetés
- talmida: Változások 2. rész
- GoodSpeed: Mutasd magad topic!
- MasterDeeJay: RAM gondolatok: Mennyi a minimum? DDR3 is jó?
- aquark: Zsebszámológépek
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- GoodSpeed: Daikin FTXF35E / RXF35F Sensira 3,3 kW Inverteres klíma - a Sztori
- gban: Ingyen kellene, de tegnapra
-
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
-
Fferi50
Topikgazda
válasz
föccer
#50961
üzenetére
Szia!
Csak ötletek:
Az automatikus számolás kikapcsolása:
Application.Calculation=xlCalculationManual
Visszakapcsolás a végén:
Application.Calculation=xlCalculationAutomatic
Képernyő frissítés kikapcsolása:
Application.ScreenUpdating=False
Visszakapcsolás:
Application.ScreenUpdating=True
A StatusBar frissítéshez be kell tenni egy DoEvents utasítást, mielőtt módosítod a szövegét.
Esetleg szűrő bekapcsolással elrejteni azokat a sorokat, amelyeket nem kell másolni, majd a látható cellákat másolni.
A leggyorsabb egyébként szerintem a tartomány begyűjtése egy tömbbe, majd a tömb kiírása a célterületre. (Pl. Dim a() As Variant: a=Range("A1 : C4").Value : kapsz egy 3x4-es tömböt, ezek értékeit írhatod be a célcellába - tehát egyenként vizsgálható, hogy ki kell-e írni vagy sem.) Mivel a tömb a memóriában van, a vizsgálat is nagyon gyors. A legtöbb időt a kiírás igényli, de ez sem kibírhatatlan.
Esetleg megmutatnád a másoló makródat, hátha abból is lehet ötletet kapni.
Üdv.
Új hozzászólás Aktív témák
- Sweet.tv - internetes TV
- Pedzegeti az új Xbox irányát a Microsoft
- Renault, Dacia topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Kormányok / autós szimulátorok topikja
- talmida: Változások 2. rész
- Tőzsde és gazdaság
- Samsung Galaxy S25 - végre van kicsi!
- Kerékpárosok, bringások ide!
- Hobby rádiós topik
- További aktív témák...
- MS SQL Server 2016, 2017, 2019
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- 18 éve! Billentyűzet magyarítás magyarosítás. Festés vagy lézerezés és egyebek! 3 lehetőség is van.
- HP EliteBook 840 G9 i7-1265U 16GB 512GB 14" FHD+ 1 év teljeskörű garancia
- HIBÁTLAN iPhone 13 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS4243, 100% Akksi
- REFURBISHED és ÚJ - HP USB-C Dock G5 (5TW10AA) - 3x4K felbontás
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50