- Xiaomi 14 - párátlanul jó lehetne
- Samsung Galaxy S24+ - a személyi asszisztens
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Samsung Galaxy S23 Ultra - non plus ultra
- iPhone topik
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Fotók, videók mobillal
Hirdetés
-
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
ú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
Hirdetés
Fferi50- Apple asztali gépek
- Az AI megeszi a szoftverpiacot?
- Fujifilm X
- Nők, nőügyek (18+)
- Autós topik
- Intel Core i3 / i5 / i7 / i9 10xxx "Comet Lake" és i3 / i5 / i7 / i9 11xxx "Rocket Lake" (LGA1200)
- WoW avagy World of Warcraft -=MMORPG=-
- Macska topik
- Windows 11
- Kerékpárosok, bringások ide!
- További aktív témák...
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Vírusirtó, Antivirus, VPN kulcsok
- Telefon felvásárlás! Samsung Galaxy A15, Samsung Galaxy A25, Samsung Galaxy A35, Samsung Galaxy A55
- Telefon felvásárlás!! Samsung Galaxy Note 10+/Samsung Galaxy Note 20/Samsung Galaxy Note 20 Ultra
- AKCIÓ! Intel Core i9 14900K 24 mag 32 szál processzor garanciával hibátlan működéssel
- Honor 70 128GB, Kártyafüggetlen, 1 Év Garanciával
- HP EliteBook 830 G8 i5-1135G7 16GB 256GB 1 év garancia
Állásajánlatok
Cég: FOTC
Város: Budapest