-
GAMEPOD.hu
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 DopeBob #19150 üzenetére
Nem tudod a másolás előtt rendezni az adatokat aszerint, hogy hova kell menteni?
Akkor a hol.van (match) függvénnyel kikereshetnéd az első, és utolsó előfordulási sorát a táblázatodban, és 1-1 tartományt másolhatnál egyszerre.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
Ez a függvény nálam sosem jött be.
A helyedben egy nyúlfarknyi makróval oldanám meg. Az első lap A oszlopába beírnám az egyes lapok nevét, a makró meg melléjük tenné a B oszlopba a hiperhivatkozást.Sub hiper()
Dim i As Integer
For i = 2 To Worksheets.Count
Cells(i - 1, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="", SubAddress:=Sheets(i).Name & "!A1"
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
Nálam tényleg soha nem sikerült működésre bírni ezt a függvényt.
Két megoldás marad.
1. cellán jobb klikk, és végigmész a Hiperhivatkozás menüponton.
2. haza viszed a fájlt, lefuttatod a makrót, törlöd a makrót, visszaviszed a fájlt.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Scytha
tag
A következőt szeretném megcsinálni:
Van egy nagyon nagy táblázatom (több száz sorú és vagy 6-7 oszlopú) melynek egyik oszlopában nevek (személynevek) vannak (kb. 25 féle, tehát sokszorosan ismétlődnek). A célom az lenne, hogy a nevek szerint külön-külön táblázatokat csináljak (tehát így kb. 25 táblázatot) és az egész sor mindennel együtt menne át. Ami problémám az, hogy hogyan tudok úgy feltételt szabni, hogy az eredmény ne egy érték legyen, hanem az, hogy ha az érték (tehát a név) egyezik, akkor az egész sort másolja át egy új táblázatba.
Nagyon régen foglalkoztam már Excellel és nem tudok ezzel mit kezdeni. Úgy szeretném megcsinálni, hogy egy dokumentumon belül lenne 25 táblázat a 25 névnek külön-külön munkalapon lenne a táblázata.
Tudna valaki segíteni?[ Szerkesztve ]
-
Caipi
tag
válasz Scytha #19158 üzenetére
Szia,
Nem jelent megoldás számodra a Pivot táblák használata?
Excelben a beszúrás menüpont/kimutatás.
Ha minden egyes oszlopodnak van fejléce, akkor össze tudsz állítani a neked tetsző formátumú táblázatokat, amelyeket frissíthetsz is, ha új adatokat viszel be az alap táblázatodba.Üdv,
Caipi[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Scytha #19158 üzenetére
Első lépésként létre kell hoznod annyi lapot, ahány neved van, és ezeket a neveknek megfelelően érdemes elnevezni.
Ehhez célszerű a neveket tartalmazó oszlopból létrehozni egy újat a speciális-, vagy régebbi verziókban irányított szűrő menüpont segítségével, a verziótól függetlenül legyen bejelölve a "Csak az egyedi rekordok megjelenítése" kapcsoló.
Ha kész a szűrés, mondd meg, melyik oszlopba szűrted a neveket, akkor már tovább tudunk lépni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Scytha
tag
Köszönöm mindkettőtöknek a választ!
Delila_1: Először a te megoldásoddal próbálkoztam. A speciális szűrő (+ egyedi rekordok bekapcsolva) segítségévél annyit értem el, hogy megvan, hogy hány nevem van, minden egyebet törölt ezután mi a helyzet?
Végül is az egyszerű ABC-s sorba rendezéssel + utána másolás beillesztéssel is meg lehet oldani a problémám, de itt az a helyzet, hogy állandóan frissül a táblázat és azt szeretném, hogy automatikus kerüljenek a nevek a saját táblázatukba, ne kelljen állandóan manuálisan szórakozni és másolgatni.
-
Delila_1
Topikgazda
válasz Scytha #19163 üzenetére
Remélem, nem vesztek el az adataid!
Azt nem írtam, hogy a "Más helyre másolja" opciót is kapcsold be.Ha már megvan a névsor, egy makróval elő lehet állítani annyi lapot, amennyi szükséges, és el is lehet nevezni az emberek nevével.
Mikor ez is megvan, egy másik makró széthajigálja a sorokat a megfelelő lapokra.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Zola007
veterán
Egy nagy táblázat egyik oszlopában kellene minden sor végére beraknom egy karaktert A szöveg változatos
Ténylegesen ott kellene lennie mint adat, az nem jó ha a cellaformázásban beállítok az egyénibenHogyan tudnám ezt megoldani rövid úton?
[ Szerkesztve ]
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
81lendo$
csendes tag
Sziasztok!
A gomnak a következőket feladatokat kellene elvégeznie:
- az osztály névből egy új munkafüzetet készít, hasonló névvel
- az egész táblázatot bemásolja oda
- és tölődjön az első oldalról a már kész osztály.(ezt makróval megtudtam csinálna, de vba gyorsabb lenne)
Segítségeteket előre is köszönöm!
-
Mutt
aktív tag
Hello,
INDIREKT nélkül próbáld ki. Tehát:
=HIPERHIVATKOZÁS("[Excel fájl neve]"&B2&"!A1";B2&" megnyitasa")A fájlnevet pedig így tudod függvénnyel kinyerni:
=KÖZÉP(CELLA("filenév");SZÖVEG.KERES("[";CELLA("filenév"));SZÖVEG.KERES("]";CELLA("filenév"))-SZÖVEG.KERES("[";CELLA("filenév"))+1)üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
-
Mutt
aktív tag
válasz róland #19135 üzenetére
Hello,
..hogyan lehet rögzíteni a nyomtatási területet?..
Lap rendezése csoport-on belül nyisd meg az Oldalbeállítás párbeszédablakot és annak a Lap fülén lehet állítani a területet.
Ha dinamikusan változik, akkor pedig makróval:
Sheets("minta").PageSetup.PrintArea = "$A$1:$F$100"üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz 81lendo$ #19166 üzenetére
Szia,
A makró és a VBA ugyanaz, esetleg ha megosztod a rögzített makrót, akkor tudunk rajta csiszolni.
- az osztály névből egy új munkafüzetet készít, hasonló névvel
Új füzetet a Workbooks.Add paranccsal tudsz nyitni, mentéskor tudod megadni a nevet neki.
Ha lapról lenne szó, akkor Worksheets.Add a parancs, és a Worksheet.Name = Cstr(Range("C3")) műxik.- az egész táblázatot bemásolja oda
Adat másolása a Copy Destination:=<cél> paranccsal megy. Ha formátumot is kell másolni, akkor pedig a PasteSpecial használandó.
A táblázatot pedig egyben ki tudod jelölteni, ha benne állsz a CurrentRegion-al.- és tölődjön az első oldalról a már kész osztály.
Törléshez pedig a Delete parancs kell.Itt egy minimalista megoldás:
Sub CopyClass()
Dim wb As Workbook
Dim fajlnev As String
If Range("C3") <> "" Then
'megjegyezzük hogy milyen névvel kell menteni, egy kicsit tisztítunk rajta
fajlnev = CStr(Trim(Range("C3")))
'másoljuk a táblázatot E5-től kezdve
Range("E5").CurrentRegion.Copy
'nyitunk egy fájlt
Set wb = Workbooks.Add
'első fülére első cellájába berakjuk formázva képletek nélkül
wb.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
'mentjük a fájlt
wb.SaveAs fajlnev
'bezárjuk a fájl
wb.Close
'töröljük az eredeti táblázatot
Range("E5").CurrentRegion.Delete xlShiftUp
'töröljük az osztály nevét
Range("C3").ClearContents
End If
End Subüdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Zola007
veterán
Még egy kérdés. Ha egy cellához hozzá akarok adni egy szövegrészletet, de úgy hogy ne adatként jelenjen meg, tehát rendezésnél ne számítson, azt hogyan kell megoldani?
pl.
to compound i tsiúgy szeretném, hogy az egészet tudja rendezni a "compound" alapján, tehát majd a a C-betűhöz rakja ne a T-hez
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Caipi
tag
válasz Zola007 #19174 üzenetére
Szia,
Ha jól értem az eredeti szöveg alapján szeretnéd rendezni, de úgy, hogy a kibővített szöveged jelenik meg.
Ha erre vonatkozik a kérdésed, akkor az eredeti, nem kibővített oszlopon rendezel, a mellette lévő oszlopban ott vannak a függvénnyel kibővített cellák. Ezután rejtsd el a rendezés alapját képező oszlopot pl.Példa:
A2: compound
B2: ="to"& a2A oszlop alapján rendezel, majd elrejted az A oszlopot.
Üdv,
Caipi -
aviator
tag
Sziasztok!
Szeretnék segítséget kérni a következő probléma megoldásában. Kellene egy egyszerű megoldás (akár makró) arra, hogy az excel egy adott cellán állva gombnyomásra átugorjon az alatta lévőre, kijelölje ami benne van és alkalmazzon rá egy másolás parancsot. A lényeg a kijelölésen lenne, azt a két billentyűkombinációt kéne megvalósítani, hogy F2 és Ctrl+Shift+Home. Erre azért van szükség, mert egy másik programba kell átvinnem a cellák tartalmát, ami érzékeny a formázásra tehát ha cellát jelölök ki és másolok beillesztek akkor a sortöréseket nem veszi figyelembe a program, helyette viszont betesz hülye karaktereket.
IT-s kollega ma eléggé izzadt rajta, úgyhogy nem tudom, hogy egyáltalán megoldható e a feladat?Előre is köszönöm a segítségeteket!
Üdv:
Ádám -
Zola007
veterán
Köszönöm ismét!
Végül sima &-el lett megoldva mert nem mindegyik sorba kell a to, így csak azok elé írtam egy másik cellába és összevonva lett egy harmadikbaMʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
lappy
őstag
válasz ElemiKoczka #19179 üzenetére
Szia!
ezt kell beírnod
If Not Intersect(Target, [A:B,E:G]) Is Nothing Then
e helyett
If Not Intersect(Target, [A]) Is Nothing ThenBámulatos hol tart már a tudomány!
-
rtom
senior tag
Szevasztok!
Arra keresek megoldást, hogy egy makrós üzenetemre ne kelljen OK-t nyomni, hanem mondjuk 2 mp után magától tűnjön el (így nem kívánva interakciót a táblázat kezelőjétől, adatfeltöltésnél akarok visszajelzést adni, hogy minden jól ment, de ne kelljen neki a kézi szkennert letenni és enter-t nyomni). Találtam egy MsgBox-os megoldást:
Sub SelfClosingMsgBox()
CreateObject("WScript.Shell").Popup "Hello", _
2, "This closes itself in 2 seconds"
End Subde kíváncsi lennék, van-e ettől vmi egyszerűbb.
-
pirit28
csendes tag
Jóó napot az uraknak ,hölgyeknek !
Ismét küzdök,ebben kérném segítségeteket..
="Ide szöveg kerül"&VLOOKUP(B89;$A$19:$D$77;3;0)
Az fkeres egy időformátumot keres,de ha ilyen formában fűzöm össze a 2-t akkor az időformát átalakítja számra..
Lehetséges -e hogy 1 cellában egy szöveg után legyen időformátum.. ?
A választ előre is köszönöm
-
81lendo$
csendes tag
Sziasztok!
Lenne egy kérdésem: (PasteSpecial-nál)
Melyik XlPasteType enumeration használjam, ha csak az értéket és a formátumot (ez esetben a Ft) másolja a képletet ne amivel számoltuk?
Előre is köszi! -
Caipi
tag
Sziasztok,
Egyedi formátumkód kialakításában szeretnék segítséget kérni:
Azt szeretném, ha egy adott dátum beírásakor a cellában egy szöveg jelenjen meg helyette.
Az egyéni formátumom így néz ki:
[<117642]0;[=117642] "szöveg"
Annyi problémám van vele, hogy ebben az esetben a cellákban a dátumok számformátumban jelennek meg(41640, 41400, stb).
Hogyan kellene módosítanom, hogy dátumokat kapjak?Köszönöm,
Caipi -
Mutt
aktív tag
válasz 81lendo$ #19190 üzenetére
Hello,
Pár hasznosabb XlPasteType értékek:
1. xlPasteAll - mindent fog másolni, tehát képletek, számformátumok, egyéb cella formátumok, keretek, kommentek
2. xlPasteValuesAndNumberFormats - a cellákat értékként fogja másolni számformátummal együtt
3. xlPasteValues - a cellákat értékként másolja, minden mást kihagy
4. xlPasteFormulas - képleteket másol, minden mást kihagy
5. xlPasteFormats - formátum másolás, se értéket se képletet nem másolüdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
Hello,
A [<117642]0;[=117642] "szöveg" részben a 0 azt jelenti, hogy szám formátumot írjon ki ha a cella értéke 117642-nél (2222. február 2-ánál) kisebb. A 0 helyett éééé.hh.nn -ot adj meg.
2222. február 2-ára pedig csak azt írja ki, hogy "szöveg"A formátum képlet 4 részből áll, a részeket pontos vesszővel tudod elválasztani. Ezek az alábbiak:
1. pozitív számok megjelenítésének beállítása
2. negatív számok beállítása
3. 0 esetén megjelenítés
4. szöveges cellák megjelenítéseA négy részben lehet használni pár feltételt is ahogy a példádban is van szögletes zárójelek között kisebb, nagyobb vagy egyenlő műkődik.
Ezek alapján vmi ilyenre lenne célszerű bővíteni a formátumot : [<117642]éééé.hh.nn;[=117642] "szöveg";Normál;"Nem szám"
Ekkor dátum lesz minden 117642-nél kisebb szám (a negítvokra hülyeséget ír ki majd), 117642-re "szöveg",
szöveg esetén pedig "Nem szám"-ot ír ki.üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
atillaahun
veterán
Ha bármelyik Excelbe beillesztek egy levél forráskódjából származó szöveget, akkor azt miért kész html-ként teszi be, nem pedig tiszta forráskódként?
Még az irányított beillesztésnél sem ajánl fel nekem választási lehetőséget.
Ez így nagyon nem baba.[ Szerkesztve ]
-
zhari
csendes tag
Van egy lejelszavazott .xla Excel makró bővítményünk aminek elfelejtettem a jelszavát. Valaki tudna segíteni a szerkeszthetővé tételében?
-
moklys1
aktív tag
Sziasztok
Ezt szeretném egy képletbe megfogalmazni:
JAVÍTÁS
B1 és a C1 cellák képleteit egyben.A1 200; B1 =A1*0,98; C1 =A1-B1
Előre is köszönöm
[ Szerkesztve ]
-
djsunny
aktív tag
Sziasztok,
A segítségeteket kérném a következő problémában: árajánlatokat készítek Excelben és feltűnt, hogy viszonylag kevés adattal is meglehetősen nagyok az excel fájlok méretei.
Például adott egy négy Lapfüles dokumentum aminek 2MB a fájlmérete. Elkezdtem leszedni a lapfüleket mégnem rájöttem, hogy az egyik fül okozza a nagy fájlméretet. Már csak ez a munkafüzet van a fájlban viszont a munkafüzetből kitöröltem minden adatot. Szó szerint teljesen üres, ha kinyomtatom akkor egy üres lapot ad ki a nyomtató. És a fájl méret még mindig 1.5MB.
Nagyon bosszantó, hogy nem jövök rá mi okozza ezt a jeneséget.
Van esetleg valakinek ötelete a témában?
Új hozzászólás Aktív témák
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Canva Pro előfizetés - 1 éves
- Microsoft licencek a KIVÉTELES ÁRAK - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!