Hozzászólások
-
Szia Anikó!
Jól látod, ez Excel probléma. Az a gond, hogy a CSV eredetileg sima ASCII kódoláshoz lett kitalálva, amerikában, ahol nincsenek speciális karakterek.
Ezen korlát miatt vezették be az UTF (Unicode) kódolást.
Az Excel viszont nem tud UTF kódolt csv-t menteni.(Mondjuk az ö és ű betűkkel nem kellene problémának lennie.)
Lehet, hogy a fájl eredetileg másként van kódolva?A mentés másként-ben van egy ‘Unicode text’mentési lehetőség, ami jó lenne, tehát elvileg megmaradnak a spec karakterek, de cserébe viszont TAB delimitert tesz a text fájlba.
Egyik lehetőség, hogy elmented makróval ilyen TAB delimitált txt-be, majd kinyitod notepad-el, és kicseréled a TAB-okat pontosvesszőre, elmented Unicode-ban.
Ez elég béna, és akárki nem is tudja megcsinálni.Másik lehetőség lehet, hogy az adatokat cellánkét, soronként kell egy új fájlba menteni.
Ez nem egy sima mentés másként, hanem le kell programozni, és úgy menteni a végén.Ezt találtam:
http://stackoverflow.com/questions/2524703/save-text-file-utf-8-encoded-with-vbaEzt esetleg még megpróbálhatod:
http://superuser.com/questions/466267/excel-destroying-special-character-when-saved-as-csvImre
Szia!
Az a helyzet, hogy ilyen esetben azt szoktuk csinálni, hogy dinamikus névtartományokat hozunk létre a listaforrásokból. Ennek legegyszerűbb módja, ha táblázattá alakítjuk, és a belsejét elnevezzük, majd ezt a nevet adjuk meg listaforrásként.
A lépések:
1. csinálsz egy fejlécet a listának
2. beírsz pár elemet egymás alá
3. kijelölöd az egyiket
4. Beszúrás->Táblázat-> OK
5. Kijelölöd az adatokat fejléc nélkül
6. Képletek->Névkezelő (A táblázat már benne lesz)
7. Új…
8. Adsz neki egy nevet, lehetőleg egy szóból
9. Az adatérvényesítési szabályként a lista adatforrása: =névEzek után a listák végére új elemet írva, a táblázatok és vele együtt a név automatikusan kiterjed és az új elemek megjelennek a legördülő menüben.
Ezt csináld meg a másikra is.
Visszatöltöttem neked a megoldást.
Imre
Szia!
Nézd meg a feladatkezelőben, hogy az Excel esetleg nem fut-e két példányban.
A folyamatok között keresd, van-e két Excel.EXE?Valószínűleg ez a baj, azaz két példányban fut az Excel, és a forrás, illetve a cél munkafüzet külön példányokhoz tartozik.
Próbáld meg mindkettőt a Fájl->Megnyirtás paranccsal megnyitni a dupla kattintós megynitás helyett.Jelez vissza, hogy mi lett!
imre
Szia!
Ezt így, ahogy leírtad, nem nagyon lehet megcsinálni, esetleg makróval, de van hasonló dolog.
Ki lehet jelölni területeket előre, és mindegyikhez lehet külön-külön jelszót rendelni.
Ha ezután levéded az egész munkalapot jelszó nélkül, akkor az egyes területeket külön-külön csak a hozzájuk rendelt jelszó beírása után lehet szerkeszteni.Magyar Excelben a Korrektúra lapon találsz egy Tartományok szerkesztésének engedélyezése gomb.
Ezután egymás után megadhatod a területeket és a jelszavakat.Segítség ehhez angolul
https://www.myonlinetraininghub.com/excel-protect-ranges-with-different-passwordsTehát neked (vagy a munkafüzet tulajdonosának) kell előre definiált sorokat egyesével felvenni, és jelszót adni hozzá.
Ez jó lehet neked?
Imre
Szia!
Egy kicsit eljátszogattam vele, bár nem nagyon szoktam MS Query-t használni, legalább is nagyon rég jött szembe, Most újra megbizonyosodtam, hogy nagyszerű eszköz.
Paraméteres lekérdezés
————————–
Azt találtam a neten, és nekem bevált, ha SQL nézetben a Where feltételben az érték helyére egy kérdőjelet írtam.
A Query frissítésekor vagy futtatásakor kérdezi a paraméter értékét. Gondolom azt tudod, hogy ilyenkor megadható egy cella, ahonnan a paramétert vegye, sőt, megadható, hogy mindig innen vegye, vagy frissüljön a lekérdezés, ha változik a paraméter cella értéke.Kapcsolati útvonal
——————-
Ezt pedig ki lehet exportálni egy *.odc nevű fájlba. Ez XML formátumú, és tartalmazza a kapcsolat tulajdonságait, így a kapcsolat nevét és az útvonalat is.
Adatok->Kapcsolatok->Tulajdonságok->Definíció fül->Kapcsolatfájl ExportálásaÚj kapcsolatkor pedig be lehet importálni.
Tehát ha import előtt módosítod egy sima szerkesztővel, akkor az új gépen már a módosított útvonalon fogja keresni.
Ez két lépéses buli
1. Adatok->kapcsolatok->Hozzáadás… ->Kitallózod a módosított kapcsolati fájlt
2. Üres cella (munkalap)->Adatok->Meglévő kapcsolatok->KiválasztodErre gondoltál?
Imre
Szia!
Egy darabig elvoltam, mire megértettem amit kérdezel. 🙂
Talán sikerült.A megoldás az ÁTLAGHATÖBB függvény, aminek két feltételt kell adni, ráadásul a feltételeket cellából kell kiolvasni. Nem triviális, de megoldható.
Ha az alsó hatás az E2-ben, a felső határ az F2-ben van, akkor a megoldás ez lesz.=ÁTLAGHATÖBB(C2:C11;B2:B11;">="&E2;B2:B11;"<="&F2)Visszatöltöttem, és külön fülre tettem a megoldást.
remélem jól értelmeztem a feladatot.
Imre
Jó helyre tetted 🙂
Úgy működik, mint egy Excel munkalap függvény, tehát egy üres cellába állsz, és utána
Egyik lehetőség, hogy:
1. megnyomod az fx gombot a függvény beillesztéséhez
2. kategória: felhesználói
3. Ott kiválasztod ezt a függvényt
4. kattintgatással megadod a paramétereket úgy, ahogy a fenti képen csatoltam.Másik, gyorsabb lehetőség
1. Beírod, hogy: =subst_multiple(
2. fx vagy Ctrl+A
3. Megadod a paramétereketha megvan egy cella, akkor lehúzhatod az oszlopban, ha a módosítandó szövegeid oszlopban vannak.
FONTOS Info: A cserélendő listának egyedinek kell lennie. Ha lenne két vagy több olyan, amik ugyanúgy kezdődnek, vagy részben tartalmazzák egymást, akkor nem biztos, hogy jó cserét csinál.
Ha ilyenbe ütköznél, akkor kicsit módosítani kell a függvényt, hogy az első cserénél ugorjon ki a ciklusból, illetve a cserélendőket hosszuk szerint növekvőbe kell rendezni.
Meg még lehet vele egyéb gond is, ez a használat során fog kiderülni.
Kezdetnek biztos jó lesz.???
Imre
Szia!
ha össze tudsz rakni egy két oszlopos megfeleltetési táblát, hogy mit mire kell cserélni, akkor abból már lehetne dolgozni.
Összedobtam neked egy UDF-et.
Egy külön munkafüzetben tedd egy modulba, majd mentsd el.
A munkafüzet legyen nyitva, úgy tudod használni.Function subst_multiple(originalstring As String, findstrings As Range, subststrings As Range) As String Dim f As String Dim r As String Dim i As Long If findstrings.Rows.Count = subststrings.Rows.Count Then For i = 1 To findstrings.Rows.Count f = findstrings.Cells(i) r = subststrings.Cells(i) If InStr(originalstring, f) <> 0 Then originalstring = Replace(originalstring, f, r) End If Next subst_multiple = originalstring Else subst_multiple = "#Find and replace arrays must have the same size!" End If End Function
Majd szólj, hogy milyen…
Imre
Szia!
Ha az egymás mellé másolt adatok, és a végén a képletek is kellenek, akkor ezt makróval lehet megcsinálni. Feltéve, hogy mindig ugyanott vannak a forrástáblák, vagy könnyen megtalálhatók.
Ha csak az eredmény kell, ami tartalmazzon az azonos pozícióban lévő cellák összegét, akkor egyszerű adatösszesítésről (konszolidáció) van szó, amihez az Excelnek van beépített eszköze.
Kipróbáltam az általad küldött mintán, teljesen rendben van. (Adatok lap -> Összesítés parancs)Azt írja, hogy minden forrásnak és az eredménynek is külön munkalapon kel lennie, de ez nem igaz.
Kb itt a munkamenet:
1. A forrás táblákat tartalmazó lapon kijelölsz egy cellát, ahová az összesített adatokat szeretnéd majd tenni (bal felső sarok lesz itt)
2. Adatok->Összesítés (Egy párbeszéd jön)
3. A tetején megadod, hogy melyik függvénnyel
4. A Hivatkozásnál pedig kijelölsz egy forrást úgy, hogy a fejléc nincs benne (mert az változik), majd megnyomod a Hozzáadás gombot
5. Az előbbit megismétled annyiszor, ahány forrásod van
6. Végül megadod, h a feliratokat vegye a bal oszlopból (ezek mindenhol ugyanazok)
7. EnnyiAz eredmények értékként kerülnek a helyükre, de lehet csatolást kérni, így ha a források változnának, az eredmény automatikusan jön.
Ez változó számú forrásnál nem annyira életszerű.Imre
Ha tömbökkel foglalkozol és keveset tudsz róluk akkor nézz át egy összefoglalót pl. itt
http://www.cpearson.com/excel/vbaarrays.htmA konkrét esetben a tömb számossága vagy elemszáma:
count=Ubound(nevek)
És ahogy a fenti válaszban írtam, az elvileg egy oszlopos dinamikus tömböt is két dimenziósként kezeli, aminek az oszlop része mindig 1-es.
Tehát a nevek(i) nem lesz jó, de jó lesz:nevek(i,1)Imre
Szia!
Én ezt találtam erre. Kipróbáltam, nekem működött
Előtte csináltam egy „nevek” nevű tömbkonstanst a névkezelőbe.={"Kovács András";"Tóth Zsuzsanna";"Kovács Béla";"Kiss József"}A névkezelőből kolvasni egy töb elemeit az Evaluate függvénnyel lehet, ami a szögletes zárójel is egyben.
Sub get_array_from_named_range() Dim arr arr = [nevek] MsgBox (arr(1, 1)) MsgBox (arr(2, 1)) pos = WorksheetFunction.Match("Kovács András", arr, 0) MsgBox pos End SubDefiniáltam egy dinamikus tömböt, majd beleolvastam a „nevek” tartományt
A tömb egy oszlopos lett, és az elemek egymás alatt, de sor,oszlop indexxel érhetők el úgy, hogy az oszlop index mindig 1-es
Tehát kiolvasom egy tömbváltozóba a névkonstans tömböt, majd abból kiolvasom az első sor első oszlop elemét, majd a második sor első elemét.A tömbben keresni lehet a megvalósított munkalapfügvényekkel is.
Ezt csinálom a második részben a match függvényel.erre gondoltál?
Imi
Ez most már kihívás nekem. Mármint, hogy összehozzam, hogy értsük egymást.
Az alapján, amit küldtél, nem lettem okosabb.
A „melyik sorban van találat…” értelmezhető úgy, hogy hányadik sor, és úgy is, hogy írjuk ki a sor adatait.
Stratégiát váltok, konkrétabban kérdezek vissza.
Ez a minta adat:Tól Ig 100 105 106 110 111 115Mondjuk keresed a 101-et
MIT SZERETNÉL EREDMÉNYKÉNT KAPNI? (Látni az eredmény cellában)
——————————————————
A) 100 – 105 (Egy cellában így beírva, ami ugye szöveg lesz)
B) 100, 105 (Két egymás melletti cellában)
C) 105
D) 100, 101, 102, 103, 104, 105 (Egy cellában)
E) 100, 101, 102, 103, 104, 105 (Egymás melletti cellában)
F) 1 (mert az első sorban lévő 100 és 105 közé esik)Egyéb, éspedig:
???
Szia!
Hát ez egy klasszikus esete annak a helyzetnek, amikor adatbázis-kezelés feladatra akarunk Excel-t használni. Különben érthető, ha nincs adatbázis-kezelés ismeretünk, e van egy kevés józan eszünk, akkor egész jó adatmodelleket lehet Excel-ben is felállítani.
Az már egy jó indítás, hogy külön táblákban gondolkodsz, bár hogy miket tárolsz külön táblákban, azt átgondolnám, de talán így is lehet.
Ahogy Én csinálnám:
1. Van egy törzs tábla a termékeknek, ahol az oszlopok:
Termék_kód (cikkszám), Terméknév, Termékcsoport, Listaár2. van egy vevő törzs, ahol az oszlopok
Vevő_kód, vevőnév, amit még akarsz3. Engedmény tábla, ahol az oszlopok
Vevőkód, termékcsoport, kedvezmény mértékeEz a harmadik tábla kapcsolja össze a vevőket és a termékeket.
Ha jól értem, akkor az lenne a lényeg, hogy vevőnként tudj árlistát generálni, a nekik érvényes árengedményekkel számolva. A kedvezményt pedig nem termékenként, hanem termékcsoportonként adnád nekik.A listát egy db SQL lekérdezéssel meg lehet kapni a fenti modellből.
De szerintem Függvényekkel meg lehet csinálni Excel-ben is.
Azt csinálnám, hogy
– elsőként kitölteném a fenti 3 táblát
– Kezdenék egy negyedik táblát, ez lesz az eredmény tábla
– Ennek első oszlopai a cikkszámok (esetleg a terméknevek, ha kell), termékcsoportok és a listaár. Tulajdoképpen a terméktörzs tábla másolata. Csinálhatod copy-paste-el vagy hivatkozásos másolással.
– A negyedik oszlopban végig annak a vevőnek a kódja, akinek az árlistát csinálod
– A következő oszlopba a vevőkód és a termékcsoport alapján áthozod az engedmény táblából az adott vevőhöz és termékcsoporthoz tartozó engedményt. Ezt lehet két feltételes FKERES-el, de ebben az esetben lehetne SZUMHATÖBB függvénnyel is.
-Az ötödik oszlopban a listaár és a kedvezmény alapján számolod a kedvezményes árat.Ebből az 5 oszlopból neked csak a cikkszám és a kedvezményes ár kell, de ezt az utolsó lépést a fantáziádra bíznám.
Érthető nagyjából? És egyáltalán erre gondoltál?
Imre
Letöltöttem, kipróbáltam.
Nekem megcsinálja.
Office 365, Excel 2013NHÉ formátumot választottál?
Most látom, hogy a fenti képen hibás formátum van kiválasztva. A te dátumaid a fájlban Nap/Hónap/Év formátumúak, a képen HNÉ látszik, mert elbénáztam.Ja, és a villám kitöltés is működik nálam.
Szia!
Ha Office 365-öt használsz, akkor az 2013 vagy 2016 lesz.
Ebben az esetben delila megoldása mellett létezik egy nagyon egyszerű és gyors megoldás.
1. A rossz dátumok után beszúrsz egy új oszlopot
2. Az első sorba beírod a helyes, magyar dátumot
3. Adatok szalagon a Szövegből oszlopok gomb mellett találsz egy „Villám kitöltés” gombot.
4. Nyomd megÉs van még egy nagyon egyszerű, és minden Excel verzióban működő megoldás, a „Szövegből oszlopk” funkció. Ezzel kapásból, segédoszlop nélkül átalakíthatók a dátumok.
1. Angol dátumok oszlop kijelölése
2. Adatok->Szövegből oszlopok
3. Kétszer Tovább
4. A harmadik lépésben beállítod, hogy Dátum típusú, és kiválasztod a helyes sorrendet. A Te esetedben a NHÉ (Nap/Hónap/Év), mert az angol dátumaid így vannak.
5. A rendeltetési hely alapból az első kijelölt cellára mutat, tehát rá fogja írni az eredeti dátumokra az átalakított verziót
Működik?
Imre
Szia!
Ez egy klasszikus hiba, szinte mindenki elköveti, amikor egy képletben változót akar használni.
Az a gond, hogy a képlet valójában egy szöveg. Dupla idézőjellel kezdődik és záródik. ha ebben csak így simán beírod a változót, akkor annak a neve, és nem az értéke lesz a képletbe, mint szöveg.
Ezt próbáld:Activecell.FormulaR1C1 = _ "=INDEX('" & fc & ".xls'!C5,MATCH(RC1," & fc & ".xls'!C1,0))"Ugye külön figyelni kell a szimpla idézőjelekre is.
A módszer lényege, hogy meg kell szakítanod a szöveget azon a helyen, ahová a változó megy. Jelen esetben az INDEX kezdete és a szimpla idézőjel után.
Befűzöd a változót, és tovább folytatod az eredeti stringet.
A változó következő előfordulásakor újból ugyanez a teendő.Imre
Szia!
Itt bizony az INDIREKT függvényt kell segítségül hívni.
Ezzel lehet szövegesen összerakni egy hivatkozást.Az oszlop indexét használva a CÍM (ADDRESS) függvénnyel meg lehet tudni a keresett oszlop első cellájának címét. Ebből lehet teljes oszlophivatkozást készíteni.
Visszatöltöttem a megoldást.
Elég brutális lett, de megvan lépésenként is.
A tetejére változóként felvettem az adatokat tartalmazó munkalap nevét, és a fejkléc sorszámát.Ha nem túl nagy a táblázat, akkor fog működni.
Sok adattal lassú lesz.Majd írj vissza, hogy jó-e így!?
Imre
Szia Tamás!
Majdnem biztos voltam benne, hogy dátum mezővel szívsz.
Ezekkel autofilternél és advanced filternél is csak a baj van.
Makrófuttatáskor konkrétan nem eszi meg a dátumot dátum formátumban.
Tehát nem írhatod ezt:>=2016.03.24Az már eggyel jobb próbálkozás volt, (mert gondolom sejtetted a problémát), hogy megpróbáltad összefűzni a dátumot, de az eredmény továbbra is dátum forma maradt:
Range("C2").Select ActiveCell.FormulaR1C1 = "=""<=""&YEAR(RC[10])&"".""&MONTH(RC[10])&"".""&DAY(RC[10])"Az egyik lehetséges megoldás az, hogy megnézed, hogy annak a dátumnak, ami akarsz,
mi a dátumszáma, és azt írod a feltételbe. Pl.: a 2016.03.29 dátumszáma 42458.Tehát ez jó lehet:
<=42458De ez elég béna, ezért számított formában érdemes beírni a cellába a makró futtatás előtt:
="<="&DÁTUM(2016;3;27)Beírás után különben ez dátumszámkét fog látszódni
<=42457És végül, ha makróval akarod beírni:
Selection.FormulaR1C1 = "=""<=""&DATE(2016,3,27)"Így a dátum egyes részei lehetnek befűzött változók is.
Kipróbáltam a küldött fájlon, működik, úgyhogy menni fog Nálad is, most nem xcsatolom vissza.
Minden jót, majd jelezd, hogy rendben van-e!
Imre
