-
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
-
föccer
nagyúr
válasz
TigerCat
#53936
üzenetére
Makróval viszonylag könnyű.
Egy gombhoz kötöttem a makró indítását, a Munka2 A1 cellába írtam be, hogy mennyivel növelje a szélességet.Az összes, Munka1 lapon lévő oszlopot autofit-re állítja, majd az összes használt oszlop méretéhez hozzáadja a munka2 A1 cellába beírt értéket.
Sub Szelesseg_igazitas()Dim i As IntegerWorksheets("Munka1").UsedRange.Columns.AutoFitFor i = 1 To Sheets("Munka1").UsedRange.Columns.CountWorksheets("Munka1").Columns(i).ColumnWidth = Worksheets("Munka1").Columns(i).ColumnWidth + Sheets("Munka2").Range("A1").ValueNextMsgBox "Kész"End Sub -
Fferi50
Topikgazda
válasz
TigerCat
#53748
üzenetére
Szia!
Szerintem csak makróval fog menni a nyomtatás, a Quality paramétert kell állítani:ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"Filenév", Quality:=xlQualityMinimum, _IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _False
Itt találsz helpet: [link]
Üdv. -
Fferi50
Topikgazda
válasz
TigerCat
#50844
üzenetére
Szia!
Az egyik lehetőség a szűrők használata. A szövegszűrőknél alkalmazd a tartalmazza, kezdete és nem tartalmazza, nem kezdete opciókat a terméknek megfelelően.
Az autós példádnál maradva pl: Kezdete Opel Astra ötajtós és nem tartalmazza metálfény, majd az üzemanyag oszlopon a benzin aztán a dízel opciót.
A szűrt állományon lehúzhatod az etalon oszlop értékeit.
Ezután szűrés változtatás... lépések ismétlése.
A másik lehetőség:
Segédoszlop készítése a releváns megnevezés és az üzemanyag összefűzésével az árjegyzéken.
Ezután Index függvény B : H (segédoszlop), HOl.VAN függvény a B oszlopban levő típus megfelelő része az üzemanyaggal összefűzve keresése a segédoszlopban, a D, E, F, G oszlopokban.
Pl. A segédoszlopban szerepel Opel Astra ötajtós benzin.
Keresés:
A D21 cella képlete:=INDEX($B$3:$G$18;HOL.VAN("Opel Astra ötajtós " & C21;$H$3:$H$18;0);3)
A keresési érték megállapítása termékenként változik sajnos.
Ezért javasoltam inkább a szűrést.
Üdv. -
Mutt
senior tag
válasz
TigerCat
#42021
üzenetére
Szia,
Mac-en nagyon apró, így ha elmentem 125%-on, az túl nagy Windows alatt és fordítva.
Láttam választ, de nem láttam OS ellenőrzést, amire az Application.OperatingSystem függvény használható VBA-ban.
Private Sub Workbook_Open()
If Application.OperatingSystem Like "Windows*" Then
ActiveWindow.Zoom = 100
Else
ActiveWindow.Zoom = 150
End If
End Subüdv
-
Bobrooney
senior tag
válasz
TigerCat
#42077
üzenetére
Makróbarát Excel munkafüzetként mentsd el. De elvileg mentés előtt figyelmeztet is hogy ha nem változtatsz fájl formátumot akkor elvesznek a makróid.
Szóval Fájl -> Mentés másként -> xlsm formátumba mentsd el.
Ha újra nyitod figyelj oda a makróbeállításokra (pl. ne tiltsa le azonnal).Remélem tudtam segíteni.
-
Fferi50
Topikgazda
válasz
TigerCat
#42048
üzenetére
Szia!
Az Excel munkalap nézetből az Alt+F11 gomb visz át a VBA (makrós) ablakba.
Az ablakban normál esetben van egy Projekt rész. Itt láthatod a munkalapjaid és hozzá a Thisworkbook - ot. Arra ráállsz - jobb egérgomb -View Code
Megjelenik a jobb oldalon a kódlap. Oda másold be.
Sajnos sem 365 sem Mac nincs nekem, így nem tudom kipróbálni.Üdv.
-
Új hozzászólás Aktív témák
Fferi50- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- Kuriózum: Ozark Trail (amerikai) fejlámpa 600 lumen
- iPhone 15 128GB 100% (1év Garancia)
- Dell Optiplex/Precision MT/SFF 3430, 3050, 3060, 3070, 5070, 7060/ 7.-8.-9.gen/ SZÁMLA- GARANCIA
- LG 65C3 - 65" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest