Hirdetés
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- GoodSpeed: Te hány éves vagy?
- Magga: PLEX: multimédia az egész lakásban
- gban: Ingyen kellene, de tegnapra
- vrob: Próbálkozás 386 alaplap újraélesztésre
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- ldave: New Game Blitz - 2026
- Toomy: FOXPOST: régen jó volt, de már jobban jársz, ha elfelejted
- sziku69: Fűzzük össze a szavakat :)
-
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
-
válasz
kraftxld
#5532
üzenetére
Hali!
Konkrétan beállítási lehetőségről nem tudok, csak egy megoldás, amit én is gyakran használok, nevezetesen, hogy meg kell jeleníteni a vágólapot.
Egyszerűen csak add hozzá a Vágólap/Clipboard parancsikont a gyorselérésű eszköztárhoz, és már látható is lesz a vágólap tartalma, ahonnan akárhányszor beilleszthető egy vagy több adat is. [link]Fire.
-
válasz
kraftxld
#4794
üzenetére
Hali!
Kösz a választ, én is rengeteget kutakodtam, szerintem sem lehet...
Csak az zavar az egészbe, hogy egy nagy erőforrás-zabáló alkalmazás az Office 2007, ami egyáltalán nem baj, mert van mögötte tartalom is.
De egy ilyen apró dolgon, mint ez a max 31 karakteres munkalapnév, nem igazán kellene spórolni....
Na majd megkérdem MS barátunkat, hogy mi is a helyzet...
Mégegyszer kösz a "megerősítést"...

Fire.
-
Delila_1
veterán
válasz
kraftxld
#3543
üzenetére
Vártam, hogy Sonar hátha megtalálja. Az alábbi makró csv-k megnyitásához készült, írd át dbf-re. Régebben írtam, és nem biztos, hogy ezen a fórumon.
Sub csv()
Const utvonal = "C:\Adatok\"
Dim FN As String, WB As Workbook
ChDir utvonal
FN = Dir(utvonal & "*.csv", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Set WB = Workbooks.Add
Workbooks.Open Filename:=FN
nev = Left(FN, Len(FN) - 3) & "xls"
'Ide írd be, amit az xls-ben el akarsz végeztetni
ActiveWorkbook.SaveAs Filename:=utvonal & nev, FileFormat:=xlNormal
WB.Close False 'Ez azonnal be is zárja a változatlan csv-t.
ActiveWindow.Close 'Ez meg a csv-hez képest módosított xls-t
End If
FN = Dir()
Loop Until FN = ""
End Sub -
lapa
veterán
válasz
kraftxld
#1241
üzenetére
egy ilyet csináltam proof-of-concept gyanánt:
sheet1 kódja:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range(Cells(Target.Row, 2), Cells(Target.Row, 3)).Copy
Cancel = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Paste Destination:=Range(Cells(Target.Row, 1), Cells(Target.Row, 2))
Cancel = True
End Sub
ez duplakattra másol, jobbkattra beilleszt. persze így mind a duplakatt, mind a jobbklikk csak erre használható. egyelőre nem tudtam elérni, hogy valami módon ellenőrizze a vágolap tartalmát, így egy eventbe sem tudtam belezsúfolni. ha valaki ki tudja így egészíteni, kíváncsi lennék rá... -
matekmatika
tag
válasz
kraftxld
#1241
üzenetére
''User kattint egy sorra (forrássor) kattint egy gombra ami futtatja a makrót''
Ez idáig ok, de
''kattint egy sorra (célsor) majd átmásolja a makró a forrássor B oszlopában lévő elemet a célsor A oszlopába''
Egy makro futása közben nem hiszem, hogy engedne az bárhová is kattogtatni. Max egy inputablakba be lehetne kérni, hogy melyik sorba akarod beilleszteni.
Vagy kellene még egy parancsgomb amely a beillesztést végző makrot indítaná az aktívvá tett cella alapján.
Viszont mindkettő megoldásnál gyorsabb szerintem a jobb klikk másolás - jobb klikk beillesztés variáció.
Új hozzászólás Aktív témák
- Hobby rádiós topik
- Okos Otthon / Smart Home
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- HiFi műszaki szemmel - sztereó hangrendszerek
- Túra és kirándulás topic
- PlayStation 5
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Ford topik
- Milyen légkondit a lakásba?
- Arc Raiders
- További aktív témák...
- 10 Darab ÚJ PC Játékszoftver
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Eladó Steam kulcsok kedvező áron!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- BESZÁMÍTÁS! Asus H370 i5 9600K 16GB DDR4 250GB SSD 1TB HDD GTX 1050 Ti 4GB Rampage SHIVA 400W
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
- Akció! HP ZBook Firefly 14 i7-1165G7 16GB 512GB Nvidia Quadro T500 4GB 14" FHD 1 év garancia
- GYÖNYÖRŰ iPhone X 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3586
- Pokémon Trading Card Game csomag BONTATLAN
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest



Fferi50
