- Apple Watch Ultra - első nekifutás
- Yettel topik
- Apple Watch
- Honor 400 Pro - Gép a képben
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Honor 200 Pro - mobilportré
- Erős, de energiahatékony lesz a Dimensity 9500
- Samsung Galaxy A56 - megbízható középszerűség
- Google Pixel topik
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
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
-
slashing
senior tag
válasz
Mr.Csizmás #24525 üzenetére
használd a sor vagy oszlop függvényt attól függően merre kell húzni a képletet
pl.: OSZLOP(A1) ennek az eredménye 1
csak próbaképpen leírom de nem tudom kipróbálni:
=ELTOLÁS(Munka2!$AK$1;HOL.VAN(Munka1!$D3279;Munka2!$AK$2:$AK$6268;-1)-(OSZLOP(A1)-1);1)
-
válasz
Mr.Csizmás #10686 üzenetére
Oksa, akkor ennyi lenne, felkommenteztem, ahol kell, remélem egyértelmű.
Private Function FSCD_Header_Footer_Changer()
'hol találhatóak az Excel munkafüzetek
Const MY_PATH = "D:\mrcsizmas\"
'mi a kiterjsztésük
'(ez így azért is jó, mert az xlsx fájlok is olvashatók)
Const MY_EXTENSION = "xls"
Const MY_HEADER_LEFT = "Fejlécben BALRA kerülő szöveg"
Const MY_HEADER_CENTER = "Fejlécben KÖZÉPRE kerülő szöveg"
Const MY_HEADER_RIGHT = "Fejlécben JOBBRA kerülő szöveg"
Const MY_FOOTER_LEFT = "Láblécben BALRA kerülő szöveg"
Const MY_FOOTER_CENTER = "Láblécben KÖZÉPRE kerülő szöveg"
Const MY_FOOTER_RIGHT = "Láblécben JOBBRA kerülő szöveg"
'csak a láblécek legyenek módosítva
'False értékre állítva, a fejléceket is módosíthatod
Const MY_ONLY_FOOTER = True
Dim My_WorkBook As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
FName = Dir(MY_PATH & "*." & MY_EXTENSION)
Do While Len(FName) > 0
Set My_WorkBook = Workbooks.Open(MY_PATH & FName)
With My_WorkBook
For i = 1 To .Worksheets.Count
.Worksheets(i).PageSetup.LeftFooter = MY_FOOTER_LEFT
.Worksheets(i).PageSetup.CenterFooter = MY_FOOTER_CENTER
.Worksheets(i).PageSetup.RightFooter = MY_FOOTER_RIGHT
If Not MY_ONLY_FOOTER Then
.Worksheets(i).PageSetup.LeftHeader = MY_HEADER_LEFT
.Worksheets(i).PageSetup.CenterHeader = MY_HEADER_CENTER
.Worksheets(i).PageSetup.RightHeader = MY_HEADER_RIGHT
End If
Next i
.Save
.Close
End With
Set My_WorkBook = Nothing
FName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox ("Az összes munkafüzet módosítása sikeresen megtörtént.")
End FunctionUI: Először azért készíts másolatot a módisítani kívánt fájlokról, biztos , ami biztos...
[ Módosította: Grafiqs ]
-
válasz
Mr.Csizmás #10683 üzenetére
Egy kérdésem lenne, aztán gyorsan megírom, szóval a fejléc/lábléc minden munkalapon más és más lehet. Azt szeretnéd, hogy az összes munkafüzet összes munkalapján ugyanaz legyen a lábléc?
-
perfag
aktív tag
válasz
Mr.Csizmás #10683 üzenetére
Bakker, ez régen működött. A 2010-ben nálam sem megy, valamit megváltoztattak.
Sőt, az innen List of all files contained within a Directory letöltött fájl is kiakad.
John Walkenbach oldalán ez nálam műxik. -
perfag
aktív tag
válasz
Mr.Csizmás #10677 üzenetére
Ha megvan a fájllistád: List files in a folder
Megnyithatod a fájlokat: How to open a file from VBA
És jöhet a Fire javasolta módosítás. -
válasz
Mr.Csizmás #10677 üzenetére
1. betöltöd a munkafüzetet
2. módosítod az élőlábat/láblécet
PageSetup.LeftFooter = "Balra kerülő szöveg"
PageSetup.CenterFooter = "Középre kerülő szöveg"
PageSetup.RightFooter = "Jobbra kerülő szöveg"3. mented a munkafüzetet és bezárod
az 1-3 pontokat ismétled, szép egymás utánba megnyitva a munkafüzeteket.
-
Mr.Csizmás
titán
válasz
Mr.Csizmás #10642 üzenetére
megoldva manuálisan
-
Delila_1
veterán
válasz
Mr.Csizmás #9896 üzenetére
Köszi. Ennyire bamba vagyok!
Hiába, április elseje van.
¡ǝɾǝslǝ sılıɹdɐ uǝɾlǝ
-
Delila_1
veterán
válasz
Mr.Csizmás #9894 üzenetére
Akkor írd le, mi módon jött össze!
Nehogy mind a 90-et, elég 1. -
Delila_1
veterán
válasz
Mr.Csizmás #9890 üzenetére
Tudtommal az élőfejbe nem lehet képfájlt bevinni, csak a Wordben.
-
Delila_1
veterán
válasz
Mr.Csizmás #9866 üzenetére
A képet a beillesztés előtt szabd méretre!
Sub Logo()
utvonal = "F:\Temp\"
FN = "filename.gif"
For lap = 1 To Worksheets.Count
Sheets(lap).Select
Cells(3, 1).Select 'Ez az A3-ba teszi, átírhatod
ActiveSheet.Pictures.Insert (utvonal & FN)
Next
End Sub -
Delila_1
veterán
válasz
Mr.Csizmás #9862 üzenetére
Próbáltam együttesen kijelölt lapokra bevinni egy képet, de nem tudja.
Marad a Ctrl+c, Ctrl+v az elsőről a másodikra, a többi lapon már elég az F4 billentyű a művelet ismétlésére. -
Delila_1
veterán
válasz
Mr.Csizmás #9860 üzenetére
-
Delila_1
veterán
válasz
Mr.Csizmás #9858 üzenetére
Na, ennek örülök. Nem a hibáknak, hanem az eredménynek.
Kicsit sok lett volna 50 lapra mindent átmásolni. -
Delila_1
veterán
válasz
Mr.Csizmás #9856 üzenetére
Szívesen.
Mi volt a 3 debug? -
Delila_1
veterán
válasz
Mr.Csizmás #9854 üzenetére
Van most a füzetedben 1 lap, amiben jó az élőfej.
Indítasz egy makrórögzítést.
A jó lapon állva átkapcsolsz a nyomtatási képbe, ott is a beállításokba, az élőfejbe.
OK. Belépsz (ha van) az élőlábba, OK. Rögzítés vége.Szép hosszú makrót kapsz, amiből csak néhány sort hagysz meg:
With ActiveSheet.PageSetup
.LeftHeader = "Valami1"
.CenterHeader = "Valami2"
.RightHeader = "Valami3"
.LeftFooter = "Valami4"
.CenterFooter = "Valami5"
.RightFooter = "Valami6"
End WithTermészetesen a Valamik helyett a saját adataid lesznek az egyenlőségjel után.
Ha élőláb nincs, a Footer-es sorokat is kihagyhatod.
Most beviszel egy új makrót:Sub Élőfejek()
For lap = 1 To Worksheets.Count
Sheets(lap).Select
'***ide másolod be az előbb rögzített sorokat ***
With ActiveSheet.PageSetup
.LeftHeader = "Valami1"
.CenterHeader = "Valami2"
.RightHeader = "Valami3"
.LeftFooter = "Valami4"
.CenterFooter = "Valami5"
.RightFooter = "Valami6"
End With
'*******************************************************
Next
End SubAhol jelöltem, beviszed a rögzített makró rövidített részét, és futtatod az újat. Minden lapra bemásolja az élőfejet, és ha van, az élőlábat is.
-
Delila_1
veterán
válasz
Mr.Csizmás #9852 üzenetére
Másold át a mostani füzetbe a régi lapot, ami az élőfejet tartalmazza, majd erre a lapra az előző tartalom helyett másold be a mostanit.
-
Delila_1
veterán
válasz
Mr.Csizmás #7715 üzenetére
Szívesen.
-
Delila_1
veterán
válasz
Mr.Csizmás #7713 üzenetére
Akkor az AD oszlopba írd a sorszámokat, AD10-től lefelé, ameddig van adatod az A oszlopban.
Mivel üres oszlopok is vannak, valóban ki kell jelölnöd az A10:ADvalahány területet, utána rendezés, ahogy WindBoar írta. -
WildBoarTeam
senior tag
válasz
Mr.Csizmás #7706 üzenetére
Csinálhatnál belőle egy printscreent, és látható lenne anmit írsz.
A sorba rendezésnél (amikor több oszlopot kell együtt rendezned), kijelölöd az egész tartományt, amit együtt akarsz sorba rakni. Utána Adatok/sorba rendezés... és kijelölöd melyik alapján akarod sorba rendezni.
Itt egy példa:
Kiinduló adat:
Rendezés után ezt kapod:Delila_1 ugyanezt írja amúgy.
-
Delila_1
veterán
válasz
Mr.Csizmás #7710 üzenetére
Akkor az F oszlopba írd a lefelé növekvő sorszámokat. Ha van címsorod, akkor az F1-be ne írj.
A számok bevitele után állj az F oszlop valamelyik celláján, és rendezd az adatokat csökkenő sorrendbe (Z-A ikon). -
Delila_1
veterán
válasz
Mr.Csizmás #7708 üzenetére
Nem így értettem. Vannak adataid az A oszlopban, a B-ben, a C-ben, stb. Melyik oszlop az utolsó?
Csak az első sorban van a címsorod, vagy esetleg több sorban is? -
Delila_1
veterán
válasz
Mr.Csizmás #7706 üzenetére
Melyik az első üres oszlopod?
-
Delila_1
veterán
válasz
Mr.Csizmás #7704 üzenetére
Az adataid mellett egy üres oszlopba beírod a számokat 1-től 45-ig.
NE jelöld ki a rendezés előtt az új oszlopot, csak állj benne. Rákattintasz a Z-A ikonra, ami csökkenő sorrendbe rendezi az oszlopot, és viszi magával a többi adatot is.
Új hozzászólás Aktív témák
- Battlefield 6
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Milyen belső merevlemezt vegyek?
- Autós topik
- Bitcoin topic
- Kedvenc zene a mai napra
- Kamionok, fuvarozás, logisztika topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Eredeti játékok OFF topik
- További aktív témák...
- PC Game Pass előfizetés
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- Dell 14 Latitude 9410 FHD IPS 2in1 Touch i7-10610U 4.9Ghz 16GB 512GB SSD Intel UHD W11 Pro Garancia
- GYÖNYÖRŰ iPhone 15 Pro 512GB Blue Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3070
Állásajánlatok
Cég: FOTC
Város: Budapest