-
PROHARDVER!
PROHARDVER!
Új hozzászólás Aktív témák
-
lappy
őstag
Családi költségvetés tervezés aktuális a drágulások miatt, solver használatát javasolták, de az nekem túl bonyolultnak tűnik, segítséget kérnék, ha lehet.
-
Kence Fice
csendes tag
Sziasztok.
Ismerősömnek kellene segítenem a makrókját átírni, mert egy hálózati meghajtója költözött Sharepoint alá és a makró hibára fut, melyet nemsokára kifejtek.
A makró maga, annyit csinál, hogy a központi meghajtóról bekeresi az összes Excel-t, majd a megadott cellákat a makrós Excel fájl munkaljaira behivatkozza.
Eredeti makró elérési útja így néz ki kb:
- Ha felcsatolt a gépére a hálózati meghajtót, akkor ilyesmi elérési utat ad meg => E:\Mappa
- Ha nincs felcsatolva akkor a szokásosat => \\halozatimeghajto\Mappa
Makróban 1 gomb van, paraméternek ezt az 1 elérési utat (stringet) kell megadni.Ez szépen futott mindaddig, amíg Sharepoint alá nem kerültek fel a fájlok.
A makró kódja kb így működik: LinkSet oFSO=Createobject("Scripting.FileSystemObject")Set Folder=oFSO.GetFolder(sPath)=> itt dob Error 76 vagy error 52-t , hogy rossz elérési út
Sharepointban az alábbi elérési út lett most neki:
https:\\valami.sharepoint.com\sites\Mappa1
Utánnaolvasva pár átalakítást végeztem neki de nem jutottam sikerrel:sPath="https:\\valami.sharepoint.com\sites\Mappa1"if mid(sPath,len(sPath),1) <>"\" thensPath=sPath & "\" 'Hozzáfűzök egy "\" jelet ha nincs megadva az elérési út végénend ifsPath=replace(sPath,"\","/")sPath=replace(sPath," ","%20") 'Ha lenne benne space akkor cserélni kell a karaktereketsPath=replace(sPath,"https:","")Set oFSO=Createobject("Scripting.FileSystemObject")'Átalakítások után ez lenne az elérési út: //valami.sharepoint.com/sites/Mappa1/Set Folder=oFSO.GetFolder(sPath) => itt ismét hiba van, szintúgy 52 vagy 76-oes error-al ami a rossz elérési útat jelenti.Próbálkoztam az alábbi elérési utakkal, de szintúgy 52 és 76os error-ra jutottam:
1. fordított perjelekkel is: \\valami.sharepoint.com\sites\Mappa1\
2. hozzáadtam @SSL vagy @SSL/DavWWWRoot-ot is : \\valami.sharepoint.com@SSL\sites\Mappa1\ vagy \\valami.sharepoint.com@SSL\DavWWWRoo\sites\Mappa1\
3. próbáltam fordítva is: //valami.sharepoint.com@SSL/sites/Mappa1/ vagy //valami.sharepoint.com@SSL/DavWWWRoo/sites/Mappa1/Ötletem még a MapNetworkDrive használata lett volna, amit sosem használtam. Itt gond lenne szerintem ahogy a hivatalos oldalt és pár kódot láttam, mert a behivatkozott fájlok helyett a MapNetworkDrive-nak megadott akármilyen betüjelet használná, ami nem jó sajnos.
Valakinek van valamilyen ötlete , hogy lehet egy Sharepoint mappában (amiben van almappa is) Excel fájlokat (*.xlsx) megkeresi az összeset?
Segítséget előre is köszönöm.
-
stigma
addikt
Sziasztok.
Ismerősömnek kellene segítenem a makrókját átírni, mert egy hálózati meghajtója költözött Sharepoint alá és a makró hibára fut, melyet nemsokára kifejtek.
A makró maga, annyit csinál, hogy a központi meghajtóról bekeresi az összes Excel-t, majd a megadott cellákat a makrós Excel fájl munkaljaira behivatkozza.
Eredeti makró elérési útja így néz ki kb:
- Ha felcsatolt a gépére a hálózati meghajtót, akkor ilyesmi elérési utat ad meg => E:\Mappa
- Ha nincs felcsatolva akkor a szokásosat => \\halozatimeghajto\Mappa
Makróban 1 gomb van, paraméternek ezt az 1 elérési utat (stringet) kell megadni.Ez szépen futott mindaddig, amíg Sharepoint alá nem kerültek fel a fájlok.
A makró kódja kb így működik: LinkSet oFSO=Createobject("Scripting.FileSystemObject")Set Folder=oFSO.GetFolder(sPath)=> itt dob Error 76 vagy error 52-t , hogy rossz elérési út
Sharepointban az alábbi elérési út lett most neki:
https:\\valami.sharepoint.com\sites\Mappa1
Utánnaolvasva pár átalakítást végeztem neki de nem jutottam sikerrel:sPath="https:\\valami.sharepoint.com\sites\Mappa1"if mid(sPath,len(sPath),1) <>"\" thensPath=sPath & "\" 'Hozzáfűzök egy "\" jelet ha nincs megadva az elérési út végénend ifsPath=replace(sPath,"\","/")sPath=replace(sPath," ","%20") 'Ha lenne benne space akkor cserélni kell a karaktereketsPath=replace(sPath,"https:","")Set oFSO=Createobject("Scripting.FileSystemObject")'Átalakítások után ez lenne az elérési út: //valami.sharepoint.com/sites/Mappa1/Set Folder=oFSO.GetFolder(sPath) => itt ismét hiba van, szintúgy 52 vagy 76-oes error-al ami a rossz elérési útat jelenti.Próbálkoztam az alábbi elérési utakkal, de szintúgy 52 és 76os error-ra jutottam:
1. fordított perjelekkel is: \\valami.sharepoint.com\sites\Mappa1\
2. hozzáadtam @SSL vagy @SSL/DavWWWRoot-ot is : \\valami.sharepoint.com@SSL\sites\Mappa1\ vagy \\valami.sharepoint.com@SSL\DavWWWRoo\sites\Mappa1\
3. próbáltam fordítva is: //valami.sharepoint.com@SSL/sites/Mappa1/ vagy //valami.sharepoint.com@SSL/DavWWWRoo/sites/Mappa1/Ötletem még a MapNetworkDrive használata lett volna, amit sosem használtam. Itt gond lenne szerintem ahogy a hivatalos oldalt és pár kódot láttam, mert a behivatkozott fájlok helyett a MapNetworkDrive-nak megadott akármilyen betüjelet használná, ami nem jó sajnos.
Valakinek van valamilyen ötlete , hogy lehet egy Sharepoint mappában (amiben van almappa is) Excel fájlokat (*.xlsx) megkeresi az összeset?
Segítséget előre is köszönöm.
-
Szia,
Lekérdezések kombinálása kell neked. Legyen mondjuk ez a kiinduló állapot.
Lépések:
1. A bal oldali adatsort töltsd be PQ-be, majd bármi módosítás nélkül Bezárás és betöltés opcióval gyere vissza excelbe.
2. Most állj a másik adatsorra és azt is töltsd be PQ-be. Bal oldalt látni fogod mindkét lekérdezést. Jobb oldalt pedig a lekérdezésekben használt lépések láthatóak. Itt érdemes a lekérdezésnek vmi értelmesebb nevet adni, de nem kötelező.
3. Válaszd ki bal oldalt az első lekérdezést, majd Fájl menü -> Lekérdezések egyesítése opciót válaszd ki.
Fent automatikusan megjelenik az aktuális lekérdezés, középen a legördülő listából válaszd ki a másikat.
4. Fent és lent is kattints arra az oszlopra amely alapján az egyesítést meg kell csinálni. (Itt akár több oszlopot is ki lehet jelölni, ekkor egy kis sorszám is megjelenik a fejlécben. Ekkor fontos hogy mindkét helyen azonos sorrendben legyenek kijelölve a dolgok).
5. Alul a csatlakozás (join) tipusa alapból jó, de lehet választani ha neked más egyesített halmaz kell.
6. OK-val kapsz egy új oszlopot, amelynek a jobb felső sarkába kattintva válaszd a kibontást és jelöld be azokat az oszlopokat amelyekre szükséged van. Érdemes alul - eredeti oszlopnév előtagból - kivenni a pipát.
7. Készen is vagy, lehet a bezárást és betöltést használni.
8. Ha zavar, hogy a lookup táblát egy új munkalapra betöltötte az Excel, akkor csak töröld azt a lapot. Ettől a lekérdezés még menni fog, de átváltozik kapcsolódásra (only connection), amely azt jelenti hogy minden lépés ami a lekérdezésben történik nem jelenik meg munkalapon, de továbbra is használható más lekérdezésekben.A fenti lépésekkel a teljes egyezéses FKERES-t tudod helyettesíteni. Sok adat esetén szignifikánsan gyorsabb. A közeltítő egyezéses FKERES (tipikus példa számok keresése egy tartományban) máshogy néz ki PQ-ben.
üdv
Szia,
Szuper ngyon szépen köszönöm.
-
Szia,
Úgy látom nagyon otthon vagy ebben a PQ-ben. Még egy hasonló problémám lenne mint az előző ez is egy kis "automatikus" feltöltés lenne.
Eddig eljutottam:
Minden oszlop1 adat mellé oszlop hozzáadással megcsináltam ezt:
Oszlop1 Egyéni
1001927 1464832
1001927 1165245
1002246 1464832
1002246 1165245
1005867 1464832
1005867 1165245
1004732 1464832
1004732 1165245Viszont azt szeretném egy új oszlopban, hogy az egyéni oszlopban található azonos kódok esetén ugyanaz a szám kerüljön.
Valahogy így:
Oszlop1 Egyéni
1001927 1464832 40
1001927 1165245 30
1002246 1464832 40
1002246 1165245 30
1005867 1464832 40
1005867 1165245 30
1004732 1464832 40
1004732 1165245 30Az oszlop hozzáadásnál valahogy meg tudom határozni, hogy már ne többszörözze a sorokat?
Jelenleg egy fkeressel már excelben megoldom, de ha lenne valami hasonló módszer az nagyon jó lenne.
Előre is köszönöm.
Szia,
Lekérdezések kombinálása kell neked. Legyen mondjuk ez a kiinduló állapot.
Lépések:
1. A bal oldali adatsort töltsd be PQ-be, majd bármi módosítás nélkül Bezárás és betöltés opcióval gyere vissza excelbe.
2. Most állj a másik adatsorra és azt is töltsd be PQ-be. Bal oldalt látni fogod mindkét lekérdezést. Jobb oldalt pedig a lekérdezésekben használt lépések láthatóak. Itt érdemes a lekérdezésnek vmi értelmesebb nevet adni, de nem kötelező.
3. Válaszd ki bal oldalt az első lekérdezést, majd Fájl menü -> Lekérdezések egyesítése opciót válaszd ki.
Fent automatikusan megjelenik az aktuális lekérdezés, középen a legördülő listából válaszd ki a másikat.
4. Fent és lent is kattints arra az oszlopra amely alapján az egyesítést meg kell csinálni. (Itt akár több oszlopot is ki lehet jelölni, ekkor egy kis sorszám is megjelenik a fejlécben. Ekkor fontos hogy mindkét helyen azonos sorrendben legyenek kijelölve a dolgok).
5. Alul a csatlakozás (join) tipusa alapból jó, de lehet választani ha neked más egyesített halmaz kell.
6. OK-val kapsz egy új oszlopot, amelynek a jobb felső sarkába kattintva válaszd a kibontást és jelöld be azokat az oszlopokat amelyekre szükséged van. Érdemes alul - eredeti oszlopnév előtagból - kivenni a pipát.
7. Készen is vagy, lehet a bezárást és betöltést használni.
8. Ha zavar, hogy a lookup táblát egy új munkalapra betöltötte az Excel, akkor csak töröld azt a lapot. Ettől a lekérdezés még menni fog, de átváltozik kapcsolódásra (only connection), amely azt jelenti hogy minden lépés ami a lekérdezésben történik nem jelenik meg munkalapon, de továbbra is használható más lekérdezésekben.A fenti lépésekkel a teljes egyezéses FKERES-t tudod helyettesíteni. Sok adat esetén szignifikánsan gyorsabb. A közeltítő egyezéses FKERES (tipikus példa számok keresése egy tartományban) máshogy néz ki PQ-ben.
üdv
-
Szia,
Az A-oszlopban vannak egymás után az azonosítók. Egy Power Querys (PQ) megoldás, ami Excel 2016-tól működik.
1. A-oszlopban vmelyik elemen állsz, majd Adatok fülön Táblázatokból/tartományból ikonra kattintva betölti az adatokat PQ-be.
2. Átalakítás menüben válaszd a Transzponálást (ezzel minden azonosítót külön oszlopba tudunk tenni).
3. Oszlop hozzáadása -> Egyéni oszlop. A képlet pedig {44927..44927+365}
Kapcsos zárójelek listát jelentenek a PQ-ben, ha a két pont pedig felsorolást pl. {1..5} visszadja a számokat 1-től 5-ig. A 44927 pedig az Excelben 2023. jan. 1-et jelenti, ha dátumformátumot választunk.
4. Az új oszlop jobb felsősorkában lévő ikonra kattintva válaszd a kibontás új sorokba opciót.
5. Továbbra is ezen az oszlopon állva, de most a bal oldalt az ABC123-ra kattintva válaszd a Dátum formátumot.
6. Kezdőlapon Bezárás és betöltés ikont válaszd.üdv
Szia,
Úgy látom nagyon otthon vagy ebben a PQ-ben. Még egy hasonló problémám lenne mint az előző ez is egy kis "automatikus" feltöltés lenne.
Eddig eljutottam:
Minden oszlop1 adat mellé oszlop hozzáadással megcsináltam ezt:
Oszlop1 Egyéni
1001927 1464832
1001927 1165245
1002246 1464832
1002246 1165245
1005867 1464832
1005867 1165245
1004732 1464832
1004732 1165245Viszont azt szeretném egy új oszlopban, hogy az egyéni oszlopban található azonos kódok esetén ugyanaz a szám kerüljön.
Valahogy így:
Oszlop1 Egyéni
1001927 1464832 40
1001927 1165245 30
1002246 1464832 40
1002246 1165245 30
1005867 1464832 40
1005867 1165245 30
1004732 1464832 40
1004732 1165245 30Az oszlop hozzáadásnál valahogy meg tudom határozni, hogy már ne többszörözze a sorokat?
Jelenleg egy fkeressel már excelben megoldom, de ha lenne valami hasonló módszer az nagyon jó lenne.
Előre is köszönöm.
-
Szia!
A PowerPivotban van olyan opció a lekérdezés szerkesztő nézetben az átalakítás csoportban, hogy értékek lecserélése. Próbáld ki ott a "(üres)" értéket lecserélni valódi üres cellára, azaz a csere a következőre részt teljesen üresen hagyni.
Üdv.Köszi, működik!
@Mutt:
Köszi neked is! A szóköz (érték átírásos) trükköt ismertem, csak ezzel két kisebb gond van: egyrészt ezt mezőnként be kell állítani, ami adott esetben 40-50 mezőn végig, hát... túl manuális. Másrészt, ekkor azért a space értéke benne marad, másolás után látszik, ezt meggondolandó azért visszatölteni az adatbáziba.
De a visszacsinálás két módját megnéztem, az még nagyon hasznos a jövőre! -
Sziasztok!
Magyar O365-öt használok munkahelyen (verzió: 2207, build: 15427.20210). PowerQuery-n keresztül SQL selecttel kapcsolódom Oracle adatbázishoz, s az Excelben pivotba (a sorokba) húzom be az adatokat. A gond, hogy ahol az adatbázisban nincs adat, az Excel a pivotban azt mutatja, ill. tölti fel értékkel, hogy "(üres)". Az adatokat a pivotból értékkel való kimásolás és egyes módosítások után vissza kell töltenem az adatbázisba, emiatt külön törölnöm kell kézzel ezeket az "(üres)" szöveg tartalmú mezőket, hiszen azok valóban üresek kellenek legyenek számomra (már ha nem azokat a mezőket kellene eleve módosítanom persze, de általában nem
).
A pivot beállításainál természetesen az üres cella esetén megjelenítenő beállításnál nem szerepel semmi beírva, de egyébként bármire átállíthatom, nem módosít semmit - beírhatok akármit, kivehetem a pipát előle vagy vissza, mindegy, nincs változás!
A Powerpivotban ránézve az adatmodellre az üres mező valóban üres.Van arra megoldás, hogy az üres valóban üres legyen (értékként) a pivotban...?
Nem megjelenítési megoldásra van szükségem, látszólag eltüntetni a pivotból el tudom, hogy üresként jelenjen meg, de az értékkel kimásolás után megmarad a szöveges értéke, ez a gond.
Köszönöm!
-
Sziasztok!
Magyar O365-öt használok munkahelyen (verzió: 2207, build: 15427.20210). PowerQuery-n keresztül SQL selecttel kapcsolódom Oracle adatbázishoz, s az Excelben pivotba (a sorokba) húzom be az adatokat. A gond, hogy ahol az adatbázisban nincs adat, az Excel a pivotban azt mutatja, ill. tölti fel értékkel, hogy "(üres)". Az adatokat a pivotból értékkel való kimásolás és egyes módosítások után vissza kell töltenem az adatbázisba, emiatt külön törölnöm kell kézzel ezeket az "(üres)" szöveg tartalmú mezőket, hiszen azok valóban üresek kellenek legyenek számomra (már ha nem azokat a mezőket kellene eleve módosítanom persze, de általában nem
).
A pivot beállításainál természetesen az üres cella esetén megjelenítenő beállításnál nem szerepel semmi beírva, de egyébként bármire átállíthatom, nem módosít semmit - beírhatok akármit, kivehetem a pipát előle vagy vissza, mindegy, nincs változás!
A Powerpivotban ránézve az adatmodellre az üres mező valóban üres.Van arra megoldás, hogy az üres valóban üres legyen (értékként) a pivotban...?
Nem megjelenítési megoldásra van szükségem, látszólag eltüntetni a pivotból el tudom, hogy üresként jelenjen meg, de az értékkel kimásolás után megmarad a szöveges értéke, ez a gond.
Köszönöm!
Szia!
A PowerPivotban van olyan opció a lekérdezés szerkesztő nézetben az átalakítás csoportban, hogy értékek lecserélése. Próbáld ki ott a "(üres)" értéket lecserélni valódi üres cellára, azaz a csere a következőre részt teljesen üresen hagyni.
Üdv. -
Misi_D
tag
Sziasztok!
Magyar O365-öt használok munkahelyen (verzió: 2207, build: 15427.20210). PowerQuery-n keresztül SQL selecttel kapcsolódom Oracle adatbázishoz, s az Excelben pivotba (a sorokba) húzom be az adatokat. A gond, hogy ahol az adatbázisban nincs adat, az Excel a pivotban azt mutatja, ill. tölti fel értékkel, hogy "(üres)". Az adatokat a pivotból értékkel való kimásolás és egyes módosítások után vissza kell töltenem az adatbázisba, emiatt külön törölnöm kell kézzel ezeket az "(üres)" szöveg tartalmú mezőket, hiszen azok valóban üresek kellenek legyenek számomra (már ha nem azokat a mezőket kellene eleve módosítanom persze, de általában nem
).
A pivot beállításainál természetesen az üres cella esetén megjelenítenő beállításnál nem szerepel semmi beírva, de egyébként bármire átállíthatom, nem módosít semmit - beírhatok akármit, kivehetem a pipát előle vagy vissza, mindegy, nincs változás!
A Powerpivotban ránézve az adatmodellre az üres mező valóban üres.Van arra megoldás, hogy az üres valóban üres legyen (értékként) a pivotban...?
Nem megjelenítési megoldásra van szükségem, látszólag eltüntetni a pivotból el tudom, hogy üresként jelenjen meg, de az értékkel kimásolás után megmarad a szöveges értéke, ez a gond.
Köszönöm!
-
Fire/SOUL/CD
félisten
-
Szia,
Pivot táblában át engedi írni az excel az értékeket, pl. "kutya"-t "macska"-ra.
28 év Excel használata során nem használtam ezt a dolgot, szóval tanultam vmit.
Nem találtam róla semmit, de ezzel a VBA kóddal a munkalap összes kimutatását rendbe tudod tenni.Sub GetBackTheOriginalItemNames()
Dim WB As Workbook
Dim WS As Worksheet
Dim PT As PivotTable
Dim PF As PivotField
Dim PI As PivotItem
Set WB = ThisWorkbook
For Each WS In WB.Worksheets
For Each PT In WS.PivotTables
For Each PF In PT.RowFields
For Each PI In PF.PivotItems
If PI.Name <> PI.SourceName Then PI.Name = PI.SourceName
Next PI
Next PF
Next PT
Next WS
End Subüdv
-
Sziasztok,
Szeretnék segítséget kérni abban, hogy van kb. 100-150db 7 karakteres azonosítóm. Ami pl. az "A" oszlopban található egymás alatt. Ezt szeretném, hogy minden azonosító 365 soron jelenjen meg és minden azonosító mellett 2023.01.01-2023.12.31-ig jelenjenek meg a dátumok.
Kb. így:
1111111 2023.01.01
1111111 2023.01.02
s
t
b
1111111 2023.12.31
2222222 2023.01.01
2222222 2023.01.02
s
t
b
2222222 2023.12.31Az azonosítók mind különbözőek. Erre tudnátok valami egyszerű módszert javasolni?
Előre is köszönöm.
-
Szia,
Az A-oszlopban vannak egymás után az azonosítók. Egy Power Querys (PQ) megoldás, ami Excel 2016-tól működik.
1. A-oszlopban vmelyik elemen állsz, majd Adatok fülön Táblázatokból/tartományból ikonra kattintva betölti az adatokat PQ-be.
2. Átalakítás menüben válaszd a Transzponálást (ezzel minden azonosítót külön oszlopba tudunk tenni).
3. Oszlop hozzáadása -> Egyéni oszlop. A képlet pedig {44927..44927+365}
Kapcsos zárójelek listát jelentenek a PQ-ben, ha a két pont pedig felsorolást pl. {1..5} visszadja a számokat 1-től 5-ig. A 44927 pedig az Excelben 2023. jan. 1-et jelenti, ha dátumformátumot választunk.
4. Az új oszlop jobb felsősorkában lévő ikonra kattintva válaszd a kibontás új sorokba opciót.
5. Továbbra is ezen az oszlopon állva, de most a bal oldalt az ABC123-ra kattintva válaszd a Dátum formátumot.
6. Kezdőlapon Bezárás és betöltés ikont válaszd.üdv
-
Szerintem rosszul fogalmaztam és már csak azt mutattam mit akarok a végén.
Tehát jelenleg A oszlopban ez van:
1111111
2222222
3333333
4444444pl: a 1111111-et szeretném 365 sorban, hogy a B oszlopba tudjam berakni a dátumot január 1-től december 31-ig
Minden azonosítót 365 soron szeretnék látni.
Szia,
Az A-oszlopban vannak egymás után az azonosítók. Egy Power Querys (PQ) megoldás, ami Excel 2016-tól működik.
1. A-oszlopban vmelyik elemen állsz, majd Adatok fülön Táblázatokból/tartományból ikonra kattintva betölti az adatokat PQ-be.
2. Átalakítás menüben válaszd a Transzponálást (ezzel minden azonosítót külön oszlopba tudunk tenni).
3. Oszlop hozzáadása -> Egyéni oszlop. A képlet pedig {44927..44927+365}
Kapcsos zárójelek listát jelentenek a PQ-ben, ha a két pont pedig felsorolást pl. {1..5} visszadja a számokat 1-től 5-ig. A 44927 pedig az Excelben 2023. jan. 1-et jelenti, ha dátumformátumot választunk.
4. Az új oszlop jobb felsősorkában lévő ikonra kattintva válaszd a kibontás új sorokba opciót.
5. Továbbra is ezen az oszlopon állva, de most a bal oldalt az ABC123-ra kattintva válaszd a Dátum formátumot.
6. Kezdőlapon Bezárás és betöltés ikont válaszd.üdv
-
Segedoszlopban a dátumok majd összefűzöd a két értéket
Vagy egyben is lehet összefűzés és dátum függvényel ahol kezdő dátum van megadva majd a következő sorban dátum +1Szerintem rosszul fogalmaztam és már csak azt mutattam mit akarok a végén.
Tehát jelenleg A oszlopban ez van:
1111111
2222222
3333333
4444444pl: a 1111111-et szeretném 365 sorban, hogy a B oszlopba tudjam berakni a dátumot január 1-től december 31-ig
Minden azonosítót 365 soron szeretnék látni.
-
Sziasztok,
Szeretnék segítséget kérni abban, hogy van kb. 100-150db 7 karakteres azonosítóm. Ami pl. az "A" oszlopban található egymás alatt. Ezt szeretném, hogy minden azonosító 365 soron jelenjen meg és minden azonosító mellett 2023.01.01-2023.12.31-ig jelenjenek meg a dátumok.
Kb. így:
1111111 2023.01.01
1111111 2023.01.02
s
t
b
1111111 2023.12.31
2222222 2023.01.01
2222222 2023.01.02
s
t
b
2222222 2023.12.31Az azonosítók mind különbözőek. Erre tudnátok valami egyszerű módszert javasolni?
Előre is köszönöm.
-
Sziasztok,
Pivot táblában át engedi írni az excel az értékeket, pl. "kutya"-t "macska"-ra. Persze az adatbázis szerveren a mögöttes adat az nem változik meg, de a pivot innentől az átírt értéket mutatja.
Ami a problémám ezzel, hogy ha ráfrissítek a pivot táblára, a módosított értékek akkor sem változnak vissza az eredetire, hanem innentől már az általam beírtat mutatja adatfrissítés után is.
Na ezt szeretném valahogy visszaállítani az eredetire, ebben kérnék segítséget.
köszönöm. -
-
adott egy tábla (megrendelésre használjuk), aminek az egyik oszlopa kitölthető csak
azt szeretném, ha lenne egy minimum érték, aminél kisebbet egyszerűen nem lehetne bele írni a cellába (pl 5-nél)
most egy felugró jelzés van ott, de a cella értéke ennek ellenére is állítható 2-re, ha leokézza a júzer a hibajelzést
a legördülő lista azért nem jó, mert 5 és 5555 között bármekkora szám írható kell legyenVigyél be érvényesítést a cellákba.
-
adott egy tábla (megrendelésre használjuk), aminek az egyik oszlopa kitölthető csak
azt szeretném, ha lenne egy minimum érték, aminél kisebbet egyszerűen nem lehetne bele írni a cellába (pl 5-nél)
most egy felugró jelzés van ott, de a cella értéke ennek ellenére is állítható 2-re, ha leokézza a júzer a hibajelzést
a legördülő lista azért nem jó, mert 5 és 5555 között bármekkora szám írható kell legyen -
lappy
őstag
Sziasztok!
Van egy gondom, hogy nevek lettek szétbontva excelben, vezeték és kereszteévekre. De van ugye olyan személy akinek kettő keresztneve van.
Nos a felállás az, hogy generálni szeretnék egy olyat, hogy a vezetéknév és a keresztnév/nevek pontokkal elválasztva kerüljön egy adott cellába. A második keresztnévvel vagyok gondban. Nem vagyok egy nagy excel guru, így lövésem nincs pontosan mi lehet a megoldás. Ha függvénnyel próbálkoztam, de nem az elvárt eredményt hozta sajnos...
Példa:
=ÖSSZEFŰZ(C2;".";D2;(HA(E2="";"";E2));"@";F2)
A C2-es cella a vezetéknév, a D2-es az első keresztnév, az E2-es a második. Az F2-ben meg egyéb adat, az email címek vége található.
pl.: Mekk Elek Elek és ebből kellene. De úgy készíti ugye el, hogy Mekk.ElekElek és szükségem lenne egy pontra a két keresztnév közé, ha egyáltalán az adott személynek van második keresztneve amit az E2-es cella tartalmaz. Ha nincs neki, akkor pedig simán legenerálja azt amit kell neki. Ezt meg is oldottam. Csak a pontos második keresztnév akasztott meg.
VAGY függvény lenne a megoldás? De milyen formában??
Előre is nagyon köszönöm a segítséget és előre is bocsánat a bénázásért... -
lappy
őstag
Sziasztok!
Van egy gondom, hogy nevek lettek szétbontva excelben, vezeték és kereszteévekre. De van ugye olyan személy akinek kettő keresztneve van.
Nos a felállás az, hogy generálni szeretnék egy olyat, hogy a vezetéknév és a keresztnév/nevek pontokkal elválasztva kerüljön egy adott cellába. A második keresztnévvel vagyok gondban. Nem vagyok egy nagy excel guru, így lövésem nincs pontosan mi lehet a megoldás. Ha függvénnyel próbálkoztam, de nem az elvárt eredményt hozta sajnos...
Példa:
=ÖSSZEFŰZ(C2;".";D2;(HA(E2="";"";E2));"@";F2)
A C2-es cella a vezetéknév, a D2-es az első keresztnév, az E2-es a második. Az F2-ben meg egyéb adat, az email címek vége található.
pl.: Mekk Elek Elek és ebből kellene. De úgy készíti ugye el, hogy Mekk.ElekElek és szükségem lenne egy pontra a két keresztnév közé, ha egyáltalán az adott személynek van második keresztneve amit az E2-es cella tartalmaz. Ha nincs neki, akkor pedig simán legenerálja azt amit kell neki. Ezt meg is oldottam. Csak a pontos második keresztnév akasztott meg.
VAGY függvény lenne a megoldás? De milyen formában??
Előre is nagyon köszönöm a segítséget és előre is bocsánat a bénázásért... -
soslajos1987
csendes tag
-
xkoti
senior tag
Sziasztok!
Egy adott oszlopban dátumok szerepelnek ez a D6-tól indulna per pillanat egészen a D50-ig.
Nah már most hogy tudnám azt beállítani hogy 20 nap elteltével kiemelje színesen azt a cellát ami már "lejárt"
.Próbálkoztam a feltételes formázással de valószínűleg rossz függvényt használtam vagy rosszul használtam.
A lényeg hogy a beírt dátumtól számítva 20 nap elteltével emelje ki az adott cellát
(Ha még kicsit homályos amit írtam akkor nem hatott még a kávé
)Egyébként magyar excelt használok és sajnos még 2007-es.
-
Szikravadász
csendes tag
A1-ben van az idő,
[ó]:ppformázott cellában, pl25:11, akkor az alábbi képlet1 nap 1 óra 11 perc-t fog kiírni.=INT(A1) & " nap " & INT(MARADÉK(A1;INT(A1))*24) & " óra " & PERCEK(A1) & " perc" Köszönöm szépen! -
Fire/SOUL/CD
félisten
Sziasztok!
Időformátum beállításban kérnék kis segítséget.
Adott egy oszlop munkadarabok elkészítési idejével [ó]:pp. Egy cellában összesíteném a gép üzemidejét és az értékét szeretném "x nap, y óra, z perc" formában látni. Egyelőre két cellára osztva (külön a nap, külön az órák-percek) működik, de egyrészt nem túl elegáns, másrészt 2 cellát foglal.
Van valami kombinált formátum erre? Próbáltam a sablonok alapján létrehozni, de a legjobb esetben is csak valami furcsa értéket kaptam.
(Office Pro Plus 2019)Előre is köszönöm.
-
Szikravadász
csendes tag
-
Szia!
"Ha munkalapba van téve a kód, akkor nem működik. (Ezt a részét egyelőre nem értem.) ThisWorkbook-ban viszont igen."
Miután esemény vezérlést szeretnél, az csak annak az objektumnak a moduljában szerepelhet, amelynek van olyan eseménye.
Munkalapnak nincs sem open sem close/beforeclose eseménye. Ilyen esemény csak a munkafüzetnél van.
A VBA nézetben ha kiválasztod a munkafüzet(Thisworkbook) illetve bármelyik munkalap kódlapját, a bal oldalon találsz egy legördülőt, amiben General illetve Workbook/Worksheet választható ki. Ha ez utóbbit választod ki akkor a jobb oldali lenyílóban a füzethez, laphoz tartozó eseményeket láthatod és választhatod ki. Ezekhez írhatsz vezérlő kódokat. General kiválasztásakor a jobb oldalon az adott modulban levő - nem eseményvezérelt - eljárások (Sub, Function) listája látható-
Üdv.Ejha, nagyon köszönöm az alapos magyarázatot!
Így már minden világos. -
Így vagy úgy, de fura. Ha munkalapba van téve a kód, akkor nem működik. (Ezt a részét egyelőre nem értem.) ThisWorkbook-ban viszont igen. Egy dolgon kellett módosítani, mert talán nincs simán olyan, hogy Workbook_Close (tulajdonképp logikus), csak olyan, hogy Workbook_BeforeClose:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.WindowState = xlMaximized
End SubHa csak a
DisplayFullScreenvan a kódban, akkor ugyan újra megjeleníti a ribbont, viszont ablak méretűvé változtatja a file-t, ezért kell bele aWindowStateis. De akármilyen módban is hagyom ekkor (ribbon mutatás/rejtés, vagy épp ablak/teljes képernyő), a következő file-t annak megfelelően nyitja meg ribonnal vagy anélkül, ablakban vagy teljes képernyőn. -
Egy kis félreértés van, valamelyest becsapós a megfogalmazás.
Van a "teljes képernyő"-nek nevezett nézet, ami annyit csinál, hogy elrejti a menüket, és csak a cellák látszanak (vagyis nagyobb a látható "hasznos" munkaterület). Ezt csinálja az
Application.DisplayFullScreen. Ez működik akkor is, ha az Excelt csak egy ablakban futtatod, vagy ha az ablakméretet maximalizálod ("teljes képernyős ablak"). A lényeg pedig annyi lenne, hogy a makrót tartalmazó file, ablakban vagy nem ablakban ("teljes képernyőn") futtatva is teljes képernyős nézetben, vagyis menük nélkül induljon.Azt viszont nem szeretném, hogy a teljes képernyős nézet (=rejtett menük) más file-ok megnyitásakor is megmaradjon, ezért kapcsolnám ezt ki a Workbook_Close makróval. De ez utóbbi sehogy se működik...
Remélem most már érthetőbben fogalmaztam; nem vagyok teljesen biztos benne.
-
Ha úgy indul hogy teljes képernyő (ami ok) és amikor bezárod akkor ezt
"a második pedig kilépéskor visszaállítaná az eredeti (nem teljes képernyős) nézetet" hogy ellenőrzöd hiszen bezárod
Egy kis félreértés van, valamelyest becsapós a megfogalmazás.
Van a "teljes képernyő"-nek nevezett nézet, ami annyit csinál, hogy elrejti a menüket, és csak a cellák látszanak (vagyis nagyobb a látható "hasznos" munkaterület). Ezt csinálja az
Application.DisplayFullScreen. Ez működik akkor is, ha az Excelt csak egy ablakban futtatod, vagy ha az ablakméretet maximalizálod ("teljes képernyős ablak"). A lényeg pedig annyi lenne, hogy a makrót tartalmazó file, ablakban vagy nem ablakban ("teljes képernyőn") futtatva is teljes képernyős nézetben, vagyis menük nélkül induljon.Azt viszont nem szeretném, hogy a teljes képernyős nézet (=rejtett menük) más file-ok megnyitásakor is megmaradjon, ezért kapcsolnám ezt ki a Workbook_Close makróval. De ez utóbbi sehogy se működik...
Remélem most már érthetőbben fogalmaztam; nem vagyok teljesen biztos benne.
-
Sziasztok!
Van két event makróm:
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.WindowState = xlMaximized
End Sub
Private Sub Workbook_Close()
Application.DisplayFullScreen = False
End SubAz első azt csinálná, hogy kiteszi teljes képernyőre és teljes képernyős nézetre az Excelt a file megnyitásakor, a második pedig kilépéskor visszaállítaná az eredeti (nem teljes képernyős) nézetet.
De valamiért nem mennek... Ha külön elindítom a makrót, akkor működik, de magától nem. Pedig pont ez lenne a lényege. Makrók futása engedélyezve van. Vajon mi lehet a gond?
Közben kipróbáltam úgy, hogy az adott munkalap helyett a ThisWorkbook lapba másoltam a makrókat. Ekkor már az első működik, de a második, a Workbook_Close nem.
Ha úgy indul hogy teljes képernyő (ami ok) és amikor bezárod akkor ezt
"a második pedig kilépéskor visszaállítaná az eredeti (nem teljes képernyős) nézetet" hogy ellenőrzöd hiszen bezárod -
bteebi
veterán
Sziasztok!
Van két event makróm:
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.WindowState = xlMaximized
End Sub
Private Sub Workbook_Close()
Application.DisplayFullScreen = False
End SubAz első azt csinálná, hogy kiteszi teljes képernyőre és teljes képernyős nézetre az Excelt a file megnyitásakor, a második pedig kilépéskor visszaállítaná az eredeti (nem teljes képernyős) nézetet.
De valamiért nem mennek... Ha külön elindítom a makrót, akkor működik, de magától nem. Pedig pont ez lenne a lényege. Makrók futása engedélyezve van. Vajon mi lehet a gond?
Közben kipróbáltam úgy, hogy az adott munkalap helyett a ThisWorkbook lapba másoltam a makrókat. Ekkor már az első működik, de a második, a Workbook_Close nem.
-
Sziasztok!
Excelben megvalósítható-e, hogy a táblázat szűrésénél, csak egy adott tartományon belül rejtsen el / jelenítsen meg sorokat az excel?
[Kiinduló táblázat] [Táblázat szűrés után] -
BalanceR
addikt
Nincs véletlenül valakinek egy kész VBA scriptje erre:
Adott egy xlsx adatokkal [adat.xlsx]
Azt szereném, hogy ha egy másik XLSX-ben futtatom a VBA scriptet az alábbi valósuljon meg:
felugrik egy ablak, ahol be tudok tallózni egy cella-range-et, és egy checkboxban ki tudom választani, melyik oszloba pakolja majd az eredményt. OK gomb nyomásra megynitja az [adat.xlsx]-et, végez egy fkerest az előbb kijelölt cellákkal (mint keresendő, a tábla amiben keres pedig a [adat.xlsx]-tábla a1:Z200) és beilleszti a checkboxban kiválasztott oszlopokba, hiperhivatkozásként. bezárja mentés nélkül az [adat.xlsx]-et. -
Hopsz, kimaradt az az eset, mikor mégis csak 1 kép nevét viszed be egyszerre.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim FN As Picture, CV As Range, ter As Range
Dim KepHelye As String
If Target.Column = 1 Then
Application.EnableEvents = False
If Target.Count > 1 Then
Set ter = Range(Target.Address)
For Each CV In ter
KepHelye = "D:\kepek\" & CV.Value & ".jpg"
With Cells(CV.Row, 2)
Set FN = ActiveSheet.Pictures.Insert(KepHelye)
.RowHeight = Rows(Target.Row).Height
FN.Top = .Top + 1
FN.Left = Columns(2).Left + 1
FN.Height = Rows(Target.Row).Height - 5
FN.Height = .Height
FN.Placement = xlMoveAndSize
End With
Next
Else
KepHelye = "D:\kepek\" & Target.Value & ".jpg"
With Cells(Target.Row, 2)
Set FN = ActiveSheet.Pictures.Insert(KepHelye)
.RowHeight = Rows(Target.Row).Height
FN.Top = .Top + 1
FN.Left = Columns(2).Left + 1
FN.Height = Rows(Target.Row).Height - 5
FN.Height = .Height
FN.Placement = xlMoveAndSize
End With
End If
Application.EnableEvents = True
End If
End SubKöszönöm szépen!
-
Private Sub Worksheet_Change(ByVal Target As Range)Dim FN As Picture, CV As Range, ter As RangeDim KepHelye As StringIf Target.Column = 1 ThenApplication.EnableEvents = FalseIf Target.Count > 1 ThenSet ter = Range(Target.Address)For Each CV In terKepHelye = "D:\kepek\" & CV.Value & ".jpg"With Cells(CV.Row, 2)Set FN = ActiveSheet.Pictures.Insert(KepHelye).RowHeight = Rows(Target.Row).HeightFN.Top = .Top + 1FN.Left = Columns(2).Left + 1FN.Height = Rows(Target.Row).Height - 5FN.Height = .HeightFN.Placement = xlMoveAndSizeEnd WithNextEnd IfApplication.EnableEvents = TrueEnd IfEnd Sub -
"A"-oszlopba szeretném a kép-fálj neveket beilleszteni és mellé közvetlenül a "B"-oszlopban megjeleníteni képpel (ugyan úgy méretezve, ahogyan előzőleg írtad). Ezen kívül csak annyit még, hogy bármi hiba esetén ne álljon meg, hanem hagyja figyelmen kívül, maradjon üres a kép cella.
A képek mondjuk itt vannak: D:\képek -
Rendeld a lapodhoz (lásd Összefoglaló) a lenti makrót:
Private Sub Worksheet_Change(ByVal Target As Range)Dim FN As PictureDim KepHelye As StringIf Target.Column = 1 ThenKepHelye = "C:\kepek\" & Target & ".jpg"With Cells(Target.Row, 2)Set FN = ActiveSheet.Pictures.Insert(KepHelye).RowHeight = Rows(Target.Row).HeightFN.Top = .Top + 1FN.Left = Columns(2).Left + 1FN.Height = Rows(Target.Row).Height - 5FN.Height = .HeightFN.Placement = xlMoveAndSizeEnd WithEnd IfEnd SubSzia
Ez érdekelne engem is
Ez milyen hatásra indul? (még nem ismerem teljesen a makrók működését)
A laphoz rendelt makró önmagától indul arra az eseményre, amire megírtuk (adatbevitel billentyűzetről, jobb klikk, dupla klikk, lapra lépés, stb.). -
-
psg5
veterán
Próbálhatod, de, nem lesz OK...
Osztott (shared) munkafüzettel megoldható, de ha a Delila_1 által adott megoldás is problémás számodra, akkor neki sem fogok kezdeni ennek... Bocsi... -
psg5
veterán
Próbálhatod, de, nem lesz OK...
Osztott (shared) munkafüzettel megoldható, de ha a Delila_1 által adott megoldás is problémás számodra, akkor neki sem fogok kezdeni ennek... Bocsi... -
Fire/SOUL/CD
félisten
Hazertem es kiprobaltam az itthoni gepen itt officebol a legujabb van tokeletesen mukodik.
Cegben egy régebbi verzió van...
Ez megoldható? Marmint hogy regebbinnis mukodjon?
Erdekes hogy a regebbin csinaltam meg es az ujon csak megnyitottam es működik.Próbálhatod, de, nem lesz OK...
Osztott (shared) munkafüzettel megoldható, de ha a Delila_1 által adott megoldás is problémás számodra, akkor neki sem fogok kezdeni ennek... Bocsi...
.
Új hozzászólás Aktív témák
- Android alkalmazások - szoftver kibeszélő topik
- Kormányok / autós szimulátorok topikja
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Samsung Galaxy Watch8 és Watch8 Classic – lelkes hiperaktivitás
- Energiaital topic
- OLED TV topic
- Azonnali informatikai kérdések órája
- Kerékpárosok, bringások ide!
- LEGO klub
- A fociról könnyedén, egy baráti társaságban
- További aktív témák...
- Forza Horizon 6 Premium / Standard Pre-Order kódok
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Eladó PC játékok - sok ritkaság!!!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Dobozos Új DELL XPS 13 9340/ULTRA 7-155H/32 GB Ram/1TB SSD/AI BOOST+INTEL ARC
- HIBÁTLAN iPhone 11 64GB Black-2 ÉV GARANCIA - Kártyafüggetlen, MS4634
- BESZÁMÍTÁS! 32GB G.Skill Trident Z RGB 3200Mhz DDR4 memória garanciával hibátlan működéssel
- Apple iPhone 16e 128 GB White 100% Akkumulátor 12 hónap Garancia Beszámítás Házhozszállítás
- Space Gray MacBook Pro 14" M1 32GB RAM 512 GB 27%-os áfás számla (0442AB)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest