- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sh4d0w: Én és a számítógép
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- MaxxDamage: Vizes Laptop Hűtés? Lehetséges? Igen!
- eBay-es kütyük kis pénzért
- sziku69: Szólánc.
- Argos: Az vagy, amit megeszel
- D1Rect: Nagy "hülyétkapokazapróktól" topik
-
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
-
Delila_1
veterán
válasz
zsolti_20
#43094
üzenetére
Makró nélküli megoldás a képek megjelenítéséhez.
Két lapod van. A képeket tartalmazó neve Terméklista, a másiké Megjelenítés.
A Terméklistára viszed fel a képeket a csatolt kép szerint. Az A oszlopba írod a megnevezést. Közvetlenül alatta bekeretezel egy (a példa szerint 10×4-es, de lehet más) területet, ide szúrod be a képet középre.
A kép nevét beírod a G oszlopba, jöhet a következő kép. Mikor mindet felvitted, mehetünk a másik lapra.
A B1 cellában érvényesítést adsz meg, ami a Terméklista G oszlopára mutat. Kiválasztasz egy képet.
A Képletek | Névkezelőben létrehozol egy újat. A neve legyen Kep_mutatasa, a képlet=ELTOLÁS(Terméklista!$A$1;HOL.VAN(Megjelenítés!$B$1;Terméklista!$A:$A;0);0;10;4)
ahol a 10 a másik lapon egy-egy kép magassága, a 4 pedig a szélessége.
Beszúrsz egy akármilyen képet az érvényesítés alá. Ráállsz a képre, és a szerkesztőlécen megadod a hivatkozást:=Kep_mutatasa
Ezzel kész. Mindig az a kép jelenik meg a Megjelenítés lapon, amit a B1 cella érvényesítésében kiválasztasz. -
apaszka
veterán
válasz
Fferi50
#43098
üzenetére
Köszönöm erre nem is gondoltam!
Már készítettem egy weboldalt , hogy jól nézzen ki. Viszont nem tetszik így mégsem!
Újabb keret a böngésző...
Szerk:
De ez sem lesz járható út sajnos!
Egy műszakban vagy 800 sorral bővül és mellé még képek is kerülnek...
De rajta vagyok!
Köszönöm a segítségeteket! -
Fferi50
Topikgazda
válasz
Zsolt_16
#43083
üzenetére
Szia!
1. A Most függvény az időt is tartalmazza és valahányszor újraszámolódnak a képletek, megváltozik az értéke (akkor is, ha ezt a formátum miatt nem látod)! Ebből az is következik, hogy másik napon megnyitva a munkafüzetet, másik dátumot fogsz látni a cellában.
2. Ugyanez igaz a MA függvényre is, azzal a különbséggel, hogy ott az idő nem kerül be, csak az aktuális dátum. Ha ezeket a problémákat el szeretnéd kerülni, akkor át kell alakítanod minden nap végén a képleteket értékké.
A cella formátumának megadásakor nem hivatkozhatsz másik cellára, csak konkrétan megadott szövegre. Pl. éééé.hh.nn"_valami" kiírja a dátumot plusz aláhúzással a szöveget.
Ha másik cella értékét szeretnéd hozzáfűzni a formátumhoz, akkor kell egy segédoszlop és a Szöveg függvény használata. Pl. =SZÖVEG(A1;"éééé..hh.nn") & "_" & B1 megjeleníti a cellában az A1 cellába levő dátumot és hozzáfűzi aláhúzásjellel a B1 cellában levő szöveget.Üdv.
-
Fferi50
Topikgazda
válasz
Richard
#43086
üzenetére
Szia!
"Van 20 elég nagy táblázatom egy excel fileban amiket felvittem az adatbázisba, és megcsináltam a kapcsolatokat közöttük."
Most akkor Exceled van vagy adatbázisod, esetleg mindkettő?
Ha adatbázisod (pl. Access) van, akkor abban érdemes megcsinálni a riportokat és a diagramokat is.
Excelben pedig érdemes lehet közös adatforrást használni - azaz egy alap kimutatást felhasználni másik kimutatásokhoz. Egyébként pedig a sok számolás - ami a kimutatásokhoz kell, plusz az adatbázishoz a kapcsolat létrehozása bizony időigényes.
Adott esetben a VBA sem lehet sokkal gyorsabb, természetesen VBA-ban is be lehet állítani a szűrőket és a slicereket is.
Talán jobban tudnánk segíteni, ha mutatnál egy példafájlt (természetesen nem éles adatokkal) és egy mintát benne, hogy mit szeretnél elérni.Üdv.
-
Delila_1
veterán
válasz
petymeg
#43090
üzenetére
Tegyük fel, hogy a számok A1-től kezdve lefelé vannak. A képlet =A1*10, ezt másolhatod lefelé.
Ha nem a képletek kellenek, hanem a felszorzott összegek, van egy egyszerű megoldás. Egy üres cellába beírsz egy 10-est. Ezt másolod Ctrl+c-vel, majd kijelölöd a felszorzandó számok tartományát. Irányított beillesztés menüpont, a Művelet résznél bejelölöd a szorzást. A beírt 10-est törölheted. -
petymeg
addikt
Sziasztok!
Segítség kellene:
Van egy táblázat, aminek az egyik oszlopában lévő adatot meg akarom szorozni 1,1-gyel. Pl első cella értéke 10, második 11, harmadik 12 és így tovább.
Ha az elsőbe beírom a képletet, hogy "=10*1,1", és lehúzom, akkor az összes cellában 11 lesz az érték. Milyen képlettel lehetne ezt egyszerűen megoldani? -
zsolti_20
senior tag
Jó reggelt emberek! A múltkor kérdeztem, hogyan lehet listából kiválasztva képet megjeleníteni. Sikerült is össze hoznom, amit kombinálni szeretnék egy IF-el. Úgy néz ki a dolog, hogy van egy oldal az excelen belül ahol a képek vannak, mellette a-tól x-ig "megbetűzve".
Egy másik lapon ha pl beírom a cellába hogy "kecske" akkor az IF segítségével a listát tartalmazó cella tartalma megváltózik "a"-ra amivel megjelenít egy bizonyo képet.
A problémám az, hogy ha az IF-et szeretném megváltoztatni, más adatokra akkor hibauzenetet kapok, hogy nem valid az adat amit megszeretnek adni. A poen az egeszben ha atmasolom az ifet egy masik cellaba es modositom, akkor mukodik egeszen addig amig nem valtoztatja meg a kepet, aztan megint nem lehet modositani es masolnom kell a kovetkezo cellaba.
-
#43088
lappy
őstag
pero19910606
#43087
lappy
őstag
válasz
pero19910606
#43087
üzenetére
{=HA(SZÖVEG.KERES("akció";C3:C5;HOSSZ(C3:C5)-5);SZÖVEGÖSSZEFŰZÉS(" ";;C3:C5);" ")}Így meg lehet oldani ha van szövegösszefűz függvényed -
#43087
pero19910606
csendes tag
pero19910606
csendes tag
Sziasztok!
Összefűz függvénnyel próbáltam a lenti problémát megoldani, de egyelőre nem jártam sikerrel, ezzel kapcsolatban szeretnék egy kis segítséget kérni. Egy cikkszámhoz tartozó összes akciót szeretném egy cellába kilistázni.
Adott egy táblázatom, amiben két oszlopban szereplnek a cikkszámok és a hozzájuk tartozó akciók:
Végeredmény pedig így nézne ki:
Először pivot-al próbálkoztam, de sajnos csak így tudtam kilistázni:
Van esetleg valakinek ötlete arra, hogy ha egymás alatt egy cikkszám több akcióval szerepel a listában, akkor egy sorba ki tudjam listázni az összes akciót az adott termékhez?
Köszönöm!
Üdv! -
Ez a Pivot table meg Pivot chart ennyire instabil/bugos? Van 20 elég nagy táblázatom egy excel fileban amiket felvittem az adatbázisba, és megcsináltam a kapcsolatokat közöttük. Van két táblázatom amikhez az összes többi van kötve (évszám tábla és hónap tábla). Ez azért van, hogy egy év és egy hónap slicerrel egyszerre tudjam az összeset változtatni.
Elkezdtem csinálni a pivot táblákat és a diagramokat (összesen kb 15-20 oldalon lenne kb 40 pivot tábla és 20 diagram összesen), de valami hihetetlen lassú és össze vissza kidobál.
A kapcsolatok jók, a struktúrák jók.
Ez ilyen? Milyen más megoldás van pivot táblák helyett kimutatásokat csinálni? Gondolom semmi.
Egyszerűbb lenne a helyzet, ha egy cellából olvastatnám ki VBA-val a táblákban megjeleníteni kívánt évet és egy másikból a hónapot?
Erre eddig csak olyat találtam, hogy a szűrő vagy a slicer értékét olvasná ki táblából. Az első azért nem jó, mert nem a szűrőben akarom az évszámot betenni, hanem a sorok közé, a második pedig szinte kivitelezhetetlen. -
cortez25
senior tag
Sziasztok!
Egy egyszerű kérdésem lenne, ha lemásolom az egyik fület egy másik táblázatba, a benne lévő függvény (pl:Fkeres) arra a táblázatra mutatnak ahonnan másoltam. Úgy szeretném másolni,hogy a beillesztett táblázatba lávő fülre mutasson a hivatkozás. Nyilván ugyanaz a fül neve.
köszi :) -
Zsolt_16
tag
Sziasztok,
Van arra lehetőség, hogy szám+szöveg formátumot csináljak?
Adott egy ééééhhnn formátumkód amihez hozzászeretném rendelni egy másik oszlop tartalmát ami szöveg formátumú pl.: _0001
Amennyiben mind a két értek szövegformátum akkor tökéletesen megcsinálja így: 43878,5917702546_00001
A szöveg alapú dátum bevitele is segítene de a dátumot automatikusan töltettem ki (=HA(B3="";"";HA(A3=""; MOST(); A3))) (amennyiben b3 nem üres akkor dátumot írja ki)
Zárt excel lesz belőle minden kész csak erre lenne szükségem.
Köszönöm előre is! -
Pakliman
tag
válasz
Zola007
#43075
üzenetére
Szia!
Először is kell egy másolat az "eredeti" kiválasztható értékekről. Célszerű az eredeti lista mellett létrehozni. Ezt el is rejtheted.
A listaelem átírásakor az alábbiakat kell tenni a makróban (Worksheet_Change):
- Letiltod az eseménykezelőt: Application.Enabelevents=False
- a Target objektum tartalmazza az átírt elem sorának számát (Target.Row), ez lesz majd használva
- megkeresed az EREDETI szöveget a "másolatban" ( Cells(Target.Row, a_másolat_oszlopa) )
- sorra veszed a munkafüzet munkalapjait (For Each ws In Worksheets), ha kell szűrést is berakhatsz, vigyázz,
hogy az aktuális (a listát tartalmazó) munkalapot teljesen külön kezeld!
- a munkalapon megkeresed az EREDETI szöveget és átírod az újra.
- végül a listát tartalmazó munkalapon az EREDETI szöveget is átírod
- Engedélyezed az eseménykezelőt: Application.Enabelevents=True -
Delila_1
veterán
válasz
zsolti_20
#43077
üzenetére
A számokat sorold fel valahol egymás alatt, és hozz létre az A1 cellában egy érvényesítést ezekből. Feltételezem, hogy a számok egy-egy kép nevével megegyeznek.
Rajzolj egy négyzetet (beszúrás, ábrák, alakzatok), aminek a Kép nevet adod.
Private Sub Worksheet_Change(ByVal Target As Range)
Const utvonal As String = "F:\Jpg\"
If Target.Address = "$A$1" Then
ActiveSheet.Shapes.Range("Kép").Select
Selection.ShapeRange.Fill.UserPicture utvonal & Target.Value & ".jpg"
Cells(1).Select
End If
End SubRendeld a makrót a lapodhoz. Írd át az utvonal változót a saját útvonaladra, a végén legyen "\".
Ha nem jpg kiterjesztésűek a képeid, aSelection.ShapeRange.Fill.UserPicture utvonal & Target.Value & ".jpg"
sor végén írd át. -
RedHarlow
aktív tag
Sziasztok, szeretnék egy cellában lévő 2 szövegrész közül kinyerni adatot egy külön cellába, tudnátok segíteni egy ilyen függvény megírásában?
..... PAYMENT AMOUNT: 8200 Ft WORK......
A 8200 Ft-ra lenne szükségem. A ..... ok azt jelölnék hogy még van szöveg előtte és utána is.
-
csferke
senior tag
Sziasztok!
Újra raktam Windows-t és az angol Office 2007-et .
A régi rendszeremben egy Excel munkafüzet lapjainak bizonyos cellái voltak beillesztve egy Word dokumentumba (Paste special/Paste link/Unformated text). A Word doksi megnyitásakor megkérdezte, hogy szeretném-e frissíteni a Link-elt adatokat. Minden tökéletesen működött.
Most az újratelepítés után, valahol valami beállítás (Word-ban? Excel-ben?) elkerüli a figyelmemet és nem működik a dolog.
Amikor megnyitom a Word dokumentumot egy jó ideig forog valami jel, hogy dolgozik, de nem kérdezi, hogy szeretném-e frissíteni a Link-elt mezőket. Viszont el is tűnik az összeköttetés az Excel-el
Sőt amikor megnyitom az Excel-t akkor felkínál egy csomó visszaállítandó munkafüzetet
Mit nem sikerült beállítanom? Word-ban? Excel-ben?
köszi a segítséget
-
zsolti_20
senior tag
Jó reggelt emberek! Mindig kaptam itt segítséget a problémára ami nagyon jól müködött, de jött egy újabb gond amit nem tudok sajnos megoldani.
Van egy excel file ami automatikusan kap egy számot. Ezek a számok lehetnek:
1111.40 vagy 7584.40 vagy 3568 stb...
Valami olyasmi megoldást szeretnék, hogy ha pl A1-be megkapja automatikusan azt hogy 1111.40 és ey meg egyezik a listában lévővel akkor jelenitsen meg egy képet. Minden számhoz más-más képet szeretnék társítani. -
Zola007
veterán
adatok -> érvényesítés -> lista: "cégek" hivatkozással több munkalapon használok egy közös legördülő listát, amit egy külön lapon tárolok
Arra lenn szükségem, hogy ha a "cégek" listában megváltoztatok egy elemet (pl. Piros Kft -> Zöld Zrt), akkor a többi lapon is mindenhol változzon meg a Zöld Zrt-re , ahol a legördülő listából korábban a Piros Kft. lett kiválasztva
talámtam egy ilyen kódot, de nem tudom hogyan módosítsam:Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim count_cells As Integer
Dim new_value As String
Dim old_value As String
Dim rng As Range
For count_cells = 1 To Range("A1").CurrentRegion.Rows.Count - 1
Set rng = Worksheets("7").Range("J3:J100")
If Intersect(Target, Range("A" & count_cells + 1)) Is Nothing Then
Else
Application.EnableEvents = False
new_value = Target.Value
Application.Undo
old_value = Target.Value
Target.Value = new_value
rng.Replace What:=old_value, Replacement:=new_value
Target.Select
End If
Next count_cells
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub -
halfnote
friss újonc
Most nincs előttem, ritkán hozom haza a melót :)
Alapban van 10 munkalap, ami adatbázist kérdez le. Ezek ellenőrző listák, más-más rekordszerkezettel. A lekérdezések végére, minden munkalapra készítek egyéb számításokat, de ezeknek a képzett adatoknak a rekord/oszhlopszerkezete már azonos, így összemásolhatók lesznek. De ez csak úgy sikerült,hogy a közös szerkezetű mezőket beimportálom lekérdezésként. Ez 10 lekérdezés. Ezeknek az elérési útvonala van a képen. Minden gondom megoldódna, ha ide tudnék olyan függvényt,vagy hivatkozást írni, ami mindig a fájl aktuális elérési utját helyettesíti be. Ez azért érdekes, mert többen használnák, de más-màs helyről,ha elmásolják maguknak. A kapcsolatoknál megnézem, mi történik,ha egyenként frissítem, de szerintem ez a kollégáknak nem fog tetszeni :) Legrosszab esetben készítek 5 ilyen álományt és mindenkinek névreszóló lesz,fix elérésel, de jobb lenne az univerzálisabb megoldás, aminek tuti léteznie kell. Ezt a függvényt megnézem mi pontosan. Meg kipróbálom mégegyszer. Az a fura,nemrég amit készítettem, az adatbázislekérdezések frissítése után a rájuk épülő kereszttábkákat külön frissítenem kellett,de az frissült a frissen lekért adatok mentése nélkül is. Bár az logikailag más, az is igaz, mert a pivot egy másik munkalapra hivatkozik, míg a mostani eset egy fájl mentett állapotát hívja meg. Persze, azt is próbáltam, hogy beszúrtam egy üres munakalapot és mezei =szerzodesek_szama![@megyekod] hivatkozással át tudtam húzni a megfelelő adatokat, csak az így elkész7lt munkalapot nem tekintette lekérdezésnek, hiába PQ alatt hoztam létre, üres munkalap beszúrással, így nem tudtam őket összemásolni. Lehet kicsit zavaros, már cellákkal álmodom :) -
Mutt
senior tag
Sziaszok,
Másik fórumon a felhasználó egy összesített listából akar egy kibontott listát (unpivot) készíteni. Vagyis a tételt annyiszor kell ismételni, amennyi a mennyiség oszlopban van.
A csatolt képen a bal oldali a kiinduló állapot. A cél a jobb oldali előállítása.
Excel 2010-től van Power Query ahol ez könnyedén elérhető.
Lépések.1. Adatok betöltése Power Query-be: Adatok - > Táblázatból...
2. Adjunk két egyéni oszlopot a listához. Az egyik oszlop tartalma csupa 1-es lesz, a másik pedig az Ár / Mennyiség. Oszlop hozzáadása kell kétszer, a második eset pl.
3. Kell egy harmadik oszlop, aminek ez a képlete:
={1..[Mennyiség]}
Ezzel egy számsort tudunk előállítani 1 és a mennyiségben megadott érték között.4. Ennek az oszlopnak a jobb sarkába kattintva bontsuk ki sorokba a számokat.
5. Végül töröljük a felesleges oszlopokat és töltsük vissza Excelbe az eredményt.
üdv
-
Mutt
senior tag
válasz
halfnote
#43066
üzenetére
Szia,
Mi történik akkor ha Adatok -> Lekérdezések & kapcsolatok alatt egyesével, egymás után frissíted a lekérdezéseket?
Az első lekérdezések a munkalapra adatokat írnak vissza? Ha igen, akkor érdemes lenne inkább kapcsolatként létrehozni a lekérdezést.
A végét nem értem, de a forrás fájlban lévő összes tartományra/táblázatra az Excel.CurrentWorkbook() függvénnyel lehet hivatkozni.
üdv
-
Fferi50
Topikgazda
válasz
Sunsetjoy
#43064
üzenetére
Szia!
Ha van olyan sorod, ahol a kérdéses oszlopokban nincs érték, akkor egyszerűen egy sor:Sub torolRows(2).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete ' A 2 helyére írod a sor számát.End Sub
Ha nincs ilyen sor, akkor direktben meg kell adnod az oszlopokat pl. így: Minden összefüggő oszlopcsoportot külön-külön kell betenni az Union paraméterének.Sub torol()With Munka1.UsedRangeUnion(.Columns("E:G"), .Columns("J:L"), .Columns("N:AG"), .Columns("AI:AJ"), .Columns("AL:AM")).DeleteEnd WithEnd SubÜdv. -
halfnote
friss újonc
üdv mindkeinek. Lenen egy problémám. Power Queryvel akarunk dolgozni, készítettem is egy több lekérdezést tartalmazó állományt. a lekérdezések eltérőek, de vannak azonos mezők/oszlopok, melyeket össze akarok fűzni. Ekkor beolvastatom magát az xls állományt és ott kiválasztom egyenként a munkalapokat és szűröm, majd az így létrehozott 10 munkalapot,melynek azonos a szerkezete összemásolom (uinon). Itt Összevonás-nak hívják. Ami a gondom, ha nyomok egy "minden frissítése" gombot, befrissíti az adatbázis-lekérdezéseket, de a lvalogatott és összemásolt adatokat nem frissíti, csak ha előbb mentek egyet, majd az összemásolt lapra újra elindítom az adatfrissítést. Itt a mentéssel van baj, mert többen használnák munkatársak, de levédem módosítás ellen. Megoldás lehetne, ha a lekérdezések esetén forrásnak nem direktbe adnám meg az fájl elérését (saját magát hívja meg), hanem valami függvénnyel. próbáltam neki beblöffölni a cella("filenév") függvényt, de nem megy vele. csatolok egy képet,hátha érthetőbb. elvileg nem nagy dolog lenne, de nem ismerek PQ profit, mi meg most tanuljuk.
-
válasz
Sunsetjoy
#43062
üzenetére
valami ilyesmi (fejből):
cols = Array("C", "E", "F", "G", "I", "J", "K", "L", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AI", "AJ", "AL", "AM")
for ix = 0 to ubound(cols)
Range(cols(ix) & ":" & cols(ix)).Clear
next -
-
Sunsetjoy
aktív tag
Üdv mindenkinek!
Van arra valamilyen makró, batchfile vagy hasonló, hogy egy xls fájlban a lefuttatással törölje ki a táblázat
C, E, F, G, I, J, K, L, N, O, P, Q, R, S, T, U, V, W, X, Y, Z, AA, AB, AC, AD, AE, AF, AG, AI, AJ, AL, AM
oszlopait teljesen (nem tartalmat), teljes oszlopot mindenestől.
Nekem az automatán létrehozott táblázatból csak az A, B, H, M, AH, AK oszlopaira lenne szükségem.Libreoffice 6.4.0.3 hun, ha programon belül lehetne csak megoldani.
Köszi előre is!Külön program, ami mondjuk egy táblázatot képes így csupaszítani gombnyomásra beállítások alapján, na olyat sajna nem találtam
-
válasz
Fferi50
#43047
üzenetére
Biztos, végülis így oldottam meg:
Selection.Replace What:="-", Replacement:="0", LookAt:=xlWhole, _SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2A LookAt:=xlWhole megoldotta, hogy a teljes cella tartalmát nézze.
Azért köszönöm!
Köszönöm!
-
Lokids
addikt
Sikerült addig eljutnom, hogy van 1 éves összeg bontásom és a hónapok száma:
=SZUM(HA(L3=0;((H3*R3)/12);((L3*R3)/12));HA(M3=0;((I3*R3)/12);((M3*R3)/12)))=DÁTUMTÓLIG((KALK.DÁTUM(W3;O3));Y3;m)De fogalmam sincs, hogy tudok éves bontást csinálni. Mármint hogy tudom megmondani képletben, hogy ha a kezdő dátum 2021.09.16 akkor arra az évre számolja ki az éves összeg tört részét, míg ahol már túllóg a végdátumon ott 0 legyen az eredmény.
-
acsati
aktív tag
Sziasztok!
2007-es Excel-t használok. Egy űrlapot készítek. (Előre van formázva 2-3 oldal)
Az első oldal felső részén megjelennek a kitöltendő megrendelői adatok. Ezek alatt viszont a megrendelésre van szánva a hely.
Olyan nyomtatás barát megoldásra lenne szükségem, hogy ha a második oldalra csúszik a megrendelés, akkor ott már ne jelenjen meg az első oldalon kitöltendő megrendelői adat, csak a sorszámmal, formázással ellátott megrendelés.
Viszont, ha egy oldalon van csak érdemi adat, akkor csak egy oldalt nyomtasson úgy, hogy erre az ügyfélnek ne kelljen figyelnie. Tehát alapesetben egy oldal legyen nyomtatva, kivéve, ha kerül adat több oldalra. Remélem érthető a kívánságom. :)
Kép a táblázatról, ahol látszik az oldaltörés is. -
Louro
őstag
-
Fferi50
Topikgazda
Szia!
Megnézted már a mentés másként file opcióit? Abban van csv és xml mentés is. Makróban SaveAs illetve SaveAsXMLData.
A help segít. (VBA nézet, Object Browser kiválaszt, beírod a keresőmezőbe a fenti kulcsszavak egyikét. Utána a felső sor utolsója a kérdőjel, a VBA helphez visz az adott kulcsszóra.)
Üdv. -
Louro
őstag
Sziasztok!
Tudtok arra módot, hogy egy munkalap tartalmát könnyű szerrel kimentsem .csv állományba (igazából XML, de ez most lényegtelen szerintem) és fontos, hogy utf-8 kódolással?
Amit most használok:
Dim xml_text As Variant'Stream létrehozása az XML-hezSet st = CreateObject("ADODB.Stream")'Karakterkódolás beállításast.Charset = "utf-8"st.Type = 2 ' adTypeTextst.Openxml_text = GetTextFromRangeText(XMLsablon.UsedRange)st.WriteText xml_text'XML mentésest.SaveToFile ThisWorkbook.Path & "\A60_bevallás_" & Application.Text(Now(), "yyyymmdd") & ".xml", 2
AGetTextFromRangeTextigazából csak annyit csinál sajnos erőforrásigényesen, hogy egy változóban összeszedem a tartalmakat. A makróm feldolgozásának közel 90%-a erre megy el -
Fferi50
Topikgazda
válasz
Richard
#43042
üzenetére
Szia!
Biztos, hogy valódi "-" van abban a cellában. Nem arról van szó, hogy olyan számformátumot állítottak be, ami a 0 helyett jeleníti meg a kötőjelet? Mert ebben az esetben a számformátumot kell átállítani.
VBA-ban a Range.Replace metódusával tudsz cserélni. (Előtte a Find metódussal be kell állítani, hogy csak a teljes cella értéket cserélje.)
Tovább kérdés még, hogy nincs-e más nem látható karakter (pl. szóköz, emelt szóköz) is a kötőjel mellett a cellában.Üdv.
-
Fferi50
Topikgazda
válasz
Zsolt_16
#43044
üzenetére
Szia!
A SOR függvénynél nem kell a másik munkalapra hivatkoznod, csak legyen ugyanaz a tartomány címe, mint a másik munkalapon (bár így is jónak kell lennie), mert ez egy "segéd" a számításhoz..
Figyeltél arra, hogy Shift+Ctrl+ Enter a képlet bevitele a végén?
Mert ez egy tömbképlet és az Excel kapcsos zárójelek közé teszi.Üdv.
-
Zsolt_16
tag
válasz
Fire/SOUL/CD
#43043
üzenetére
Köszönöm szépen!
Természetesen teljesen jogos az észrevétel nem teljes körűen kérdeztem.
A képlet átíratakor sajnos átnézve az index hibára esik mert az érték nem szám
Általam használatos képlet:=HAHIBA(INDEX('Központból kimenő posta'!$B$2:$B$21;KICSI(HA($J$4='Központból kimenő posta'!$A$2:$A$21;SOR('Központból kimenő posta'!$A$2:$A$21)- MIN(SOR('Központból kimenő posta'!$A$2:$A$21))+1;""); SOR()-1);1;1);"")Sajnos így nem add ki értéket, hivatkoznom kell egy másik fülről, bár nem kellene számítania -
#43043
Fire/SOUL/CD
félisten
Zsolt_16
#43037
válasz
Zsolt_16
#43037
üzenetére
Sajnos ezt most nem tudom elmagyarázni, de Delila_1 majd elmagyarázza...
(rohannom kell figymarángató W10 Intel Micro-Code Update miatt, döglenek a gépek)
Delila_1 szét fogja rúgni ez miatt a seggecském, mert aki siet, az ne írogasson... (imádlak hölgyemény)
D2 cella kódja CSE, azaz Control + Shift + Enter):
=HAHIBA(INDEX($B$2:$B$15;KICSI(HA(D$1=$A$2:$A$15;SOR($A$2:$A$15)- MIN(SOR($A$2:$A$15))+1;""); SOR()-1));"")UI: Nem ártana, ha konkrét dolgot írnál, nem pedig utólag ilyet, hogy "zárolt Excel-t" készítek...
Itt a topikban nagyon jó arcok vannak (értsd: nem ma kezdték a szakmát és segítőkészek), de utólag nem szeretünk olyan dolgokat, mint pl esetedbe, hogy "zárolt excel", mert, akkor egész megoldás megy a retekbe...
-
Bocs, ha egyértelmű kérdés, de nem jut eszembe a megoldás:
VBA-ban ki akarom cserélni az összes "-" karaktert 0-ra egy adott táblában. Ezzel nincs is semmi probléma, mert lefut a program és csinálja is amit kell.
Azt hogy mondom meg neki, hogy CSAK abban a cellában cserélje ahol nincs semmi más csak "-" karakter. Tehát pl jobbra-balra az nem jobbra0balra legyen
-
Lokids
addikt
Sziasztok!
Kis segítséget szeretnék, mert egyszerűen nem jövök rá, hogy ezt hogy lehetne képletezni.
Van 5 oszlopom:
Összeg
garancia hónapok
garanciával le nem fedett hónapok
Költség %
Teljesítés
Van egy összeg oszlop, legyen mondjuk 10000 Ft
A teljesítés dátuma, ahonnan indul a garancia: 2020.02.11
Garancia: 12
A garanciával le nem fedett azt jelenti, hogy mennyi ideig akarjuk használni az eszközt gari nélkül: 36
A költség az, hogy az összeg hány %-val számolunk a le nem fedett hónapokra éves szinten: 10% (azaz 1 évre 1000Ft)
Ezen kívül van 9 oszlop, melyben évek szerepelnek: 2021; 2022 stb.
ezekbe az oszlopokba kellene kapnom egy összeget, hogy éves szinten mennyibe kerül nekünk a termék.
Itt a példában 2021-es oszlopba 11 hónapnyi Ft kell mivel a gari véget ér 2021.02.11-én (napot hagyjuk figyelmen kívül).
További oszlopokba pedig 1 évnyi egészen 2024-es oszlopig, ahova 2 hónap kerül.
Egyáltalán meg lehet ezt csinálni képlettel?Köszönöm.
-
#43040
csongi
veterán
Fire/SOUL/CD
#43033
csongi
veterán
válasz
Fire/SOUL/CD
#43033
üzenetére
Köszönöm
Lehet, de Tekervonat sem semmi
Ha azt szeretném, hogy a b oszlop celláinak tartalma megmaradjon, ha nem talál egyezést hogyan kell?
-
Zsolt_16
tag
Sziasztok, Újra itt
Van olyan függvény ami x érték melleti adatott ad meg? FKERES-sel az a baj, hogy ott az x értékre csak az első x érték melleti adatott adja meg.
Van egy dátumom amihez több név tartozik szükségem lenne x dátum értékhez tartozó nevekre.
pl:
2020.01.02 RL50010160117280
2020.01.02 RL50010160117293
2020.01.03 RL50010160117307
Ezek alapján az FKERES 2020.01.02 dátumra csak a RL50010160117280 értéked adja ki.
Köszönöm előre is! -
#43036
Fire/SOUL/CD
félisten
RAiN91
#43035
válasz
RAiN91
#43035
üzenetére
Private Sub CommandButton1_Click()
Dim MySpecComputerName, MyComputerName As String
MySpecComputerName = "UBUL-PC"
MyComputerName = Environ("computername")
If UCase(MyComputerName) = UCase(MySpecComputerName) Then
MsgBox (MySpecComputerName & " gépén fut a makró")
'ide kerül a makró, amit futtatni szeretnél
Else
MsgBox (MyComputerName & " gépén NEM fut a makró")
End If
End SubFelhasználónevet is be lehet olvasni, ha esetleg kell:
UserName = Environ("username") -
Kloden
senior tag
Sziasztok, szeretnék kis segítséget kérni Tőletek!
Feltételes formázást szeretnék, mégpedig dátumra.
Adott egy halom dátum egy oszlopban, mikor megnyitom az excelt, pirossal emelje ki az egy héten belüli dátumokat, ami meg már elmúlt, azt halványítsa el. Meg lehet ezt oldani szerintetek? -
#43033
Fire/SOUL/CD
félisten
csongi
#43029
-
Pakliman
tag
válasz
Zsolt_16
#43026
üzenetére
Szia!
Az alábbi makrót nagyon régen hoztam létre, mert különbüző dolgokat más-más nyomtatóra kellett küldenem
Az "előkészületekhez" lásd Fferi50 válaszát:Public Function Nyomtató_Váltás(mire As String) As Boolean
Dim sorszám As Long
Dim Hiba As Boolean
Err.Clear
Hiba = True
On Error Resume Next
For sorszám = 0 To 99
Application.ActivePrinter = mire & " a(z) Ne" & Format(sorszám, "00") & ": kimeneten"
'A "mire" a nyomtató neve, az utána lévőt változtasd meg úgy, hogy
'egyezzen a rendszer által visszaadott "mintával"
'Nálam az Application.ActivePrinter ezt adja: "szv222 a(z) Ne07: kimeneten"
'Nem mindig Ne07, ezért kell "megkeresni" a jó portszámot.
If Err.Number = 0 Then
Hiba = False
Exit For
End If
Next sorszám
Nyomtató_Váltás = Hiba
Err.Clear
End Function
'Használata (pl.):
If Nyomtató_Váltás("szv222") Then
'...
'....amit szeretnél még elvégezni nyomtatás előtt...
ActiveSheet.PrintOut
Else
MsgBox "Nincs ilyen nyomtató!!"
End If -
Fferi50
Topikgazda
válasz
Zsolt_16
#43026
üzenetére
Szia!
A másik fórumban írtam már, próbáld meg a következőt:
Beállítod az Excelben a hálózati nyomtatót a nyomtatási paramétereknél.
Ezután lekérdezed és elteszed egy változóba.
pl. a=Application.ActivePrinter
Majd ezzel a változóval állítod be az Application.ActivePrintert.
Application.ActivePrinter=a
Ha elsőre hibát jelez, próbáld meg átállítani más nyomtatóra kézzel. Ezután vissza az Application.ActivePrinterrel. Esetleg nincs csatlakoztatva a nyomtató.
Elvileg ennek működnie kell, ismerősömnél működik rendesen hálózaton is.
Ez a beállítás csak az Excelben érvényes, ott változtatja meg a nyomtatási kimenetet. Ha mindig erre szeretnél nyomtatni, felveheted konstansnak az értékét.
Üdv. -
Zsolt_16
tag
válasz
Zsolt_16
#43025
üzenetére
Oké ezt elengedtem más megoldás esetleg:
Mitől van az ,hogy Postscript alapú nyomtatásnál nyomtatásikép esetében "nyomtató keresése" minden kis módosítás esetén előjön 1-2 mpre ami idegesítő. Pcl alapon nincs ilyen problémám de a kulcs-soft szerverén tsclientet használnak így a távoliasztalból tapasztalataim szerint csak ps alapon megy a nyomtatás illetve beállítás (egy vagy kétoldalas).
Eredetileg ezért jött az ötlet, hogy egy azon nyomtató 2x telepítve van egyik PS másik PCL alapon és kész, vagy esetleg tiltani a ps alapút a excel részére (ezek nem sikerültek
)
Ami még inkább érdekes, hogy csak excel esetében van ez.
-
Zsolt_16
tag
válasz
Zsolt_16
#42742
üzenetére
Sajnos nekem az automatikus számolás lenne megfelelő, ami működik is viszont ha office 365-el megnyitom néha néha a közelítési érték engedélyezését kiveszi és így nem számolja ki az időt
Szépen vissza állítom ahogy kell mentés de akik a onedrive felületen dolgoznak (~40fő) náluk sokszor nem jelenik meg a dátum míg nálam asztali felületen (o365) igen, olyan mintha ez a szinkron nem kerülne át a online felülető excelre
Valakinek ötlet?
-
#43021
Colin111
csendes tag
Lasersailing
#43020
Colin111
csendes tag
válasz
Lasersailing
#43020
üzenetére
néztem, excel 100% processzor foglaltságot okozott
-
Colin111
csendes tag
Üdv,
Olyan gondom adódott, hogy egy pár éves gépen egy nagyobb excel táblába (54ezer sor * 13 oszlop - de még csak az induló adatokkal - függvények nélkül) az 1500 subtotal kiszámítása egy oszlopra a darabszám értékére kb. 40 percig tartott. 
Gép MSI H81M alaplapban egy Intel Celeron G1840 4Gb RAM-al - WIN10 64bit+Excel 2016
Egy új gépen ez nem egészen 2 percig tartott - ezen is WIN10 64bit+Excel 2016 van
Ha valakinek van javaslata az előbbi gép bővítésére (kivéve a vegyél újat) érdekelne, hogy elég lenne-e proci+ ram bővítés, mivel minden más tökéletesen működik rajta.
Azért nem akarom lecserélni, mert ilyen feladat elég ritkán szokott előfordulni...
Előre is köszi!
Üdv, -
#43018
lanszelot
addikt
Fire/SOUL/CD
#43012
lanszelot
addikt
válasz
Fire/SOUL/CD
#43012
üzenetére
Sikerült
Köszönöm szépen -
ny.janos
tag
válasz
marec1122
#43016
üzenetére
Szia!
Ha ezzel a cellával közvetlen műveletet nem végzel, de az ehhez az adathoz tartozó sorban szereplő további adatokkal végeznél bármilyen műveletet, akkor legyél óvatos, mert hibás eredményeket is kaphatsz.
Részleteket itt megtalálod. -
#43014
Fire/SOUL/CD
félisten
marec1122
#43013
-
#43012
Fire/SOUL/CD
félisten
lanszelot
#43010
válasz
lanszelot
#43010
üzenetére
Az a leírás OpenOffice Writer-hez van, Excel-ben nincs ilyen külön "brossúra nyomtatás" opció...
Excelben "kicsit" körülményesebb megvalósítani, de talán ez megoldás lehet a számodra
1. A4-es papírméret mellett létrehozod az A6-os szegmenseket illetve minden egyes oldal egy új munkalapra kerüljön
2. Ellenőrződ az oldaltörést, hogy az csak is a kitöltött szegmensek területét fedje le. (Nyilván Te majd más cellaméreteket használsz, hogy az kiadja az A6 méretet, illetve margók stb beállítás, de utána az oldaltörést mindenképp ellenőrizd le)
3. A nyomtatási képen a képen látható opciók legyenek kiválasztva minden oldalon. (Amennyiben az első munkalapod kész van, minden beállítás passzol, akkor az újabb munkalapokat az első másolataként hozd létre, akkor nem kell a nyomtatási beállításokat minden oldalon beállítgatni) Munka2 munkalap
Nem tudom, ez hasznos-e a számodra, de talán igen...
-
#43009
iceQ!
addikt
Fire/SOUL/CD
#42981
válasz
Fire/SOUL/CD
#42981
üzenetére
Köszönöm
-
lanszelot
addikt
válasz
sztanozs
#43007
üzenetére
Png file-ok.
Nem otthoni nyomtató, céges nagy, az nem fog elcsúszni tuti.
Azért jó az excell mert valahogy meg lehet adni a cellának a méretet hogy fix legyen bármit is teszek benne. Ezután adni kell 1,5 margot mindenhol, hogy tuti nyomtató részbe essen, majd beallitani, hogy pont középen legyen a 4 cella közép vonala.
Ennyi.
Tudom hogy hogy kell, azt is hogy meglehet, csak 15 eve használtam és nem tudom megvalósítani , mert rengeteget változott minden.
Ezért kertem ha vki tudna egy sablont kreálni pl.Az A6 nem pontosan A6 ,csak kb akkora, lényeg hogy kicsi legyen, mert A5 nagy.
-
-
válasz
Protezis
#43004
üzenetére
Megoldásként szóba jöhet, hogy lemakrózod a fájlt és veryhidden-re állítod azokat a lapokat amelyek érzékenyek (jelszavas azonosítással). Akkor kézzel nem lehet megjeleníteni őket (nem látszanak az Unhide sheets ablakban).
Persze ettől még kézzel ki hozzá lehet férni az adatokhoz "hátulról".Én ezt mindenesetre nem excelben csinálnám...
-
lanszelot
addikt
válasz
sztanozs
#43002
üzenetére
Ezek A5 ös méretűek lesznek.
Nekem A6 kell, az a fele ennek.
Se a nyomtató, se a word.
És akkor még ott jön az elcsúszás probléma a dupla oldalnál, mivel nem hajszál pontosan ugyanakkora képek.
A kép amit küldtél az füzet, nem könyv.
Írtam, hogy 1 lapon 4+4 oldal van 1-4, 5-8..stb
Le is írtam hogy a lapfordítás miatt hogy van elrendezve szerintem. -
válasz
lanszelot
#43001
üzenetére
Booklet módban kell nyomtatni, ha támogatja a nyomtató.
Xerox pl:
Wordben viszont nem kell nyomtató támogatás, tudja alapból is:
https://support.office.com/hu-hu/article/f%c3%bczet-vagy-k%c3%b6nyv-l%c3%a9trehoz%c3%a1sa-a-wordben-dfd94694-fa4f-4c71-a1c7-737c31539e4a?ui=hu-HU&rs=hu-HU&ad=HU -
lanszelot
addikt
Hello,
Egy kis könyvet szeretnék nyomtatni Valentin napra. A6-osméretűt.
A nyomtatóban A4 papír van.
40 darab képből állna a könyv.
2 oldalas nyomtatással szeretném, 2 oldal hajtva, tehát nem laponként, és úgy raknám egymás mellé majd ragasztanám az élét.
Hogy kell nyomtatnom, hogy ne csússzon el a fordításnál, illetve mely oldalak hova kerülnek?
4-1 8-5 az egyik oldal. 2-3 6-7 a masik? Jól gondolom?
Van ilyen sablon? Vagy tudna valaki csinálni, hogy csak be kelljen dobálnom a képeket?
Egy dolgot szeretnék még megoldani, hogy lehetséges úgy megoldani, hogy a kép egy másik lapon van mint a lista ami kzül lehet választani?
köszi :)
nem ebbe ,de példának jó! 
Új hozzászólás Aktív témák
- Bemutatta második generációs harmonikamobilját a Huawei
- Kormányok / autós szimulátorok topikja
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- foobar2000
- Samsung Galaxy Tab tablet topik
- Linux Mint
- Autós topik
- Eredeti játékok OFF topik
- OLED TV topic
- AMD Navi Radeon™ RX 9xxx sorozat
- További aktív témák...
- ÚJ Lenovo LOQ 15IRX9 - QHD 165Hz - i7-13650HX - 16GB - 1TB - RTX 4060 - Win11 - 3 év garancia - HUN
- GYÖNYÖRŰ iPhone 15 Plus 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3353
- Készpénzes számítógép PC félkonfig alkatrész hardver felvásárlás személyesen / postával korrekt áron
- Lenovo Thinkpad 13 Core i3-7100 / 8GB DDR4 / 256GB SSD
- LG 27UL550-W - 27" IPS / 3840x2160 4K / 60Hz 5ms / HDR10 / AMD FreeSync
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest