Hirdetés
- bb0t: Ikea PAX gardrób és a pokol logisztikája
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- GoodSpeed: Haworth Aloha – egy nemcsak szavakban ergonomikus szék
- sziku69: Szólánc.
- GoodSpeed: Márkaváltás sok-sok év után
- eBay-es kütyük kis pénzért
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- ldave: New Game Blitz - 2025
-
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
-
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- LG 45GR95QE - 45" Ívelt OLED / 2K WQHD / 240Hz 0.03ms / NVIDIA G-Sync / FreeSync Premium / HDMI 2.1
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9700X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- 2db x Green Cell UPS 2000VA 1200W teljesítményálló tartalék tápegység 2000VA 1200W
- BESZÁMÍTÁS! ASUS H510M i7 10700 16GB DDR4 512GB SSD RTX 2070 SUPER 8GB AeroCool Quantum Mesh 650W
- HP Omen gamer szék Citadel
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest