- Samsung Galaxy S21 FE 5G - utóirat
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- A Samsung bemutatta a Galaxy XCover 7-et
- Szinte csak formaság: bemutatkozott a Pixel 6 és Pixel 6 Pro
- Mobil flották
- Samsung Galaxy S23 Ultra - non plus ultra
- Vodafone mobilszolgáltatások
- Realme GT 2 - aláírjuk
- Asus Zenfone 8 - komplett kompakt
- Elhagyhat egy kamerát a Galaxy S25 Ultra
- Luck Dragon: Asszociációs játék. :)
- Lalikiraly: MSI Cyborg 15 - Tényleg Kiborg.
- antikomcsi: Való Világ: A piszkos 12 - VV12 - Való Világ 12
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
Hirdetés
-
Ingyenes az Epic Store-ban a Dragon Age: Inquisition – Game of the Year Edition
gp A fullos kiadás tartalmazza az alapjáték mellett az összes nagy DLC-t is.
-
Spyra: nagynyomású, akkus, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Japán nem bír az AI és a chipgyárak energiaigényével
it 2050-ig 35-50 százalékkal kell fokozni Japán áramtermelését, méghozzá az AI és a chipgyárak növekvő igényei miatt.
-
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
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Mr.Csizmás #7706 üzenetére
Melyik az első üres oszlopod?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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?[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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).Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
WildBoarTeam
aktív 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.
[ Szerkesztve ]
blabla
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Mr.Csizmás #7715 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Mr.Csizmás #9856 üzenetére
Szívesen.
Mi volt a 3 debug?Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Mr.Csizmás #9860 üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Mr.Csizmás #9890 üzenetére
Tudtommal az élőfejbe nem lehet képfájlt bevinni, csak a Wordben.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Mr.Csizmás #9896 üzenetére
Köszi. Ennyire bamba vagyok! Hiába, április elseje van.
¡ǝɾǝslǝ sılıɹdɐ uǝɾlǝ
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mr.Csizmás
félisten
válasz Mr.Csizmás #10642 üzenetére
megoldva manuálisan
"Szólítson csak Cirminek." | B&B XI | 3D nyomtatás Bp és környéke |
-
félisten
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.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
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. -
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. -
félisten
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?
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
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 ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
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)
Új hozzászólás Aktív témák
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Steam kulcsok - UTALÁS/REVOLUT
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Új, bontatlan World of Warcraft gyűjtői kiadások
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest