-
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
-
#3634
Delila_1
veterán
FehérHolló
#3633
Delila_1
veterán
válasz
FehérHolló
#3633
üzenetére
Kipróbáltam. Ha meghagyod az eredeti Range("I" & Target.Columns).Select-et a
Cells(Target.Row, 9).Select helyett, akkor hiba nélkül működik.Akkor most véletlenül kiderült, hogy a formai különbségnek látszó eltérés a működésben is mást eredményt ad.
Jó szórakozást!
-
#3631
Delila_1
veterán
FehérHolló
#3628
Delila_1
veterán
válasz
FehérHolló
#3628
üzenetére
Itt egy kis makró, ami a fájl bezárásakor rákérdez a rendezésre (I oszlop szerint):
Sub auto_close()
If MsgBox("Akarod rendezni mentés előtt az adatokat?", vbYesNo) = vbYes Then
Range("I2").Select
Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
ActiveWorkbook.Save
End SubFontos, hogy auto_close legyen a neve, mert akkor automatikusan végrehajtódik záráskor.
Ha még ugyanarról a fájlról van szó, amelyikben B:G oszlopokban van adat, és I-be íródik a dátum, akkor gondoskodni kell a H oszlop kitöltéséről, hogy a rendezésbe belevegye az előző oszlopokat is. Ha üres oszlop van közöttük, csak az I oszlopot rendezi.
A H-ba, ha egyébként nem lenne ott adat, a targetes makróval íratunk egy pontot. Az
If (Target.Column >1 kezdetű sor után írd be:
Cells(8,Target.Column)="."Ha nincs fejléced, a Header:=xlGuess-t javítsd át Header:=xlNo-ra.
-
#3630
Delila_1
veterán
FehérHolló
#3626
Delila_1
veterán
válasz
FehérHolló
#3626
üzenetére
Látom, egy kulcs szerint akarsz rendezni. Szerintem sem érdemes makrót futtatni, a kulcsot képező oszlopban állva egyetlen kattintás, és kész, ki sem kell jelölni a táblát.
Legfeljebb zárás előtt egy inputboxban (vagy msgboxban) rákérdezel, hogy akar-e rendezni, és igen esetén egyszer lefuttatni. -
#3627
lapa
veterán
FehérHolló
#3626
lapa
veterán
válasz
FehérHolló
#3626
üzenetére
próbáld meg kétdimenziós tömbbe (array) rakni, korábban volt róla szó. utána azon futhat le a két for-next. nagyjából két nagyságrenddel meggyorsítja.
-
#3620
Delila_1
veterán
FehérHolló
#3619
Delila_1
veterán
válasz
FehérHolló
#3619
üzenetére
Függvény nincs rá, rögzíts makróban egy sorbarendezést, és azt vesézd ki.
-
#3619
FehérHolló
veterán
FehérHolló
#3617
FehérHolló
veterán
válasz
FehérHolló
#3617
üzenetére
Megoldva. Cells(CurrRow, CurrCol).Select.
(Változóknak van érték adva.)Sorba rendezés milyen függvénnyel megy? Kezdek belemelegedni.
-
#3616
Delila_1
veterán
FehérHolló
#3614
Delila_1
veterán
válasz
FehérHolló
#3614
üzenetére
A #3600-nál azt mondtad, hogy tökéletesen működik. Másik gépen nem megy?
-
#3615
Delila_1
veterán
FehérHolló
#3614
Delila_1
veterán
válasz
FehérHolló
#3614
üzenetére
A "Nem tudom"-ot? Nagyon szívesen, máskor is.
-
#3612
Delila_1
veterán
FehérHolló
#3611
Delila_1
veterán
válasz
FehérHolló
#3611
üzenetére
Nem tudom.
-
#3607
Delila_1
veterán
FehérHolló
#3602
Delila_1
veterán
válasz
FehérHolló
#3602
üzenetére
Az Eszközök/Bővítménykezelőben kapcsold be az Analysis ToolPak-ot és az Analysis ToolPak-VBA-t. Az első egy halom új függvényt ad, amiket a munkalapodon alkalmazhatsz, a másik ugyanezt adja a VBA felületen, amiktől értelmezhetővé válnak a makrók utasításai az Excel számára.
-
#3601
Delila_1
veterán
FehérHolló
#3600
Delila_1
veterán
válasz
FehérHolló
#3600
üzenetére
Szívesen.
-
#3599
Delila_1
veterán
FehérHolló
#3597
Delila_1
veterán
válasz
FehérHolló
#3597
üzenetére
Ez, a laphoz rendelve azt csinálja.
Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column > 1 And Target.Column < 8) Then
Range("I" & Target.Row).Select
ActiveCell.FormulaR1C1 = "= TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Application.CutCopyMode = False
End If
End Sub -
#3582
Delila_1
veterán
FehérHolló
#3577
Delila_1
veterán
válasz
FehérHolló
#3577
üzenetére
Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column > 3 And Target.Column < 8 And Target.Row < 11) Then
Range("A1").Select
ActiveCell.FormulaR1C1 = "= TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Application.CutCopyMode = False
End If
End SubEz a kis makró a munkalaphoz rendelve (lapfülön jobb klikk, kód megjelenítése, VBE-ben a jobb oldalon kapott üres lapra másolva) azt csinálja, hogy ha a D1:G10 tartományban módosul az adat, az A1-be beírja az aktuális dátumot a MA() függvénnyel, és rögtön át is írja a függvényt az értékére.
-
#3581
Delila_1
veterán
FehérHolló
#3577
Delila_1
veterán
válasz
FehérHolló
#3577
üzenetére
Targettel kellene megoldani, a laphoz rendelt makróval.
Új hozzászólás Aktív témák
Fferi50- Formula-1
- Házimozi haladó szinten
- A fociról könnyedén, egy baráti társaságban
- Sony MILC fényképezőgépcsalád
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- MasterDeeJay: Mi ez a pici videókártya? AMD E9173 teszt
- Autós topik
- Automata kávégépek
- gban: Ingyen kellene, de tegnapra
- További aktív témák...
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Microsoft és egyéb dobozos retro szoftverek
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Dell Latitude 7490 14" FHD IPS, i5 8250, 8-16GB RAM, SSD, NFC, jó akku, számla, 6 hó gar
- Vegyes , 3 db memoria egyben vihető, teszteletlen.
- Sima Vs.Windows Logitech Mx keys s plus és hagyományos Mx keys magyar bemutatása. Új videó linkkel
- GYÖNYÖRŰ iPhone 14 Pro Max 128GB Deep Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3791
- Xeon E5 1650 v3, 2680 v3, 2690 v3 processzorok
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest