Hirdetés
- iPhone topik
- Bemutatkozott az Oppo kamerás csúcsmodellje
- Google Pixel 10 Pro XL – tíz kicsi Pixel
- VoLTE/VoWiFi
- Xiaomi 15T Pro - a téma nincs lezárva
- Egy picit megpihen az iPhone a 200 megapixeles váltás előtt
- Xiaomi 17 Ultra - jó az optikája
- Xiaomi 14T - nem baj, hogy nem Pro
- Samsung Galaxy A52s 5G - jó S-tehetség
- Nothing Phone 2a - semmi nem drága
-
Mobilarena
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
csendes tag
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
Hirdetés
Fferi50- Nos igen, ilyen is lehet egy notebook…
- Ha Darwinra hallgat az AI, nehéz lesz megállítani
- Crimson Desert
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Kompakt vízhűtés
- iPhone topik
- Canon MILC: EOS R és M topik
- Kerékpárosok, bringások ide!
- Luck Dragon: Asszociációs játék. :)
- The Division 2 (PC, XO, PS4)
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- Játékkulcsok olcsón: Steam, Uplay, GoG, EA, Xbox stb.
- PC Szervizeket, Gépépítőket keresek B2B szoftver partnerségre (E-számlával)
- HP. Laptop. i5. Model: 15-da1002nq
- Csere-Beszámítás! Apple Macbook Pro 2013 vége! 512GB SSD, I7, 16GB DDR3, Intel Iris Pro! Olvass!
- Honor X7 128GB, Kártyafüggetlen, 1 Év Garanciával
- ASTRO A50 WIRELESS HEADSET + BASE STATION 4th gen. fejhallgató
- ThinkPad T14s Gen 2 i5-1135G7 16GB 512GB FHD 1 év garancia
- Keresünk iPhone 13/13 Mini/13 Pro/13 Pro Max
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest