Hirdetés
- Százmilliárd dolláros AI-fegyverkezésbe kezdett az Amazon és a Google
- Így tüzelt el százbillió forintot az AI a héten
- Kétféle módon harcol a forró helyzetekkel szemben az ASUS új, M.2-es SSD háza
- Mérföldkő a szilárdtest akkuknál: fontos lépést tett a QuantumScape
- Degeneratív kapcsolóval készül a Firefox
- OLED TV topic
- TCL LCD és LED TV-k
- Projektor topic
- AMD Navi Radeon™ RX 9xxx sorozat
- Nyakunkon a Mangmi combos kis kézikonzolja, a Pocket Max
- Fejhallgató erősítő és DAC topik
- Képhibák a GeForce-on? Az NVIDIA szerint egy Windows frissítés okozza
- NVIDIA GeForce RTX 3060 Ti / 3070 / 3070 Ti (GA104)
- Megint vizsgálja a leégő Ryzen ügyét az ASRock, amit elvileg már javítottak
- Milyen asztali (teljes vagy fél-) gépet vegyek?
-
PROHARDVER!
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
- OLED TV topic
- TCL LCD és LED TV-k
- Cyberpunk 2077
- Revolut
- Milyen NAS-t vegyek?
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Projektor topic
- AMD Navi Radeon™ RX 9xxx sorozat
- Hosszú premier előzetest kapott az Arknights: Endfield
- pfSense - Avagy az okosított házirouter
- További aktív témák...
- Antivírus szoftverek, VPN
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- HIBÁTLAN iPhone 13 Mini 256GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS4428
- Mio Star Coffe One Milk Automata kávégép 6 hónap Garancia Beszámítás Házhozszállítás
- Xbox Game Pass Ultimate előfizetések kedvező áron
- Xiaomi Redmi 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- EREDETI NINTENDO Pokemon Go Plus autocatcher dobozban eladó
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50

