-
Fototrend
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
-
Pakliman
tag
Egy lehetséges megoldás:
Sub Makró1()
Dim us As Long 'utolsó sor
Dim sor As Long
Dim osz As Long
Dim odb As Long 'figyelendő oszlopok száma
Dim nüdb As Long 'nem üres cellák a sorban
Dim ü As Long 'hány oszlopra van a következő nem üres cella
Dim t
t = Timer
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
'21121 sor
'soronként átlag 1,4 db üres cella
'Proci: Ryzen 5 2600
'16GB RAM
'Futási idő: 9,84 másodperc
us = Columns("L").Rows(Cells.Rows.Count).End(xlUp).Row
odb = Range(Columns("L"), Columns("Q")).Columns.Count
For sor = 1 To us
nüdb = Application.CountIf(Range(Cells(sor, "L"), Cells(sor, "Q")), "<>")
If nüdb < odb Then
For osz = Columns("L").Column + 1 To Columns("Q").Column - 1
If IsEmpty(Cells(sor, osz)) Then
If Application.CountIf(Range(Cells(sor, osz + 1), Cells(sor, "Q")), "<>") > 0 Then
'Ha van egyáltalán még átpakolható adat...
'Ezen vizsgálat nélkül 12,2 másodpercig fut a 9,84 helyett!!
ü = 1
Do While IsEmpty(Cells(sor, osz + ü)) And (osz + ü <= Columns("Q").Column - 1)
ü = ü + 1
Loop
Cells(sor, osz) = Cells(sor, osz + ü)
Cells(sor, osz + ü).ClearContents
Else
Exit For
End If
End If
Next osz
End If
Next sor
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
Debug.Print Round(Timer - t, 2)
End SubA futás ideje nagymértékben függ az üres cellák számától
-
maestro87
őstag
Az anyjuk pi****át.
Így már működik! Ez is csak a hülye win8 óta van, a win7 nem rinyált ennyit mint ez. Ott ha rendszergazdaként léptem be akkor rendszergazda voltam és engedélyezett mindent, most meg rendszergazdai jogoknál is mindenhez engedélyt kér...totál értelmetlen. De érdekes, mert ha meg netről szedett doc-ot akarok megnyitni, akkor ott meg általában az ablakban egy sárga információs szalagban kérdezi, hogy engedélyezem-e a szerkesztést vagy sem, és nem kevés memóriára hivatkozik...
Köszi szépen a segítséget!
Csak elég sz*r így, hogy egyenként kell majd a tiltásokat feloldani... -
-
Caipi
tag
Szia,
A képlettel rendben vagyok, de nekem számolnom kell, hogy honnan vegye az értéket, mivel, ha változik a táblázat sorainak száma, akkor, ha fix számot adok, már fals adat kerül az összesítőbe...
A darab2()-vel ezért számoltatom ki,hogy éppen melyik sorból kell, hogy kivegye az adatot.Üdv,
Caipi -
lallalla
újonc
Köszi a marathon képletet, kissé gyanítom, hogy hogyan működne, de beillesztettem, és nem működik. Egyébként a Beaufort skála 0-tól 12-ig megy, a 0 a teljes szélcsend, a 12, pedig a tornádó, amit mindent, amit ér, tarol.
A 12-nél nagyobb már értelmetlen, mint a földrengéseknél is a max. érték, amikor annak a hatása már oly mérvű, hogy a táj-átrendezésnél rosszabb már nem lehet...
A skála így néz ki:Bft km/ó nmil/h (nautical miles/hour)
min max min max
0 0 0 0 0
1 1 5 1 3
2 6 11 3 6
3 12 19 6 10
4 20 28 11 15
5 29 38 16 21
6* 39 49 21 26 sárga jelzés (lassan kivonulni a vízről, pl. Balaton)
7 50 61 27 33
8** 62 74 33 40 piros jelzés (minden rosszra készülj fel, vitorlákat be, ha kikötő nincs...)
9 75 88 40 48
10 89 102 48 55
11 103 117 56 63
12 118 133 64 72 -
Zomb€€
őstag
Köszi a választ, időközben megoldottam.
Beírom ide is, hátha valakinek jól jön.
Találtam egy oldalt, amit meg lehet hívni getparameterrel, és egyből kész a qr kód.
http://api.qrserver.com/v1/create-qr-code/?data=
Értelem szerűen a "=" jel után kell írni a kódolandó szöveget. -
ZsizsiZsozsó
tag
Szia!Köszönöm a segítséget az online viewerrel gond nélkül megjelenik a táblázat, van 2007-es officem, és ott is gond nélkül megtudom nyitni a programot. De nekem az lenne a fontos, hogy a 2013-as officeban tudjam megnyitni 100%-osan az office 2007-ben szerkesztett excel fájlokat, ugyanis munkahelyen csak az van. Tehát nekem azért lenne fontos, hogy a 2013-as office nyissa meg. Ne kelljen konvertálnom stb, ezért gondoltam valami alapbeállításra először, mert a mostani excel fájlomon kívül van még vagy 30db 2007-es excel fájl amit hasonló módon hibásan nyit meg a program.
Így már működik! Ez is csak a hülye win8 óta van, a win7 nem rinyált ennyit mint ez. Ott ha rendszergazdaként léptem be akkor rendszergazda voltam és engedélyezett mindent, most meg rendszergazdai jogoknál is mindenhez engedélyt kér...totál értelmetlen. De érdekes, mert ha meg netről szedett doc-ot akarok megnyitni, akkor ott meg általában az ablakban egy sárga információs szalagban kérdezi, hogy engedélyezem-e a szerkesztést vagy sem, és nem kevés memóriára hivatkozik...
Más ötlet?
Üdültem.
Új hozzászólás Aktív témák
Fferi50- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- One otthoni szolgáltatások (TV, internet, telefon)
- Arc Raiders
- Autós topik
- Luck Dragon: Asszociációs játék. :)
- Ez a mondat angolul?
- Gyúrósok ide!
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Linux Mint
- Milyen Android TV boxot vegyek?
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- MS SQL Server 2016, 2017, 2019
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- HP ProDesk 600 G5 i5-9500 16GB 512GB 1 év garancia
- Gombászkönyvek egyben
- ÁRGARANCIA!Épített KomPhone Ultra 7 265KF 32/64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
- Dell Latitude 5420 14" Touchscreen i5-1135G7 16GB 512GB 1 év garancia
- 209 - Lenovo Yoga Pro 7 (14APH8) - AMD Ryzen 7 7840HS, no GPU
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest