Az „Excel” fórum célja, hogy keretet adjon az Excel felhasználók széles táborának tapasztalataik megosztására, és lehetőséget a segítséget kérőknek. Az alábbi összefoglaló azért készült, hogy segítse a helyes kérdésfeltevést.
– Írd le szabatosan a problémát. Úgy fogalmazz, hogy ne csak te magad, de a szakértő is megértse, mire szeretnél választ kapni.
– Írd le, hogy milyen verziójú Excellel dolgozol. (Vagy ha nem – ill. nem csak – Excel, akkor micsoda?)
– Írd le, hogy milyen úton indultál el, és hol akadtál el rajta.
– A kérdés megértése szempontjából sokat segíthet, ha feltölteszt egy képet, amin látszik, hogy mit szeretnél, vagy illusztrálja azt.
– Még jobb, ha feltöltesz egy minta munkafüzetet valahová (pl. data.hu). Feltöltés előtt távolítsd el belőle a nem publikus adatokat.
– Ha a feladat jellege olyan, célszerű az "előtte" és "utána" állapotokat bemutatni. (Miből kellene csinálni mit?)
– Ha VBA kódon kell javítani, másold be a releváns kódrészt. Rövid kód mehet hozzászólásba, hosszú kód inkább ide: http://pastebin.com/
– Ha valami nem úgy működik, ahogy kellene, add meg a rendellenes viselkedés jellemzőit, a hibaüzenetet, és a hibát okozó programsort.
Excelben behívod pl. Alt+F11-gyel a VB szerkesztőt. Bal oldalon kiválasztod a füzetedet, Insert menü, Module. Jobb oldalon kapsz egy nagy üres felületet, oda kell bemásolni a makrót, amit a 25592-es hsz-ben Neked írtam.
Ott az alkalmazását is leírtam. A sok # akkor jelenne meg a HA függvénybe ágyazás nélkül, mikor üres cellára hivatkozol az Idok függvénnyel.
A munkalapnak van egy xlveryhidden tulajdonsága, amit ha bekapcsolsz, akkor "mezei" felhasználó nem láthatja és a listákban sem szerepel (pl. a jobb egérgomb a munkalap nevére listában sem).
Tehát, ha tudod, hogy ki lépett be, akkor a hozzá tartozó munkalapot láthatóvá teszed, a többit pedig xlveryhidden-né, ezt nyilván a munkafüzet open eseményéhez kell rendelni.
Olyat lehet csinálni excelben, hogy közös használatú a file, sok-sok füllel, de adott ember csak a saját fülében tud szerkeszteni, a másikét nem láthatja? Lehet hogy hülyeség az egész, de azért csak megkérdezem.
Sztem a kolléga TNorbinak válaszolt nem nekem ezért nem is néztem azt a választ...
Hát az van hogy ha üres cella van az oszlopban akkor az ugye nullának számít és így rossz időkülönbséget számolna. Azaz addig kellene ciklus szerűen visszalépni még nem talál nem üres cellát így valószínűbb az említett makros megoldás de azt se tudom olyan hol van az excelben, ill igazából OO Calcban, sose használtam.
2007-es Ecxelt használok. Törlésnél arra gondoltam, hogy amikor megnyomom akkor az utolsó bemásolt sortól kezdve minden megnyomásra töröljön vissza egy sort.
A törlés nem tiszta nekem. A gomb megnyomására törölje az alsó sort, bármi legyen benne, vagy ha többször másoltál 1-1 sort, akkor azok közül az utolsót törölje?
Segítséget szeretnék kérni, egy userform-ban van egy combobox, megadtam a tartományt ami 8 oszlopot foglal magába. Azt szeretném megoldani, hogy ha kijelölök egy sort és mondjuk lenyomok egy parancsgombot akkor mind a 8 oszlop celláiban található értéket beszúrja egy másik munkalapon lévő sorba. Így egymás után max 20 sor feltöltését szeretném. Valamint egy másik parancsgombbal (Törlés) törölni lehessen visszafelé a sorokat.
Function Idok(cella As Range) Dim sor As Long, oszlop As Integer sor = cella.Row: oszlop = cella.Column
If Cells(sor - 1, oszlop) > "" Then Idok = cella - cella.Offset(-1) Else Do While Cells(sor - 1, oszlop) = "" sor = sor - 1 Loop Idok = cella - Cells(sor - 1, oszlop) End If End Function
Érdemes majd egy HA függvénybe beágyazni. Pl. az idők az E oszlopban vannak, akkor
=HA(E2="";"";idok(E2))
hogy a függvény másolásakor ne adjon egy halom #-ot.
Remélhetőleg a név, cím, kódszám különböző oszlopokban szerepel. Mármint egy oszlop a név, egy oszlop a cím és így tovább.
Ebben az esetben kellene egy fejléc, azaz az oszlop első cellája legyen a meghatározás, mondjuk a név.
Ezután adatok - speciális - listatartomány a név oszlop, szűrőtartomány a név oszlop első cellája, más helyre másolja, az új helynek válassz ki egy cellát, csak az egyedi rekordok bepipálod, majd ok. Az új helyen láthatod, hány sor lett.
Ha egy oszlopban ömlesztve vannak, akkor szét kell őket választani. Remélhetőleg van valamilyen elválasztójel. Akkor adatok - szövegből oszlopok és beírod az elválasztójelet (ha nincs spéci elválasztójel, akkor próbáld a szóközt - igaz ekkor a név két -vagy több - oszlopba fog kerülni, de azokat utána könnyebb összerakni.). Ezután folytatod az előzőekben leírtakkal.
Vagy a név oszlopot átmásolod egy új helyre - ezután adatok - ismétlődések eltávolítása.
Közepesen laikus excel-felhasználó vagyok, abban kérném a segítségeteket, hogy van egy 25e< soros ömlesztett táblázatom ami neveket, címeket, kódszámokat tartalmaz. Egy név többször is szerepel, és ebből szeretném leszűrni azt, hogy hány különböző ember szerepel benne (ergo minden név csak egyszer szerepeljen). Milyen beállítással és hogyan tudom ezt az adatot egyszerűen kinyerni? 2007-es excelem van.
Arra kéne valamit kitalálni, hogy ha egy oszlopban függvénnyel vizsgáltatom a szomszédos oszlop celláit, nevezetesen abba idő értékek szerepelnek Ó:PP:MM formában és egymást követően a különbségi időket szeretném számoltatni belőlük, viszont vannak üres cellák is közben, akkor azt mivel lehet megoldani, hogy vegye az azelőtti olyan cellából az értéket, ami nem már üres? Tudom hogy van vmi TELI vagy hasonló függvény, csak nekem lépésben kéne egyesével visszafelé haladjon a vizsgálat, amég nem talál nem üres cellát.
Arról már nem is beszélve, hogy nem is csak egyetlen celláról lehet szó. Pl. Activesheet.usedrange.cells. Nos ez biztosan nem egy cellát jelent, hanem egy kicsivel többet....
Egy elrettentő példát már feltettem ide egy tankönyvből. Most egy haver küldött egy idézetet egy kezdőknek szólóból:
A Cella (Cells) a Munkalap (WorkSheet) és a Tartomány (Range) objektumnak egy olyan tulajdonsága, mely paramétereiben hivatkozott cellához a megfelelő - egyetlen cellát tartalmazó - Range típusú objektumot rendeli.
Ebből biztos könnyen megtanul programozni a delikvens. :)
Excel 2007-től működik az Adatok - ismétlődések eltávolítása.
Előtte pedig:
Adatok - szűrők - speciális - szűrendő terület az oszlopod, kritérium az oszlop feje - helyben szűrés és utána átmásolás, vagy új helyre másolja és megadod neki az új helyet. Ennél a szűrésnél kell fejléc az oszlopra.
Ha van egy listám, amiben nagyon sok minden többször (mindig más mennyiségben) szerepel, de nekem minden csak egyszer kell rajta, akkor arra van gyorsabb módszer, mint sorba tenni, és manuálisan törölgetni a felesleges sorokat?
A beállítások - képletek - menüpontban lehet átállítani, S1O1 hivatkozási stílusnak nevezik.
Ilyenkor az oszlopok is számmal vannak jelölve. A hivatkozás pedig a minta szerinti, tehát az A1 cella S1O1 a képletekben.
A relatív hivatkozások is érdekesek , pl. lehet ilyen képlet, hogy =S[-3]O1, ami 3 sorral előbb és 1 oszloppal arrébb hivatkozik.
A VBA-ban van ilyen lehetőség, hogy a képletet S1O1 formában is ki tudod íratni, csak miután a VBA nyelve angol, ott az R1C1 a "divat".
Activecell.FormulaR1C1, sőt van FormulaR1C1local is, ami nálunk S1O1-et mutat az R1C1 elnevezés helyett.
De átállítás nélkül is megkaphatod a cellák S1O1 formátumú címét az address ReferenceStyle:=xlR1C1 paraméterével.
Bizonyára vannak helyzetek, amikor jobban "festenek", könnyebben megírhatók ebben a formában a képletet, de nekem elég zavaróak voltak, amikor megpróbáltam egy kicsit közelebbről megismerkedni velük, úgyhogy maradtam a A1 formula mellett.
Ha már itt tartunk, hallottam egy tanártól egy éve hogy excelben vagy O.O. Calcban átállíthatóak a táblafejlecek jelzései, hogy ne betűzöttek hanem ugyanúgy sorszámozottak legyenek. Erről mit tudunk bővebben, hogy lehet átállítani és ami lényegesebb, hogy a hívatkozások ezután hogy változnak?
Igen, az oszlop() az egy függvény, amelyik ebben a formában az adott cella oszlopának számát adja vissza. Tehát a B oszlopban az oszlop() függvény a 2 -es számot adja vissza, a C oszlopban levő celláknál 3 az eredmény, és így tovább.
Viszont, ha beírod a konkrét tartományt a zárójelek közé, akkor az ahhoz tartozó oszlop számát adja vissza:
Pl. ha oszlop(C3) a képlet, akkor pedig az eredmény 3, mivel a C oszlop a harmadik oszlop - és ebben a formában bármelyik cellába is írod a képletet, mindig 3 lesz az eredmény.
Rendben van ez így (bár én szeretem az Fkeres utolsó paraméterét is megadni, akkor is, ha az alapértelmezést használom).
A példámban az Fkeres harmadik paramétere - az oszlop szám - azért szerepelt képlettel, mert a kérdésedben az egész sort említetted, hogy szeretnéd átvenni.
Feltételezve, hogy a táblázatod A1-nél kezdődik, és a kereső munkalapon is A oszlopban van a keresési érték, akkor azzal a képlettel a táblázat minden celláját át tudod másolni könnyedén és nem kell átírni az oszlopszámokat.
Természetesen, ha a keresést mondjuk a C oszlopban levő érték alapján a D oszlopban kezded, a táblázat pedig a másik lapon A oszloptól kezdődik, az oszlop()-2 adja meg a jó oszlopszámot az Fkereshez.
Valóban nagyon sok esetben jó az Fkeres /vkeres, de ennél azért az Index - hol.van páros egy kicsit még többet tud, mivel így nem csak az első oszlop/sor alapján lehet keresni, illetve a keresés tárgya lehet hátrább, mint a megkapni kívánt eredmény.
Ebben az esetben az fkeres függvényt kellene használnod, végig az adott soron:
A oszlopba beütöd a sorszámot
B oszloptól a képlet:
=fkeres($A$1;adatok!$A$1:$D$200;oszlop();0)
Vagy:
Az A oszlopra teszel egy érvényesítést, ami a sorszámokat tartalmazza és abból választasz, a képlet ugyanaz mint fent.
Viszont ebben az esetben nem kell feltétlenül sorszámnak lennie az azonosítónak, lehet betű és szám is, nem kell rá emlékezned, hiszen a listából kiválaszthatod.
Adatok - érvényesítés - list és a lista forrásának az adatok munkalap első oszlopának értékes részét kijelölöd (ezt akár el is nevezheted és akkor névvel lehet megadni az érvényesítés listáját).
Van egy excel táblám árutétel nevekkel és tételszámokkal. Lehetséges-e, hogy egy másik táblában vagy épp egy másik munkalapon én csak sorszámokat gépeljek a cellákba (ne hívatkozási képleteket hogy ehhez mindig ide oda kattingatni kelljen a táblák közt) és lehozza a másik listából a sorszámnak megfelelő tételek nevét, amit ki szeretnék gyűjteni ill. akár az adott sort? Esetleg ez a fajta adatfeldolgozás már adatbázis kezelés témaköre?
Pl. ilyesmire gondolok:
árutétel listája ---------------- 1 | cipő | női | 35 méret | piros 2 | cipő | női | 37 méret | fekete 3 | kalap | női | fehér 4 | cipő | ffi | 40 mért | kék 5 | ing | ffi | 38 méret | fehér
Nekem pl. a kalap és az ing kell egy másik táblában majd szerepeljen, tehát csak beütném a tételszámát hogy 3, a másiknál hogy 5 és a teljes sort átemelné a listából.
Igen, a 75 a "data" munkalapon lévő oszlopok száma ebben a verzióban.
A bent használt éles táblázatban az évek alatt és az igények bővülésével már azt hiszem, 130 fölé hízott az oszlopszám, és dokumentumtípusonként kb. 20 értéket kell cserélnie, szóval jól megdolgoztatjuk a makrót, rá is férne egy kis gyorsítás. (az élesben szerepel a képernyőfrissítés ki-be kapcsolása is, az talán gyorsít rajta egy kicsit)
Én valamikor találkoztam az Application.Version property tesztelésével. És a kapott érték alapján tudtam meghatározni az objektumkönyvtár helyét. Itt találtam egy jó leírást erről: http://www.rondebruin.nl/mac/mac002.htm.
"Tools/References részben be kellett állítani pl. Word objektumkönyvtárat."
A Word objektumkönyvtárnak verziónként eltérő neve van. A 2010-es Officeban 14-es objektumkönyvtár van. Ilyen a 2007-es Officeban nincs, hanem ott 12-es van. Ezért annyi bizonyos, hogy a 2010-ben működő fájl egy az egyben biztosan nem fog működni 2007 alatt, csak ha módosítod a Word referenciát. Vagy egy 2007-es, egyébként működő programban átírod a VBA kódot.
"Köszönöm a "kifogásolható" részekkel kapcsolatos jelzést is, ez már az én feladatom lesz, hátha sikerül egyszerűsítenem."
Az is felmerült, hogy egy cellatartományban miért ciklussal keresi az értéket, amikor a Find metódus pont erre való, és ezerszer gyorsabb?
Illetve, az általad kimásolt kódrész miért éppen 75-ig fut? Fixen ennyi oszlop van a Data munkalapon?
"de nem fogom feladni, mert még sokmindent szeretnék automatizálni :)."
2010-es Excellel tudtam most csak kipróbálni, azon remekül működik. Holnap kiderül, hogy a benti gépeken hogyan viselkedik, de mivel ott az eredeti is ment, így azért bízom benne, hogy nem lesz gond.
Most végiggondolva úgy rémlik, hogy annakidején bent sem indult el zökkenőmentesen a dolog, a Tools/References részben be kellett állítani pl. Word objektumkönyvtárat. A hibaüzenetre így évek távlatából már nem emlékszem.
Így utólag azt hiszem, értem a módosított kódod logikáját. Kár, hogy nem őriztem meg a korábbi próbálkozásaimat, most összevethetném vele, hogy hol tévedtem el. Valószínűleg több sebből is vérezhetett.
Köszönöm a "kifogásolható" részekkel kapcsolatos jelzést is, ez már az én feladatom lesz, hátha sikerül egyszerűsítenem. Csak néhány hete kezdtem érdemben foglalkozni a makrókkal a Kovalcsik-féle könyv illetve egy YT-os csatorna alapján, és sajnos még nagyon az elején járok, de nem fogom feladni, mert még sokmindent szeretnék automatizálni :).
For i = 1 To 75 If ThisWorkbook.Sheets("data").Cells(1, i).Value <> "" Then SearchString = "$" + FormatCellValue(ThisWorkbook.Sheets("data").Cells(1, i).Value) + "(" + ConvertToLetter(i) + ")$" For Each STR In wdDoc.StoryRanges With STR.Find .Format = True .Text = SearchString .Replacement.Text = ThisWorkbook.Sheets("data").Cells(CaseFileRow, i).Text .Replacement.Font.Color = RGB(0, 0, 0) .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue End With Next End If Next i
Ez Office 2010-es (30 napos próba)verzión működött. Nekem itthon 2007-es van, az állt fejre az eredeti kódodtól. Nincs rá garancia, hogy nálatok a 2007-es gépeken menni fog.
Egyébként van a kódban néhány "érdekes" (értsd: szakmailag kifogásolható) megoldás.
Például, minek kell a Trim függvényt 27 soros kóddal (Function FormatCellValue(Value As String) As String) helyettesíteni?
A következő kóddal szeretnék kiválasztani egy textboxban lévő szöveget:
Ezzel működnie kéne, ha jól csinálnám, de valamit nem :(
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then With Me.TextBox1 .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With End If End Sub
Ezt úgy találtam, de a 2010-es excel pl nem ismeri a textbox setfocus tulajdonságát... (Nálam:)
Valóban, a teljes környezet ismerete nélkül lehetetlen küldetés ezt megoldani, erre gondolhattam volna.
Megfogadva a tanácsot, készítettem a táblázatból és a dokumentumokból egy nagyon lebutított, publikus változatot és feltöltöttem egy tömörített fájlban ide:
A táblázat "macro" munkalapjára történő kattintás aktiválja a Userformot. A dummy verzióban csak 2 választható dokumentumtípust hagytam meg az egyszerűség kedvéért. ("level1", "level2")
Az "empty" névvel megjelölt fájlok a template-ek. Ezekből most a "level2" nevű az érdekes, mert itt példaként az élőlábban is szerepel egy "$..$" jelöléssel ellátott szöveg, amelynek a cseréjét szeretném megoldani a makróval.
Meggeneráltam a 0002. sz esetre egy "level2" típusú dokumentumot. ("eredmény" néven elmentve). Ebben látszik, hogy a makró valamennyi megjelölt szöveget kicserélte, kivéve az előlábban szereplőt. (elvárt_eredmény néven elmentettem egy olyan verziót is, ahol kézzel kitöltöttem a szükséges adatot az előlábban)
A lépésenkénti ugrálással már próbálkoztam korábban, de sajnos nem jutottam vele közelebb a megoldáshoz. Ha jól sejtem, ez a kódrészlet végzi el a cseréket, de úgy tűnik, ez csak a szövegtörzsre terjed ki.
For i = 1 To 75 If ThisWorkbook.Sheets("data").Cells(1, i).Value <> "" Then SearchString = "$" + FormatCellValue(ThisWorkbook.Sheets("data").Cells(1, i).Value) + "(" + ConvertToLetter(i) + ")$" With wdDoc.Range.Find .Format = True .Text = SearchString .Replacement.Text = ThisWorkbook.Sheets("data").Cells(CaseFileRow, i).Text .Replacement.Font.Color = RGB(0, 0, 0) .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue End With End If Next i
A megoldás keresése során korábban találtam egy olyan információt, hogy ahhoz, hogy a teljes Word-dokumentumban keressen a makró, a "storyRange" gyűjtemény valamennyi elemét is vizsgálnia kell. Ezen elindulva találtam is példákat erre, pl. előző hozzászólásban linkelt kódrészletet, azonban ezeket már nem tudtam sehogyan sem összehozni a saját makrónkkal.
Csatlakozom. Továbbá a kód szeretne egy Userform-ot megjeleníteni, amely nyilván további kódokat futtat, ám ez utóbbiakat sehol sem találom.
Szerintem célszerűbb lenne feltölteni a munkafüzetet és a template dokumentumot, meg esetleg egy jól kitöltött "eredmény"-dokumentumot is, hogy lássuk, minek kellene képződnie.
Kollégáimmal egy Excel-makrót használunk (2007-es illetve 2010-es Excel) egyes Word dokumentumok elkészítéséhez. A makró a felhasználó által megadott információk alapján megnyitja a mintadokumentumot, és abban a"$..$" jelöléssel ellátott "mezőket" feltölti a táblázatban megfeleltetett adatokkal, majd a megfelelő módon elmenti.
Az eredeti kód nem a saját alkotásom, egy volt kolléga hagyta ránk, és egyelőre csak kisebb változtatásokat tudtam rajta végrehajtani, mert még nagyon-nagyon alapszintűek a makrós ismereteim.
A jelenlegi változatban rendben lefut a makró, a szövegtörzsben minden adatot feltölt, nem ad hibaüzenetet, de az a probléma vele, hogy a Word mintadokumentum előlábában/élőfejében stb. található adatokat valamiért nem helyettesíti be.
Keresgéltem a neten, és annyira jöttem rá, hogy a StoryRanges gyűjtemény lehet a megoldás kulcsa, amivel az előlábban stb. is keresné a makró a "$..$" szöveget.
Ha minden igaz, egy mező lehet több dimenzóban is. Pl az összeget tartalmazó oszlopot behúzhatod értéknek is, meg oszlopnak is. Így már lesz automatikusan képzett végösszeged az értékeknél, ha az oszlopban szűrsz az 1mFt felettiekre
Jó a kimutatás tábla is a célra, de szerintem az összeget tartalmazó mezőt ne az értékek hez húzd, hanem az oszlopokhoz. Így már tudod szűrni a 1mFt felettieket. Persze így nem lesz (automatikus) végösszeged, mert azt csak az "Értékek" dimenzóra állítja elő
Táblázatom jópár szöveges celláját üres cellaként értelmezi az Excel. Mindegy, hogy szövegre vagy általánosra van-e állítva. Szűrést kellene végeznem, de ezeket a cellákat csak üresként értelmezi... Szerintetek mi lehet a probléma??
Csak hogy érthető legyen, ez egy szükséges anyagok listája mennyiségekkel 15 termékhez. Van, amelyik mindegyikben szerepel, van amelyik csak némelyikben. És ebből kellene összeraknom, hogy akkor az adott anyagból összesen mennyi kell. Egymás alá másoltam a 15 listát, sorba rendeztem, hogy az azonos anyagok egymás alá kerüljenek, és az azokból szükséges mennyiséget akarom összeadni. Most megoldottam úgy, hogy beszúrogattam plusz sorokat ehhez a szigmás összegezéshez, de gondoltam, hátha itt tanulok valami gyorsabb módszert legközelebbre.
Ja, és ezzel kapcsolatban lenne még egy kérdésem. Ugye így plusz sorokba lettek beszúrva az összegek. Na már most nekem kizárólag ezek a sorok kellenének, amikből össze lett adva, az nem. Kitörölni viszont nem tudom, mert akkor nem érvényes a képlet. Próbáltam az egészet átmásolni irányított beillesztéssel, hogy akkor már csak az értéket vegye alapul, de úgy meg minden egyéb formázás eltűnik, többek között az összegeket tartalmazó sorok kiemelése is, úgy meg megint macerás megtalálni és törölni közötte a többi sort. Lehet egy képletet automatikusan az eredményt tartalmazó sima számformátummá alakítani dokumentumon belül?
De ott meg valami csoportosítási alapot kér. Nekem hol három számot kell összeadom, hol nyolcat, hol tizenötöt. Lényegében több lista lett összegezve, és az azonos termékek számát kellene összeadni. Ezért tűnt leggyorsabbnak, ha kijelölés után a szigmára kattintok, de az meg következetesen alá akarja tenni az eredményt. A képletet ismerem, csak ugye azt sem tudom másolgatni, mert egymás alatt különböző hosszúságú oszlopokat kell összeadnom, egyenként beírni meg macerás.
Az megoldható valahogyan, hogy ha a SZUM ne a kijelölt cellák alá írja be az eredményt, hanem mellé? Egy táblázatban kellene különböző számú sorokat összeadnom, és ez lenne a legegyszerűbb. Hosszadalmas lenne sorokat beszúrogatni a célra.
megpróbáltam abbyy-val, de a pdf kibontása le van tiltva, így az abbyy nem tud belőle adatot átalakítani. Próbáltam pdf nyomtatóval új pdfet létrehozni, de azt sem engedi.
Ebből a pdf-ből szeretnék a kerület oszlopra rendezni. gondoltam excelbe bemásolva. Sajnos beilleszteni sem sikeredik. Van erre lehetőség, vagy csak a keresővel soronkénti másolgatás marad megoldásnak???
Azt hol tudom beállítani, hogy ha lefelé húzom a cellákat, akkor az alapértelmezett funkció a cellák másolása legyen, és ne a kitöltés sorozattal? Kaptam már táblázatokat, amikben úgy volt, szóval elvileg megoldható. Eléggé lelassítja a munkát, hogy mindig rá kell kattintgatni és átállítani.
Set Conn = New ADODB.Connection 'strConnection = "Driver={Oracle in OraDB11g_home1};Dbq=XXXXX;Uid=myUser;" & "Pwd=myPassword;" Conn.Open strConnection HandleThings Conn.Close End Sub
Private Sub HandleThings() Call QueryTestList End Sub
Private Function QueryTestList() As Boolean
Dim ws As Worksheet, mySQL As String, c As Range
mySQL = "SELECT *.... (szokványos Oracle SQL lekérdezés)" Set ws = ThisWorkbook.Worksheets("Main") Set c = ws.Range("B2") Range(c, c.End(xlDown)).EntireRow.ClearContents Call Retrieve(Conn, mySQL, c) End Function
Function Retrieve(Conn As ADODB.Connection, mySQL As String, Dst As Range) As Boolean Dim Rst As ADODB.Recordset
Retrieve = True On Error GoTo Err Set Rst = New ADODB.Recordset Rst.Open mySQL, Conn, adOpenDynamic, adLockReadOnly Dst.CopyFromRecordset Rst Exit Function Err: Debug.Print Err.Number & " - " & Err.Description Debug.Print mySQL Retrieve = False If Rst.State = adStateOpen Then Rst.Close End Function
Kékkel színeztem azt a sort, ami a fejfájást okozta. Az elmúlt hónapokban végigpróbáltam egy csomó variációt, többek között ezt is, és csak ma jöttem rá, hogy a hiba végig a készülékben volt...
A HandleThings és egyéb szubrutinokban vannak azok az utasítások, amelyek a lekérdezést végzik, és a visszaadott rekordokat a munkalapra másolják.
Az előbb kicsit hamar járt a szám, mert ez bizony használja a tnsnames.ora fájlban konfigurált Local Net Service Name-et (azt kell az XXXXX helyére írni). De jó lesz így is. Tulajdonképpen azért akartam tnsnames.ora megkerülésével, hogy ha a kolléga gépén van Oracle kliens telepítve, akkor ne kelljen rendszergazdát hívni a tnsnames.ora beállításához, hanem anélkül is fusson a program. De mivel amúgy is kell rendszergazda a Group Policy módosításához, egy füst alatt a Net Service-t is konfigurálhatja.
Az ADODB használatához be kell állítani referenciát a Microsoft AcitveX Data Objects 2.8 Library-hoz.
Még egy dologba belefutottam amire még rákeresni sem tudok :D
Van egy dátum mf-em amibe fel van sorolva a 365 nap az A oszlopba. B oszlopban pedig, hogy "aktív" vagy "inaktív". Ez fkeres() és index() hol van() fgv-hez használom.
Hogyan tudnám meghatározni az intervallumot, hogy mi között aktív és melyik az a dátum mikor már inaktív értéke van a B oszlopnak?
Nem próbáltam.... Nem is tudom, miért. Szeretem általában magam megoldani a problémáimat, csak ezzel már legalább egy éve nem boldogulok, tegnap 3-4 órát csesztem el vele, és a végén stresszoldásként írtam egy "hátha bejön" hozzászólást.
Igazából nem hiszem el, hogy az Oracle ennyire béna legyen, hogy olyan rendszert dobnak piacra, amit nem lehet VBA-ból lekérdezni. A neten talált 1000 megoldás küzül legalább egynek működnie kellene. Az a sanda gyanúm, hogy a szeretett céges IT-nk kavar be valami ostoba biztonsági beállítással... A lehetőségeimet meg hihetetlen mértékben lekorlátozzák, egyszerű júzerként egy ODBC DSN-t sem tudok létrehozni, mer' még ahhoz is rendszergazda kell, nemhogy drivert telepíteni, vagy ilyesmi.
De tegnap kiötlöttem a megoldást: létrehoztam egy virtuális tesztrendszert, ahol rendszergazda vagyok, és végre nagy ívben tojhatok az IT-s korlátokra. Aztán ha majd látom, hogy működik, tudni fogom, hogy mit kell beállíttatni velük a fizikai gépeken.
Egyébként a rendszer nem SAP, de bizonyos kényes adatok védelme miatt ennél többet nem mondhatok (és a probléma szempontjából amúgy sincs jelentősége).
Van valakinek tapasztalata arról, hogy hogyan lehet EXCEL VBA környezetben, tnsnames.ora kikerülésével Oracle adatbázishoz kapcsolódni? Olyan módszer kellene, ami 10g és 11g verziójú Oracle klienssel is működik (Win7 alatt, rendszergazda jogok nélkül). A net tele van mindenféle példákkal meg connection stringekkel, de nálam valahogy mind hibára fut, szóval olyan kódot szeretnék látni, ami bizonyítottan működik. Már nagyon régóta küzdök ezzel...
Például a módosítható celláknál a Cellaformázás védelem fülén kiveszed a pipát a Zárolt négyzet elől, majd levéded a lapot (ekkor lép érvénybe a többi cella zárolása).
Vagy: lapfülön jobb klikk, Kód megjelenítése. Bal oldalon lent a Properties ablakban kikeresed a Scroll Area-t, és beírod mellé a területet, amiben engedni akarod a mozgást, pl. A1:B20.
Kaptam egy olyan excelt amiben adatok A1:B20-ig voltak. Tulajdonképpen adatközlés volt. A oszlop szöveg B oszlopba értékeket kellet írjak. A definiált területen kívülre nem is engedett kattintani. Pl B21-re hiába kattintottam még a cellát sem jelölte ki. Ez nagyon bolondbiztosnak tűnik. Hogyan tudom én is megvalósítani? Tudom, hogy van jelszóval védhető, nem szerkeszthető stb de ott a cellát ki tudom jelölni.
De azért nincs kizárva, hogy csak szerencsém volt (mert a végén voltak megfelelő hosszúságú adatok), mindenesetre így talán könnyebb 2-3 "igazítással" megtalálni azt a szélességet, amibe minden rekord belefér.
A jelenséget sikerült reprodukálnom, a magyarázatát nem tudom. Próbáltam utánanézni, de konkrétan erre a kérdésre nem találtam választ. Annyit találtam, hogy tábla oszlopszélességét programból nem lehet állítani, és feltehetőleg azért, mert a júzer, akinek a programot írod, sosem találkozik magukkal az adatbázistáblákkal, hanem csak formokkal.
Form-ra rakott táblanézetben lehet "best fit" szélességet állítani, de az a "visible text"-re vonatkozik.
Szóval ez a probléma szerintem az "ez van, azt kell szeretni" kategóriába tartozik.
próbáltam a bemásolt fájlt is másolni illetve megtaláltam a forrásadat mentése menüpontot is de az ki volt pipálva szóval nem tudom előző kiadású officcal ment ez simán vissza kell raknom mert ez így nem jó...
Vannak-e makrók a kimutatásodhoz kapcsolódóan? Mert az xls -be belemásolja, de az xlsx-be nem. Próbáld xlsm - (makróbarát excel) kiterjesztéssel másolni.
Ötlet: Előbb zárd be a másolt fájlt és csak utána az eredetit.
Ha nincs benne makró, akkor nézd meg az adatok - hivatkozások vagy kapcsolatok (leginkább mindkettő) menüpontban, mit mutat és módosíthatod, ha szükséges.
Még egy ötlet: másold át a bezárt fájlt és úgy nézd meg, mi az eredmény.
tovább pontosítom a leírást : nem csak a kimutatást másolom hanem az egész excel fájlt, ha elmentem xls-nek xlsx helyett akkor jó, tudom másolni pendriveon/emailben akár hogy és a hivatkozás is jó
Viszont így pár funkció ami szükséges nem működik ezért akarom xlsx-nek hagyni
Ha csak a kimutatást másolod, akkor a hivatkozásokat "magával viszi", ezért kiabál. Az elküldés előtt - ha a forrást nem küldöd vele - akkor meg kell szüntetni a forráshivatkozást, a másik verzió, hogy a forrást is küldöd vele.
Egy tipp a hivatkozás megszüntetésére:
A kimutatást tartalmazó munkalapot átmásolod egy új munkafüzetbe. Ebben a munkafüzetben megkeresed a hivatkozások, külső hivatkozásokat és rákattintasz a megszüntetésre.
Ekkor az összes adat fix számmá alakul át, a kimutatás éppen akkori állapota szerint.
(Persze ezt lehet, hogy nem akarod, akkor marad a forrással küldés verzió.)
Mintha lenne olyan opció is valahol a kimutatás tulajdonságainál, hogy forrással együtt mentés - próbáld ezt megtalálni és az átmásolt munkafüzetben beállítani. Elvileg akkor is "elmúlnak" a külső hivatkozások.
a következő problémával kapcsolatban kérnék segítséget:
van egy adathalmazom amiből csináltam egy kimutatást (2013-as excel) , a gond pedig az, hogy ha másolom vagy emailben küldöm akkor kiabál az excel , hogy nem találja a külső adatforrást, mert az elérési útvonal nem a kijelölt adathalmazra hivatkozik hanem az eredetileg létrehozott excelre. Lehet nem túl érthető leírom egy példával:
eredeti excelben így néz ki a kimutatás forrása:munka!$AE$3:$AI$24
a másoltban pedig így : Users**** laptopDesktop[proba.xlsx]munka1'!$AE$3:$AI$24
azt szeretném elérni hogy a másolással ne hivatkozza meg nekem az eredeti fájl helyét hanem maradjon meg úgy mint az eredetiben volt
keresgéltem a súgóban meg a neten pár helyen de nem igazán találtam rá a megoldásra
Szerintem nyugodtan feltehetsz itt Access kérdéseket is. Word-öt és Powerpointot is programoztunk már, mi gond lehetne belőle? Cooper kartács biztos nem fog kitiltatni érte. Ha pedig megy az angol, akkor meg határtalanok a lehetőségeid, mert rengeteg angol nyelvű fórum van, jobbnál jobb szakértőkkel.
Nyilván nem ugyanaz egy táblázatkezelő és egy adatbázis kezelő működési alapelve.
Az excelben sok-sok képletezési lehetőség van, ami egy adatbázis kezelőben "természetesen" hiányzik.
Cserébe az access rengeteg adatot tud kezelni gyorsan, jelentések, kimutatások lényegesen gyorsabban jönnek belőle, mint excelből és a korlátozás is kevesebb. Viszont nem árt érteni az adatbázis logikához (kapcsolatok, kulcsok, stb.).
Tehát feladata válogatja, hogy melyiket célszerűbb használni. Nekem volt szerencsém mindkettővel dolgozni, mindkettő elég barátian viselkedett. (Volt olyan, amit excelben kezdtem el, de "kinőtte magát", ezért access lett belőle.)
Off: "Lehet, egy adatbázis kezelő (akár acces) sokkal jobb lenne."
Ez nagyon sok feladatra igaz lenne, de....
Amikor intenzíven dolgoztam egy személyi nyilvántartó programon, többen felvetették, hogy miért nem access-ben írom. Akkor azt feleltem, hogy azért, mert az Excelt ismerem, az Accesst nem, így nem tudom, mekkora munka lenne áttérni, és abban oldani meg a feladatot.
Ma már áldom a szerencsémet, hogy az Excelnél maradtam.
1. Az Accesshez nem találtam tisztességes szakirodalmat.
2. Van ugyan néhány Access fórum itt az indexen: "MS Access - Segíccség kéne, de gyorsa" és az "Access programozas" című és talán egy harmadik is, amelyekben havonta, néha félévente ír valaki. Ezek többsége is kérdés, vagy - mint az én esetemben - egy egészen oda nem illő válasz.
Szóval megfelelő háttér nélkül egy kezdőnek, illetve autodidaktának sajnos nem nagyon lehet komolyabb feladatokat Access-ben felvállalnia.
Azt nem tudom, hogy létezik-e más adatbáziskezelő, ahol az ember megfelelő háttérrel tud programot írni.
Excel2010-ben már működik a Hahiba(hosszúképlet,"") függvény is.
Elsőre nekem is ez jutott eszembe, ha már megvan az új fájl, akkor frissíti, de azt még nem néztem meg, mi van akkor, ha a frissítéskor sincs meg.
Amúgy szerintem rá kellene bízni a makróra az összesítések bekérését, én nem feltétlenül képletben képzeltem ezt el, lehet, hogy elég értékben betenni.
De még gondolkodom rajta és valószínűleg levelezni is fogok papamacival - téged is beteszlek cc-be.
Megjött, megnéztem. Első pillantásra elég komplikáltnak tűnik, hogy honnan hová kerülnek az adatok. Van erre valami szabályszerűség? Ma biztos, hogy nem fogok elmerülni benne, talán hétvégén. (Ha közben Fferi küld egy megoldást, szólj légyszi, hogy már nem aktuális). Két kérdés/gondolat:
1) Mennyire fix ezeknek a fájloknak a szerkezete? Lehet módosítani rajta, ha úgy gondolom, hogy más szerkezettel könnyebb lenne a feladatot leprogramozni?
2) Alternatívaként próbáld ki azt, hogy =HA(HIBÁS(hosszúképlet);"";hosszúképlet) Ez megszünteti a #HIV! hibaüzeneteket, és a helyükön üres sztringeket hoz létre. Az üres sztring nem okoz problémát az összegzéseknél, szóval a táblád használható lesz annak ellenére, hogy pl. a forrásfájlok többsége nem létezik. Azt gondolom (mármint nem vagyok biztos benne, ki kell próbálni), hogy ha a hiányzó fájlok elkészülnek, akkor a külső hivatkozások frissítésével az új adatok át fognak jönni. Pl. az összegző táblázat következő megnyitásakor.
Tehát kb. 70 dolgozó, kéthetente 1 file, 36 héten keresztül, azaz idestova 1260 file. Egy file-ba csak egy dolgozó adatai kerülnek, amit ő készít el.
Közös használatú lesz az a munkafüzet, amit a dolgozók töltögetnek, mert egy közös meghajtóról érhető el, és így egyszerre többen is tudnak benne dolgozni. A mentés és a file nevének generálása automatikus.
Hiába teszem be az összesítőt, akkor is olyanra hivatkoznék, ami még nem létezik és ugyanaz lenne a hibajelenség, mintha külön összesítőt készítenék.
Elküldöm e-mailben (ha nem gond) és akkor egyértelműbb lehet az egész.
Tutibiztos, hogy ezt csak excelben kell megoldani. Arról nem tudunk semmit, hogy hány dolgozóról van szó, milyen időtávokra vonatkoznak az egyes fájlok és hány dolgozó ír egy-egy fájlba. Lehet, egy adatbázis kezelő (akár acces) sokkal jobb lenne.
Ha már excel, miért nem gondolkodsz közös használatú fájlban. Abba egyből beleteheted az összesítő munkalapot is akár.
Csatlakozva az előttem szólókhoz, szerintem érdemes lenne egy kicsit pontosabban leírni a feladatot (nem a "hadititkokra" gondolok, csak az alap körülményekre).
"Hát, ez az a kérdés, amire ennyi információból senki nem fog tudni jól válaszolni. Az ilyen rendszereket alaposan át kell gondolni és megtervezni. Mi az egésznek a célja? Milyen legyen a forrásfájlok és az összesítő táblázat szerkezete, hogy a legjobban segítse a programlogikát? Milyen rendszerben kell a lekérdezés? Kell-e felhasználói felület, ahol válogatni/szűrni lehet az adatok, fájlok, stb. között? Ha kell, milyen funkciókat tudjon? Mik a hibalehetőségek, és ezeket milyen mélységben, hogyan vizsgálja/kezelje a program?"
A cél: a dolgozók által elkészített (jellemzően szám)adatokat tartalmazó táblázatból egy összesítő táblázatba beültetni az adatokat. A forrásfileban 87 adat van oszlopokba rendezve, és azt kellene a gyűjtőbe sorokba rendezni. Semmilyen szűrésre nincs szükség, csak egyszerű adatátültetésre. De amíg nincs meg a forrásfile, addig a tábla elkészítésénél folyamatosan hibát kapok, ha képlettel hivatkozok. Első körben igen, úgy gondoltad, hogy képletekkel működne a gyűjtő munkalap, azonban ezeket a képleteket makró írja be, de csak akkor, ha elkészült a forrásfájl.
"Ezért gondoltam a makrós megoldásra, amiben olyan feltételt kell szabni, hogy csak akkor töltődjenek ki az összegyűjtő táblázat cellái, ha a dolgozó létrehozta azt a file-t, amire hivatkozik az összegyűjtő file bizonyos cellája."
Itt egy kis zavart érzek az Erőben.
Ami "hivatkozik", az képlet. Úgy gondoltad, hogy mégiscsak képletekkel működne a gyűjtő munkalap, azonban ezeket a képleteket makró írja be, de csak akkor, ha elkészült a forrásfájl? Tulajdonképpen megvalósítható...
"A kérdés, hogy milyet és hogyan?"
Hát, ez az a kérdés, amire ennyi információból senki nem fog tudni jól válaszolni. Az ilyen rendszereket alaposan át kell gondolni és megtervezni. Mi az egésznek a célja? Milyen legyen a forrásfájlok és az összesítő táblázat szerkezete, hogy a legjobban segítse a programlogikát? Milyen rendszerben kell a lekérdezés? Kell-e felhasználói felület, ahol válogatni/szűrni lehet az adatok, fájlok, stb. között? Ha kell, milyen funkciókat tudjon? Mik a hibalehetőségek, és ezeket milyen mélységben, hogyan vizsgálja/kezelje a program?
Ha ezek mind ki vannak találva, és fejben megvan, hogy mit, honnan, hová kellene pakolni, akkor lehet konkrét makrókód megírásába kezdeni.
"...azért nem működik a tökéletes képlet, mert a dolgozó véletlenül beletett egy plusz szóközt a fájlnévbe, kötőjel helyett alulvonást írt, nem a Munka1-ra, hanem a Munka2-re dolgozott, stb..." - A dolgozók által elkészített file-ok neveivel nem lesz gond, mert az automatikusan képződik a beforesaveas és a beforeclose segítségével.
"Egy makróval meg bármikor le lehet kérdezni a dolgozói fájlokat, ki lehet benne térni hibalehetőségekre, többször is megismételhető a lekérdezés, ha valami miatt elsőre nem sikerül. Szóval én ezt biztosan makróval oldanám meg." - Hát erre gondolok én is, de nem tudom hogy milyen makrót és hogyan használjam.
"Talán létre kell hozni előre kamu dolgozói fájlokat, hogy a külső képlethivatkozások rendben legyenek, megcsinálni a képleteket úgy, hogy ha nincs érték a forrásfájlokban, akkor a képletek üres sztringet eredményezzenek..." - na de 70 dolgozó 10-10 fileját hozzam előre létre?, az akárhogyan is számolom 700 file; na ezen tépném a nem létező hajamat.
Ezért gondoltam a makrós megoldásra, amiben olyan feltételt kell szabni, hogy csak akkor töltődjenek ki az összegyűjtő táblázat cellái, ha a dolgozó létrehozta azt a file-t, amire hivatkozik az összegyűjtő file bizonyos cellája. A kérdés, hogy milyet és hogyan?
Képletezéssel nem nagyon lehet megoldani, hogy ne legyen a cellában semmi, csak ha már a dolgozó létrehozta az xy forrásfájlt. Max azt lehetne megoldani, hogy a beképletezett cellák tartalma semminek látszódjék. De szerintem a 3500 képlet nagy szívás lenne hosszú távon. Lelki szemeim előtt megjelenik egy haját tépő papamaci, aki három órás kutatás után jön rá, hogy azért nem működik a tökéletes képlet, mert a dolgozó véletlenül beletett egy plusz szóközt a fájlnévbe, kötőjel helyett alulvonást írt, nem a Munka1-ra, hanem a Munka2-re dolgozott, stb...
Ráadásul ha valamit véletlenül elrontasz és elmented, az úgy marad.
Egy makróval meg bármikor le lehet kérdezni a dolgozói fájlokat, ki lehet benne térni hibalehetőségekre, többször is megismételhető a lekérdezés, ha valami miatt elsőre nem sikerül. Szóval én ezt biztosan makróval oldanám meg.
Ezzel együtt nem kizárt, hogy képlettel is lehet... Talán létre kell hozni előre kamu dolgozói fájlokat, hogy a külső képlethivatkozások rendben legyenek, megcsinálni a képleteket úgy, hogy ha nincs érték a forrásfájlokban, akkor a képletek üres sztringet eredményezzenek, aztán törölni a kamu fájlokat, és imára kulcsolt kézzel remélni, hogy a dolgozók hibátlanul végezzék el az adatfeltöltést minden hónapban.
Hogyan tudom megoldani excel 2010-ben az alábbi problémát?
Az alaphelyzet a következő: A dolgozók minden hónapban készítenek egy adattáblát. Az elkészült táblákból én össze kívánom gyűjteni az adatokat egy közös táblába. Azonban a közös összegyűjtő táblát már most meg szeretném csinálni előre 10 hónapra, hogy később ne kelljen vele havonta szórakoznom.
Most ha behivatkozom az összegyűjtő tábla celláiba a forrásfile celláit, akkor rögtön kéri a forrásfile elérési útját, ami azonban még nincs, hiszen ezután fogják csinálni a dolgozók. Ha nyomok egy „Mégse” gombot, akkor egy cellában átíródik a nem létező forrásfile neve (és lesz benne egy „#HIV” felirat, de ezt kb. 3500-szor kellene megcsinálnom, ami kicsit unalmas. Ezt szeretném kiküszöbölni.
Olyan feltételt szeretnék szabni az összegyűjtő táblázat összes hivatkozással ellátott cellájának kitöltéséhez, hogy csak azután írjon bele bármit is (na jó, a kért és hivatkozott adatot), miután a dolgozó létrehozta a hivatkozott forrásfilet.
A másik megoldandó probléma szintén ehhez kapcsolódik. Azt is meg kell valahogyan oldani, hogy ne egyesével kérdezgesse a frissítéseket, hanem egyszerre és automatikusan végezze azokat el, amikor megnyitom az összegyűjtő táblázatot.
Segítségeteket előre is köszönöm.
Ui.: az előző problémát sikerült megoldanom, köszönet érte a hozzászólóknak.
Private Sub CommandButton1_Click() Dim mesternev As String, masolatnev As String, sor As Integer mesternev = Cells(1, 1).Value sor = 2 Do While Not IsEmpty(Cells(sor, 1))
if range("T1").value<> range("S1").value then
if dir(cells(sor,2).value & cells(sor,3).value,vbdirectory)="" then
mkdir cells(sor,2).value & cells(sor,3).value
endif
endif FileCopy Source:=mesternev, Destination:=Cells(sor, 1).Value sor = sor + 1 Loop range("S1").value=range("T1").value End Sub
Próbálkoztam de nem jött össze, valszeg az általam elgondolt metódushoz nem passzol a folyamat.
Belenyúlni pedig nem tudok/merek :)
Mellékelek egy képet.
Az A1 cellában a mesterfájl útja. A C2 cellában írom át a kívánt mappanevet,(lefele beírja mindenkiét mert ez azonos) . B oszlopban a szerver(ek) neve, (ami mindenhol különbőző :) ) E ben pedig a nevek, (azért így csináltam mert időnként változik). Ezeket összefűzi az A oszlopba, és a gombra kattintva megy a másolás.
Bemásoltam a T, és S cellákba amit írtál , és minden sorba a kódokat :), de nem műxik.
Most visszaállítottam mindent az eredetire, így működik, de csak akkor, ha előzőleg létrehozom a mappát.
Megkérlek szépen, ránéznél erre is, hátha van megoldás ? Köszönöm !!
Private Sub CommandButton1_Click() Dim mesternev As String, masolatnev As String, sor As Integer mesternev = Cells(1, 1).Value sor = 2 Do While Not IsEmpty(Cells(sor, 1)) FileCopy Source:=mesternev, Destination:=Cells(sor, 1).Value sor = sor + 1 Loop
A hónap neve legyen mondjuk a T1 cellában (innen fűzi be a névhez). Ugyanezt a hónap nevet írd be az S1 cellába is konkrét név legyen mindkét helyen, nem képlet.
Mielőtt a másolás (for ciklus) elindulna, azaz a for utasítás elé tedd be ezt a sort:
if range("S1").value<>range("T1").value then mkdir range(utvonal cella).value & range("T1").value:range("S1").value=range("T1").value
Az új hónapot pedig mindig a T1 cellába írd be, az S1 cellába ne. Ebből fogja tudni a makró, hogy új könytárat kell létrehoznia.
Természetesen a T1 és S1 cella csak egy javaslat, oda írd be, ahol neked megfelelő.
Köszönöm a segítséget. Így már mindjárt teszi a dolgát... A gombot úgy képzeltem, mintha lebegne a munkalap felett, és mindig ott marad aképernyőhöz viszonyítva, de így is tökéletes. Nem tudtam mik a lehetőségek ezzel kapcsolatban... Mégegyszer köszi a megoldást, nagyon tetszik!
Annyit csináltam, hogy a másoló fájlban beírtam az alap útvonalat egy oszlopba majd a hónap nevét egy oszlopba, és a neveket is, melyek összefűzve jelennek meg a A oszlopban, ami alapján megcsinálja a makró a másolást.
Tuti, hogy nem tudom beilleszteni az MkDir utasítást a makróba helyesen, marad a manuális mappalétrehozás :) (ami már tényleg nem nagy munka)
Nem akarlak tovább fárasztani, így is nagyon sokat segítettél nekem !, Igazán hálás vagyok érte !!
Van egy olyan utasítás, hogy MkDir "könyvtárnév". Ez létrehozza az adott könyvtárat. Itt is megadhatod a teljes elérési útvonalat. Ha nem adod meg, akkor az aktuális könyvtárban hozza létre az alkönyvtárat.
A gomb "helyben marasztása" érdekében a munka1 munkalap eseménykezelő kódjába írd be ezt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) With ActiveSheet.Shapes("Button 2") .Top = ActiveWindow.VisibleRange.Cells(3, 5).Top + 3.75 .Left = ActiveWindow.VisibleRange.Cells(3, 5).Left + 9 End With End Sub
Jobb egérgomb a munkalap fülén - kód megjelenítése.
A bal oldali lenyílóban kiválasztod a worksheet -et.
Alatt megjelenik a fenti kód címsora és zárósora.
A kettő közé másold be a makrót (az első és utolsó sor nélkül).
Ha elgörgeted a képernyőt valamerre, akkor utána kattints rá egy cellára. A gomb "követni fog". Mindig az ablak eredeti helyének megfelelően jelenik meg.
Még lehet egy olyan kérdésem/kérésem, hogy azt meg lehet -e oldani, hogy ha van olyan mappa ami az elérési útban nem szerepel azt hozza létre, és oda másolja a fájlt.
Ez jellemzően az útvonal utolsó mappája, ami a hónap nevére utal.
Kellene egy kis segítség. Egy olyan makrót írtam, ami egyszerűnek indult, de kicsit belebonyolódtam. Arról van szó, hogy egy excel táblában vannak adatok, melyekből egy-egy sort be kell másolni a többi után utolsónak. Ez sikerült is, mégpedig úgy,hogy amelyik cella ki van jelölve, azt a sort másolja. Azt viszont nem tudtam megoldani, hogy a másolt sor D oszlop cellája megegyezzen az új sor D cella tartalmával. Pontosabban ez egy hívatkozás legyen, ha az utóbbi változik akkor változzon a többi is, amelyikből van másolat. Lehet kicsit bonyolultan írtam, de belinkeltem a próbálkozást. És még azt is szerettem volna, ha az indító gomb mindig ugyanott marad a képernyőn, és nem gördül el a munkalappal. Ezt sem tudtam beállítani. Ha valaki tud valami ötletet, akkor megköszönném...
A stati.xls melyik könyvtárban van? Azt javaslom, hogy az A1 cellába is a teljes elérési utvonalat írd be, mert ha nem abban a könyvtárban van, amelyik most az aktív könyvtárad (ezt a curdir() függvény mutatja meg neked), akkor nem fogja megtalálni.
Ha viszont a teljes elérési út van beírva, akkor mindegy, hogy a makrót honnan indítod el.
Sub masolo() Dim mesternev As String, masolatnev As String, sor As Integer mesternev = Cells(1, 1).Value sor = 2 Do While Not IsEmpty(Cells(sor, 1)) FileCopy Source:=mesternev, Destination:=Cells(sor, 1).Value sor = sor + 1 Loop End Sub
Azt nem írtam, hogy nem működik, csak azt, hogy problémát okozhat. És ahogyan később írta, nem lehet a mesterfájlban a makró (bár ezt a felvetéskor nem tette közzé).
De ezt nyilván megoldja, ha egy külön fájlba tesszük a saveas makrót, csak akkor egyrészt meg kell nyitni a mesterfájlt is, utána a saveas- a mesterfájlra kell, hogy hivatkozzon.
Igen észrevettem, ki is javítottam de így sem jó :)
A hibaüzi, nem találja a fájlt (file not found), pedig ott van, a név is egyezik (tutira).
Ezt a sort írja hibának továbbra is: FileCopy "Source:=mesternev, Destination:=Cells(sor, 1).Value"
Így néz ki most
Sub masolo() Dim mesternev As String, masolatnev As String, sor As Integer mesternev = Cells(1, 1).Value sor = 2 Do While Not IsEmpty(Cells(sor, 1)) FileCopy Source:=mesternev, Destination:=Cells(sor, 1).Value sor = sor + 1 Loop End Sub
A 25442-ben írtam, hogy a másoló makrót nem a mesterfájlban kell elhelyezni, hanem egy másik munkafüzetben.
Ebben a másik munkafüzetben egy munkalapra beírod a mesterfájl teljes nevét (útvonallal) és a másolat fájlok nevét egy oszlopba (ezt is írhatod útvonallal, kiterjesztéssel és akkor nem kell ezekkel bajlódni a makróban).
(A példában az A1-ben van a mesterfájl neve, az A oszlopban pedig a másolat fájlok nevei - mind útvonallal és kiterjesztéssel.)
Ezután már lefuttathatod a makrót. Így nem lesz makró a mesterfájlban.
Sub masolo()
dim mesternev as string, masolatnev as string,sor as integer
WOW, nem számítottam, ilyen "megoldás áradatra" :) Nagyon köszönöm !!
Ha jól értem akkor, egy makrót kell beletennem a mesterfájlba, (nem nagyon értek a makróhoz) ezzel az a baj, hogy akkor mindegyikben lesz makró,hiszen önmagát másolja le. Azzal az a baj, hogy alapból le van tiltva minden gépen, tehát ha meg akarja nyitni, már rögtön kapja is a figyelmezetést. Tudom, hogy nem kell használnia, de ha hibaüzenetet látnak, jön a világvége :)
Ha a fájlt csak olvasásra nyitod meg, akkor nem tud rámenteni, hanem automatikusan a mentés másként párbeszéd ablak jön fel.
Ezt elérheted pl. úgy, hogy a módosítást jelszóhoz kötöd, így aki nem tudja a jelszót, csak olvasásra tudja megnyitni. A jelszóhoz kötést a következőképpen tudod megoldani:
Fájl - mentés másként - eszközök - beállítások - jelszó a módosításhoz - a jelszó beírása és megerősítése után OK. Ekkor meg fogja kérdezni, hogy kicserélje-e a meglevő fájlt, erre igent kell mondani.
Ne feledd, ezután Te is csak a jelszó megadása után tudod úgy megnyitni a fájlt, hogy a módosításokat elmentsd.
A mentés helyét is többféleképpen tudod megadni, egyik lehetőség a chdir utasítással beállítani a kívánt könyvtárat aktuális könyvtárrá, a mentés (másként) először ezt a könyvtárat fogja felajánlani.
Megadhatsz egy útvonalat, amelyet a munkafüzet beforesave/beforeclose eseményében hozzácsatolsz a névhez és így oda fogja elmenteni.
A valamelyik munkalap neve legyen a fájl neve: A workbook.saveas utasításban a filename legyen a kívánt név. Ugyanitt paraméterezheted, hogy milyen fájltipust mentsen el.
Az egész mentési procedúrát kötheted pl. a thisworkbook.beforeclose eseményéhez, ekkor bezárás előtt fogja végrehajtani, amit szeretnél (mentés vagy mentés másként, vagy kilépés mentés nélkül).
Kérlek segítsetek az alábbi problémák megoldásában, mert megakadtam bennük.
Hogyan lehet azt lekódolni VBA-ban, hogy egy bármilyen néven megnyitott excel fájlnak a mentésekor valamelyik munkalapjának a nevét adja automatikusan és .xlsm kiterjesztést (vagy legalábbis azt ajánlja fel) az excel?
(Munka1-ről bizonyos feltételek teljesülése után sikerül átíratni a nevet, de én ezt az új nevet akarom a mentés másként esetén az egész file nevének adatni.)
Emellett még azt is meg kellene oldani, hogy automatikusan adja a mentés helyét, illetve a "sima" mentést nem lenne szabad engedni a felhasználó számára.
Part Description source Required. String expression that specifies the name of the file to be copied. The source may include directory or folder, and drive. destination Required. String expression that specifies the target file name. The destination may include directory or folder, and drive.
Remarks
If you try to use the FileCopy statement on a currently open file, an error occurs.
Example
This example uses the FileCopy statement to copy one file to another. For purposes of this example, assume thatSRCFILEis a file containing some data.
Nem teljesen excel re irányuló a kérdésem, de azzal kapcsolatos.
Adott egy excel fájl melyet minden hónapban 40 példányban le kell másolnom és átneveznem, ezt szeretném valahogy automatizálni.
Sajnos azt nem tudom megoldani, hogy mindenkiét egyszer másolom és átnevezem, mert minden hónapban valamit változtatnom kell a fájlon belül (dátum, mutatószámok, stb..) és az sem megoldás, hogy egy másik fájlból másolja át ezeket az adatokat, mert nem fognak rákattintani a frissítésre. Tehát minden hónapban egy "mesterfájl"ból kell csinálnom, sokat.
Tudtok erre valami megoldást, hogy lehessen automatizálni ?
Pl alap.xls ből kell csinálnom egy jóska.xls, feri.xls, Juli.xls-t stb...
Végigzongoráztam minden lehetőséget, a végén kiderült, hogy egy címkenyomtató volt beállítva alapértelmezett nyomtatónak, és amiatt vette automatikusan icipicire az oldalméretet. :)
Excelből is megkeresheted és beszúrhatod a megfelelő helyre a Word dokumentumba a szöveget, táblát.
Nézd meg a súgóban a Find objectet.
Ha megtalálta amit kerestél, akkor az a "range" lesz az aktív. Elé vagy utána pedig beszúrhatod amit szeretnél az insertbefore, insertafter metódussal.
A formázást is csinálhatod itt. (Nem tudom, milyen címsor formázást használ az eredeti dokumentumod, de olyan formátumra kell állítani a beszúrt címsort és akkor működik a "megtalálása".)
Az excel vba ablakban a referenciáknál a word könyvtárat is be kell jelölnöd, akkor minden word konstanst is használhatsz.
Egy példa:
Sub wordos() Dim wd As Object, wddoc As Object, myrange As Object Set wd = CreateObject("Word.Application") wd.Visible = True wd.Activate
'innen indíthatod a dokumentumok ciklusát a fájlneveket kell bevarázsolnod Set wddoc = wd.documents.Open(filename)
'innen indíthatsz keresési ciklust, csak a kereső szöveget kell változtatnod
myrange.Previous.Paragraphs.Style = wddoc.Styles(wdStyleHeading1) ' (vagy myrange.Next.Paragraphs.Style = wddoc.Styles(wdStyleHeading1)) a beszúrt szöveg címszöveggé formázása - a szintnek megfelelően
else
Msgbox "Nincs ilyen szöveg"
endif
' ide kerülhet a dokumentumon belüli keresés ciklus vége wddoc.TablesOfContents(1).Update ' ha mindent megcsináltunk, frissítjük a TOC-t
Stop ' itt megnézheted, hogy elégedett vagy-e az eredménnyel, ha igen, jön a következő sor, ha nem wddoc.Close True ' a True-t írd át False -ra , ha nem tetszik az eredmény
' itt a helye a dokumentum beolvasó ciklus végpontjának, ha még van beolvasni való, akkor vissza az elejére wd.Quit End Sub
Nem tudom, mitől van a probléma, de egyébként egy keresés-csere tipikusan olyan dolog, amit kis rutinnal még gyorsabban is megoldasz billentyűzettel, mint egérrel.
Köszönöm! Nos igen, ha üres dokumentumba kellene beszúrni a formázott szövegrészt, akkor ez lenne kézenfekvő, de a problémám, hogy meglévő dokumentum adott helyére kell beszúrni az adatokat! Egyelőre nem tudom, hogyan keressem meg a dokumentumban azt a helyet, ahová be kell szúrjam az adatokat, és majd ennek mindenképpen utána is fogok nézni, de most gyorsabbnak tűnik, ha a címsorok formázást utólag kézzel végzem el már a Word dokumentumban, vagy ha az Excel-ben formázott adatokat egy új Word dokumentumba kimentem, ott megformázom a címsorokat Excel makróval, és onnan másolom át a meglévő doksi adott helyére kézzel vágólapon át. Igen, ez lesz a megoldás, köszönöm! :))
Az adatokat Excel-ben természetesen makróval formázom, és vágólapon keresztül másolom a Word-be, ez amolyan félautomatizált megoldás. :))
Szia SK!
Neked is köszönöm a segítséget! Megnézem, a "kazettás egérmutató" más gépen is megvicceli a felhasználót Word-ben! Amúgy nem mozgok túl otthonosan a Word-ben, ellenben Excel-ben gyakran és szívesen makrózok, ezért is alakult így, hogy bár Word dokumentum a végeredmény, mégis Excel makrókkal állítom elő, és a végén vágólapon keresztül illesztem a helyére a dokumentációt. Legközelebb, ha ismét hasonló problémám lesz, célszerűbb lesz eleve Word-ben elvégezni a formázásokat Excel makrókkal, de most már nem tűnik ésszerűnek átirkálni a makrókat, marad a félautomata megoldás, remélem, sikerül megoldanom a címsorok külön Word-ben való utólagos formázását :))
Az első bekezdés végén pontosan ugyanazt tanácsoltam volna, amit a másodikban leírtál, szerintem ez a legegyszerűbb, az Excel nem ismeri a címsorformázást. Az egérdolog valami rendellenesség, próbáld ki másik gépen is.
Excelből is el lehet érni a Word-ot és végzehetsz benne műveleteket is az excel makróból. Nem tudom, hogy a formázást mivel végzed az excelben és hogyan másolod át a Wordbe (remélem makróval és akkor már meg is van a word application.) Ha nem, akkor nézegesd meg excelben a Createobject funkciót.
Segítséget, vagy tanácsot szeretnék kérni! Excel-ben formázok adatokat, amit végül Word dokumentumba másolok be (sok azonos felépítésű dokumentum van, mindegyik több fejezetből áll, és csak két fejezet készül ezzel a módszerrel). Az adatok natív szöveg file-ban vannak (jellemzően táblázatos adatok, listák, és közöttük pár soros szövegek - a célom úgy formázni ezeket, hogy stílusban illeszkedjenek a dokumentum többi fejezetéhez). Azt nem tudom megoldani, hogy Excel-ben a címsorokat úgy formázzam, hogy Word-be másolva az ott meglévő tartalomjegyzék frissítésével ennek a két fejezetnek a címsorai is bekerüljenek a tartalomjegyzékbe. Hogyan lehetne ezt megoldani, hogy Excel-ből Word-be másolt formázott szöveg adott sorai a meglévő tartalomjegyzék frissítésekor a megfelelő szinteken megjelenjenek?
Talán az lehet kerülő megoldás, ha a címsorokat valahogyan megjelölném (mondjuk minden sor elején egy "címj" betűsorral, ahol "j" lenne a címsor mélysége a tartalomjegyzékben, azaz 2, vagy 3), és Word makróban figyelném ezeket a jelzéseket, és azok alapján ott Word-ben formáznám a megfelelő szintűre címsorokat. De, ha lehetséges, szeretném elkerülni, hogy még egy külön makróval kelljen a Word-ben beformázni a címsorokat! Ráadásul Word-ben elég macerás makrózni, mert furcsa módon, makró rögzítéskor (sok ötletet lesek el ezzel a módszerrel) elvesztem az egeret, márpedig csak billentyűzetről sok mindent nem tudok elérni Word-ben! (MS Office 2007-et használok)
Esetleg még a lap elrendezése, töréspontok miatt is lehet.
Cella tartalomban is lehet oldaltörés elrejtve (miután nem látható karakter jelöli) - bár ez utóbbi azért gyanús, nem hiszem, hogy minden cellában lenne.
Köszönöm. A kapcsolatok menüben már korábban is kerestem, és nem találtam semmit. A képleteknél a Definiált neveknél viszont megtaláltam, és sikerült is törölnöm a hivatkozást. Csak nem értem. Hónapokkal ezelőtt valóban használtam egy fájl hivatkozott munkalapját, de kezdettől fogva nem volt hivatkozás a munkalap adataira. Vagy ha mégis, csak nem emlékszem már rá, akkor is már rég megszűnt minden kapcsolat az eredeti fájllal. De mindenesetre sikerült megoldanom.
Nézd meg az Adatok | Kapcsolatok | Kapcsolatok menüt. Amennyiben csatolt adat van a jelenlegi füzetedben a régiből – mert pl. a régi füzetet mentetted el új néven –, itt módosíthatod erre az új füzetre átírva a kapcsolatot.
Mindenképp nézd meg a Képletek | Definiált nevek | Névkezelő beírásait is, ha már erre hivatkozik a hiba leírása.
És még valami. Először is xls fájlról van szó, kompatibilis üzemmódban használva. És mentéskor is figyelmeztet a kisebb mértékű funkcióveszteség lehetőségére, hogy a munkafüzetben található képletek némelyike meg nem nyitott munkafüzetekkel van összekapcsolva. Ennek helye a Definiált nevek. De itt még a fogalmat sem tudom hova tenni, hiszen nem tudok semmiféle általam alkalmazott definiált névről.
Munkalap másolásnál a következő hibaüzenetet küldi az Excel 2010:
Az áthelyezni, vagy másolni kívánt képlet, vagy lap a(z) XXXXXXX nevet tartalmazza. Ez már szerepel a cél munkalapon. A név e változatát kívánja használni? .....
És az ikszekkel jelölt név egy korábban használt munkafüzetem egyik munkalapjának neve, de nem vagyok képes megtalálni, hogy az Excel ezt honnan látja. A munkalapjaim elnevezésének semmi köze a hivatkozott névhez, a munkalapokon nincsenek képletek és rákeresve a hivatkozott névre, vagy annak egy részére sem kapok találatot.
Hogy lehetne megtalálni, hogy a munkafüzetem milyen módon tartalmazza ezt a hivatkozást?
Azt tudod-e, hogy mikor vannak levonások és mennyi?
Mert szerintem anélkül nem lehet igazán pontos értéket kapni.
Hogy a példádnál maradjunk: 12 és 24 óra között van 12 óra. Ha a levonás összesen 1 óra, akkor amit kapsz az 11 óra.
Ebből kellene megmondani, hogy mennyi idő telt el a kezdés és 15 óra között: ha nincs levonás, akkor ugye 3 óra. Ha van ebben az időszakban levonás, akkor 3 óra minusz a levonás.
A többi kérdésedre is ez a válasz.
A dátum/idő függvények használhatók erre, kis körültekintéssel. Azt tudnod kell, hogy a dátum és idő is számként van értelmezve az excelben. Az egészrész a dátum, a törtrész pedig az idő. Tehát 12 óra pl. 0,5-nek felel meg (mivel 24 óra az 1 egész nap).
Szeretnék egy kis segítséget. Egy olyan ablakot szeretnék létrehozni egy munkalapon, ami mutat egy vagy két képlet erdményét, és mindez ne mozduljon el a képernyőn görgetéskor.
Próbálkoztam cimkével, szövegdobozzal, üzenetablakkal, de nem jártam sikerrel. Azt sem tudom, hogy ez megoldható-e és milyen eszközzel szenvedjek tovább.
Tehát teljes a tanácstalanság...
Valami hasonló a TextBox-al sikerült, de itt is egy másik cellára lehet hivatkozni, nem tudom hogyan kell a képletet bevinni, formátumot sem tudom állítani...
2014-es excelt használok, és a súgó sem írt semmi hasonlót, ami jó lenne erre a problémára.
Úgy néz ki a dolog hogy: -kezdő időpont: 12:00 óra -végső időpont: 24:00 óra Vannak levonások Van egy kapott eredmény. A kapott eredményből szeretném visszaszámolni hogy mennyi idő telt el kezdés és ,,x,, idő között, és ,,y,, idő után a végső időpont között, meg ,,x,, és ,,y,, között.
A számok természete fkeresnél időnként problémás. A keresendő helyen szövegként kell formázni a számokat. Ha számként van a cella formázva, akkor nem találja meg!!
Az összefűz helyett használd a sima & jelet: A1 & A2 (rövidebb).
Sziasztok. Kérdezni szeretnék. Meg van adva két időpont, ki van számolva a közte eltelt idő, bizonyos dolgok levonásra kerültek . És a kérdés: milyen képlettel tudom kiszámolni azt hogy mennyi idő telt az ,,x,, idő elött és mennyi az ,,y,, idő után. Köszönöm.
Kevés az információ. Lehet, hogy számodra teljesen világos a feladat, de itt rajtad kívül senki nem gyárt ferdefogazású fogaskereket, és a csavarhorony emelkedése sem biztos, hogy mindenkinek ugyanazt jelenti, amire Te gondolsz. Az "előre meghatározott hányadospárokból kellene közelítenie" kifejezés pedig ezerféleképpen értelmezhető. Mi a közelítés módszere? Mi a kritériuma annak, hogy a közelítés megfelelő mértékűnek ítéltessék? stb. stb. Úgy kellene leírnod, hogy egy laikus is megértse.
Üdv, kérném segítségeteket a következő problémában:
Szeretnék egy olyan táblát írni, ahol beadok egy értéket kb.:0,2 és 1,5 (pl: 0,8425) között, és van egy meglévő számhalmazom (127-24 ig, 17elemből egész számok) és előre meghatározott hányadospárokból kellene közelítenie.
Tehát, úgykéne kiszámoljon egy ahhoz közeli számot, hogy az értékkészlet változatlan és az algoritmus is ugyanaz csak csak valahogyan tudjam meg hogy melyik számokból rakta be. Minta egyenlet: (x1/x2)*(x2/x3)*(x4/x5)
Amihez kell: Ferdefogazású fogaskereket gyártok és a csavarhorony emelkedéséből kapom meg a 0,2-1,5 számot (osztás a marógép asztalorsólya és az osztófej között) az érték készlet meg a fogaskerék készlet amiből elő kell állítsam az osztást.
Gondolkodom rajta már egy hete, hogy hogy lehetne ezt megoldani de nem jövök rá.
Bocsi az utolsó mondatod felett elsiklottam! Végülis nagy nehezen megértettem az Index+Hol van kombót. És sokkal jobb is mint az Fkeres ahogyan azt írták is. Így meg is tudtam oldani amit szerettem volna. A sima Template-t fel tudom tölteni de amivel a problémám volt azt teljesen átszabtam és feltöltöttem céges adatokkal. A sima üreset feltöltsem hátha jó lesz valamire?
Fkeres függvénnyel kapcsolatban kérnék segítséget. A gyári mintákból a Házi leltár nevűt alakítottam át. A házi leltár tételei MF-ben a C oszlopban használom az Fkerest. A Helyiségkereső MF-ben A1:B20-ig van a táblázat. A oszlop szöveg B oszlop szám. És random nem működik. A címke szónak nem találja meg a számát és #HIÁNYZIK-ot dob. De a zacskó szóhoz tökéletesen társítja az 4 számot. Cellaformázás/típusnák mindegyik általános. Van valami ötletetek?
És ha magával a Notepad-del szerkeszted? Az ugyan nem olyan kényelmes, mintha külön oszlopokban lenne minden, de legalább nem cseszi szét az elválasztó jelet meg a szövegjelölőket kedve szerint.
Vagy megpróbálhatod szövegként megnyitni az Excel szövegbeolvasó varázslóval?
Azon a weblapon amit belinkeltem, az van írva, hogy a gyártó kifejezetten biztat mindenkit, hogy szerkessze ezen fájlt, de le írja, hogy mire vigyázzunk.
Itt a probléma szerintem. Vagy az Excelen kell valamit beállítani, hogy a mentéskor ne hagyjon ki semmit, vagy nem is tudom, mert a szerkesztés nélkül mentett fájlon is jelentkezik a hiba.
Notepadon történő összehasonlítás sem járt eredménnyel.
Hát, a WIN API hívások nálam sajnos beletartoznak a "kínai" nyelvterületek közé. Pedig ez nem lenne haszontalan és talán nem is annyira sokszínű a lehetősége mint a Web-nek. (Legalábbis az MS csak egy szabvány...)
Nem tudom, mire véljem, hogy nem tudja megnyitni, mivel az általad elküldött fájl és a DOS verzióval lementett fájl byte-ra azonos, megnéztem.
Valószínűleg valami olyan védelem van benne - és játékról lévén szó ez nagyon is lehetséges - ami nem látható kívülről, de ha megsérted a file integritását, akkor már reklamál.
Ha az eredeti fájlt másolod vissza, akkor azt "megeszi"?
Hát, most mit mondjak...:) Fantasztikus, nagyon köszönöm!
(Tanulság: változók, paraméterek, indítók helyes megadása már szinte többet ér, mint a szintaktika tudása. Ebben én nagyon gyenge vagyok, Te viszont verhetetlen. Házi feladatként megoldottam az aktuális shape nevének lekérdezését, csak a parentet kellett kipiszkálni a slidenév megadásából. Még egyszer nagyon köszi!)
És most néztem, hogy a táblázat sorok magassága egyesével lekérdezhető, szóval kis munkával átalakítható a lenti kód úgy, hogy tetszőleges felépítésű táblázat esetében is helyes eredményt adjon.
Csak nem bírtam ki. Szóval itt ez a kód, próbáld ki.
Nekem úgy tűnik, hogy jól működik, egy megkötéssel: a táblázat sorainak magassága legyen egyenlő, valamint az oszlopok szélessége is legyen egyenlő.
Igazából nem is kell minden egyes cellaszöveghez makrót rendelni, hanem elegendő csak a táblázat (mint egész) Shape-jéhez (lásd piros sorok). Továbbá bármelyik Slide-on működik, ha az adott slide-on a táblázathoz hozzá van rendelve a CellaPozíció makró.
Public Type POINTAPI X As Long Y As Long End Type Public Type TScreenRes X As Long Y As Long End Type
Public Const SM_CXSCREEN = 0 Public Const SM_CYSCREEN = 1 Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub Makróhozzárendelés() Dim i As Long, j As Long, Tb As Table, C As Cell With ActivePresentation.Slides(1).Shapes(1) .ActionSettings(ppMouseClick).Action = ppActionRunMacro .ActionSettings(ppMouseClick).Run = "CellaPozíció" End With Set Tb = ActivePresentation.Slides(1).Shapes(1).Table For i = 1 To Tb.Rows.Count For j = 1 To Tb.Columns.Count Set C = Tb.Cell(i, j) With C.Shape.TextFrame.TextRange .ActionSettings(ppMouseClick).Action = ppActionRunMacro .ActionSettings(ppMouseClick).Run = "CellaPozíció" End With Next Next End Sub
Sub CellaPozíció(Caller As Object) Dim SlideName As String, CellRow As Long, CellColumn As Long, msg As String Dim ScreenResolution As TScreenRes, CursorPosition As POINTAPI, CursorPositionTr As POINTAPI Dim SlideW As Long, SlideH As Long ScreenResolution.X = GetSystemMetrics32(SM_CXSCREEN) ScreenResolution.Y = GetSystemMetrics32(SM_CYSCREEN) SlideW = ActivePresentation.PageSetup.SlideWidth SlideH = ActivePresentation.PageSetup.SlideHeight
Köszönöm válaszod, de sajnos - mint ahogyan azt a kéréskor írtam - nem működik. Leírásod alapján ismételten kipróbáltam, de a jelenség ugyan az amit lent leírtam. Mentéskor valami elvész, erre figyelmeztet is az Excel, majd ha mentem és elindítom a fájlhoz tartozó programot, nem működik, leáll.
Szeretném a segítségeteket kérni egy .csv fájl mentésében.
Van egy .csv kiterjesztésű fájlom amit szerkeszteni szeretnék, de a fájl mentése nem sikerül anélkül, hogy ne veszne el belőle valami. Ez a jelenség már akkor is fellép, amikor betöltőm a .csv kiterjesztésű fájlt és hozzányúlás nélkül, más néven menteni szeretném.
Próbáltam az Excel 2007 -ben és a Google Sheets online változatán is, minden olyan lehetőségben ami .csv fájl mentését teszi lehetővé.
Átállítottam a Win 7-ben a vezérlőpult, terület és nyelv beállításoknál a további beállítások ablakban található “Lista elválasztó” -t is ; -ről , -re , de így sem ment.
A fájlban a szöveges részt szerettem volna magyar nyelvűre kicserélni, ezért lenne szükségem a mentésre.
Az Elnevezés makróban ez megvalósul, csak az a baj, hogy amikor kattintasz, akkor viszont semmilyen módon (legalábbis Jimmynek és nekem sem ) nem sikerült megállapítani a kattintás celláját - a "gazember PP" viszont tudja, mert a makrók elnevezése alapján oda irányítja :-). Ebből kell nekünk kihámozni a lényeget.....
Sőt, még azt sem tudtam elérni, hogy a selected tulajdonságot megadja nekem a makróban....
Ha több táblád is van a slide-on, akkor bizony elég bonyolult lesz ez a történet. Szerintem próbáld meg szisztematikusan az egyik táblád végigcsinálni, aztán a másikkal, hátha közben kialalkul valami egyszerűsítési lehetőség.
(Ráadásul a parent is csak a slide számot adja vissza.)
Azért ez így már nagyon bonyolult...Azon gondolkodom, hogy hogy lehetne a két shape lekérdezést (a cella textjét, illetve a shape nevét) valahogy egy makróba ötvözni.
Ez azt jelenti, hogy a makróidat a következőképpen kell elnevezned pl.:
Ha a shape neve Table 1, és az első celláról van szó, akkor
sub Mactable_1_11
Ezzel el tudod különíteni minden tábla makróját... (jó kis munka lesz).
A mac makródhoz be kell tenni egy újabb paramétert, így:
Sub mac(caller As Shape, x As Integer, y As Integer, shapename As String)
A meghívásnál pedig
Sub mactable_1_11() MsgBox ActivePresentation.Slides(1).Shapes(1).Name mac ActivePresentation.Slides(1).Shapes(1).Table.Cell(1, 1).Shape, 1, 1, ActivePresentation.Slides(1).Shapes(1).Name End Sub
illetve, mivel a tábla nevét tudod, simán beírhatod ActivePresentation.Slides(1).Shapes(1).Name helyett, hogy "Table 1"
Ha tanácsolhatom, akkor egy kis táblával próbáld. Én beleszaladtam egy nagyobba és nem győztem továbbnyomkodni a makrót (persze benne volt egy csomó információ és hibakezelés). Utána gyorsan korrigáltam magam és leredukáltam a cellák számát :-)
Sub mac(caller As Shape, x As Integer, y As Integer) MsgBox "A keresett cella tartalma: " & caller.TextFrame.TextRange.Text & vbLf & "sora=" & x & vbLf & "oszlopa=" & y, vbInformation End Sub
nem megy. (Szerintem az x, y integer definiálás miatt.)
Egyébként jónak tűnik a megoldás, de még be kell illesztenem a konkrét feladatba. Köszi.
Ami nekem működik, azon a nyomon elindulva, amit már korábban is írtam neked, a következő:
Jimmy makróját átalakítottam egy kicsit, most így néz ki:
Sub Elnevezés() Dim Sh As Shape, i As Long, j As Long, Tb As Table Set Tb = ActivePresentation.Slides(1).Shapes(1).Table For i = 1 To Tb.Rows.Count For j = 1 To Tb.Columns.Count Set Sh = Tb.Cell(i, j).Shape With Sh.TextFrame.TextRange .ActionSettings(ppMouseClick).Action = ppActionRunMacro .ActionSettings(ppMouseClick).Run = "Mac" & i & j End With Next Next End Sub
Minden cellához írtam egy makrót, aminek az a feladata, hogy közölje az eredeti Mac programmal,hogy melyik celláról van szó, pl.
Sub mac11() Mac ActivePresentation.Slides(1).Shapes(1).Table.Cell(1, 1).Shape End Sub
A Mac sub pedig így néz ki:
Sub Mac(Caller As Shape) MsgBox Caller.TextFrame.TextRange.Text
end sub
De átadhatod a sort és az oszlopot is, ha így alakítod át a mac subot:
Sub mac(caller As Shape, x As Integer, y As Integer) MsgBox "A keresett cella tartalma: " & caller.TextFrame.TextRange.Text & vbLf & "sora=" & x & vbLf & "oszlopa=" & y, vbInformation End Sub
Ekkor a mac11 így fog kinézni:
Sub mac11() mac ActivePresentation.Slides(1).Shapes(1).Table.Cell(1, 1).Shape, 1, 1 End Sub
Hát persze ez eléggé munkás így, de talán mégis használható megoldást ad.
Nagyon köszönöm a fáradozásodat. A textrange-hez lehet makrót rendelni, itt nem tudom, mi jött közbe. A második makród, amit a problémám megoldására írtál, tökéletes, kipróbáltam 2003-as Pp-ben. Utána átnéztem, mik az új fejlesztések a 2007-ben, illetve 2010-ben, de nem találtam olyan új parancsot, amit ehhez a lekérdezéshez fel lehetne használni. Találtam viszont egy érdekes bejegyzést, miközben kerestem a neten lehetséges megoldások után.
"Note: If you use PowerPoint 2007, a lot of the example code below simply won't work. Microsoft hasn't finished hooking the new tables up to VBA. When they finish the job, we should be back in business."
Úgy tűnik, még mindig nem fejezte be...:-( Azon gondolkodom még, hogy annak a cellának a tartalmát (szövegét), ahová a makrót rendelem, hogy tudom a makróval kinyerni. Mert ha ez meglenne, ossze lehetne ezt hasonlítani a az összes cella tartalmával, és ahol egyezik a két szöveg, ott van a kívánt sor- és oszloppozíció (ez persze nem tökéletes megoldás, mert lehet a táblázatban két azonos értékű cella.)
Sajnálom, nem jutottam előbbre. Kipróbáltam több ötletet, de mindig falba ütköztem. Az utolsó az volt, hogy a lekérdezni Windows API segítségével a kurzorpozíciót a kattintás pillanatában. Ezt esetleg megvalósíthatónak tartom, de persze kell egy függvény, ami a kurzorpozícióból cellát számol... De még ez sem sikerül. Most éppen ott akadok el, hogy már a textrange-hez sem tudok makrót rendelni. Biztos, hogy valammi triviális dolgot nézek el, de órák óta nem jutok túl rajta. Feladom.
Nagyon köszönöm Jimmy, ez megnyugtató. Mármint, hogy nem én vagyok a hülye, hanem ezek a Pp-s fejlesztők valami hihetetlen kreálmányt találtak ki, aminek a vba-s logikához már alig van köze. (Gondolom, a prezi ezért is tud ennyire nyomulni.)
Azért természetesen várom az ötletedet, nem sürgős, csak fontos. :)
Nézegettem 2010-ben, és úgy tűnik, ezt is sikerült a mikroszaftos fiúknak visszafejleszteni a 2003-hoz képest. Adott egy cella a táblázatban, annak van egy Shape objektuma, és ennek a Shape objektumnak
1) nem lehet nevet adni
2) nem lehet hozzá Action-t rendelni.
Amikor a súgóban keresek, Cell.Shape Property által visszaadott Shape objektumra ugyanazt a súgót adja ki, amit egy normál Shape-re, de közben a normál Shape több tucat tulajdonsága közül csak vagy tíz használható a Cell.Shape objektum esetében.
A súgóban a Cell.Shape alatt szó szerint ez van:
Example
This example creates a 3x3 table in a new presentation and inserts a four-pointed star into the first cell of the table.
És nem működik. Szóval ez szerintem búg. Talán be kéne küldeni a Microfostnak, hátha küldenek érte egy ajándék office-t hibakeresés céljából.
A cellán belüli szöveghez lehet makrót rendelni, csakhogy ott a makró meghívásakor átadott paraméter a teljes táblázat lesz, nem az a cella, amibe kattintottál.
Egyelőre nincs megoldásom.
Van egy ötletem, amit még ki akarok próbálni, de abból ma már nem lesz eredmény.
Office 2010, mint látszik a kimetszből (született trim).
Azt is szeretném, ha ezenkívül azonosnak tekintené a Kovács Lujzát a Kovács Lujza Bálinttal és a Bálintné Kovács Lujzával is, tehát ha valamelyik irányból a kimetszés után kapott, doktortalanított név a substringje a másiknak, akkor se legyen felkiabálás. Ez már nagyon hosszú, ezért gondolom, felh. függvény kéne (nem a bonyolultsága, hanem a terjedelme miatt).
Ha jól értem, minden névhez tartozik három munkalap? Mert ha így van, akkor a munkalapoknak külön neveik vannak, pl. "gipszjakabkicsi", "gipszjakabközepes", stb.
Ebben az esetben a névhez tartozó sorban be kellene írni ezt a három munkalapnevet, a makró vonatkozó sorát pedig átírni így:
Értem én ezt a gombos mániát (merthogy mindig gombra kattintunk a hálón, és ezt így szokták meg a júzerek), de itt, ebben az esetben minden gombot fel kéne paraméterezni a gombhoz tartozó névvel, ami sokkal hosszadalmasabb, mint ez a kattintátos megoldás, amit javaslok.
Munkalap nevét beírom akkor átlép arra tehát pipa :)
Kicsit kiegészítem az igényeimet. :D
Van egy adott név:
1 2 3 4
A Gipsz Jakap kicsi nagy közepes
B Tóth Béla kicsi nagy közepes
A lényeg az lenne, hogy szeretnék a kicsi, nagy és közepes szöveg helyett egy gombot beletenni és arra kattintva kinyomtatni a "kicsi"-hez tartozó munkalapot, "nagyhoz" tartozó munkalapot ect.
Azt kellene megcsinálnod, hogy beszúrsz ezen a munkalapon egy A oszlopot, és ide beírod (A1 mezőbe) még csak az első névhez tartozó munkalap nevét és megcsinálod újra a dupla clicket. Elméletileg ezután a névhez tartozó munkalapra kéne jutnod. Ha ez így működik, akkor minden névhez tartozó munkalap nevét be kellene írnod az A oszlopba, és a makrót kiegészítjük azzal, hogy nyomtassa ki a névhez tartozó munkalapot.
Első lépésben kicopyzod azt a makrót, amit ide írtam, majd azon a munkalapon, ahol a nevek vannak, nyomsz egy ALT+F11-et, és beilleszted a kicopyzott makrót arra a fehér részre, amit látsz. Ha ez nem megy, akkor nem tudok tovább segíteni.
Első körben ezt a kis makrócskát kellene betenned amögé a munkafüzetlap mögé, amin a nevek vannak.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Sheets(Format(Cells(ActiveCell.Row, 1))).Select End Sub
Ehhez a megoldáshoz az kell, hogy a munkalapoknak, amit ki akarsz nyomtatni, az első munkalapon lévő névvel megegyező nevének kell lennie.
"Mellesleg kérdezem, hogy a pp-t nem Te csinálod? Mert egyébként neked tudnod kellene a neveit (vagy rosszul gondolom?)."
Persze hogy tudom (amikor elnevezem őket), de sok van belőlük, és a vetítésnél, amikor egyre rákattintok, akkor nem tudom (illetve a makró nem tudja, amit a shape-hez rendelek).
"Szerintem for each ciklussal végig lehetne menni a shape-ken és ott megnézni, melyik mit tartalmaz."
Igen, meglehetne, de az atuális cella tartalmát (amihez a makró hozzá van rendelve), akkor sem tudom.
Jimmy programja abszolút megoldaná a problémát, ha nem lenne az a kis hibaüzenet. De szerintem születik rá hamarosan valami jó kis megoldás. :)
Sub Elnevezés() Dim Sh As Shape, i As Long, j As Long, Tb As Table Set Tb = ActivePresentation.Slides(1).Shapes(1).Table For i = 1 To Tb.Rows.Count For j = 1 To Tb.Columns.Count Set Sh = Tb.Cell(i, j).Shape With Sh .Name = "Cell_Row" & i & "Col" & j .ActionSettings(ppMouseClick).Action = ppActionRunMacro .ActionSettings(ppMouseClick).Run = "Mac" End With Next Next End Sub
Sub Mac(Caller As Shape) Debug.Print Caller.Name End Sub
Sub teszt() Dim ms As Shape, acst As ActionSetting Set ms = ActivePresentation.Slides(1).Shapes(1).Table.Cell(1, 1).Shape Set acst = ms.ActionSettings(ppMouseClick) With ast .Action = ppActionRunMacro .Run = "sh" End With End Sub
Sub sh(Caller As Shape) Debug.Print Caller.Name End Sub
Valószínűleg az a baja ennek a makrónak, hogy paraméterrel hívod meg. Na, de ha tudod, hogy melyik az a, akkor tudnod kellene a nevét is nem?? Bocs, hogy értetlenkedek.
Szerintem for each ciklussal végig lehetne menni a shape-ken és ott megnézni, melyik mit tartalmaz.
Mellesleg kérdezem, hogy a pp-t nem Te csinálod? Mert egyébként neked tudnod kellene a neveit (vagy rosszul gondolom?).
Hát ez a megoldás nekem is eszembe jutott, de azon kívül, hogy tényleg nem szép, az is probléma, hogy le kell kérdeznem annak a shape-nek a nevét is, amelyik a táblát tartalmazza. Ezt pedig én nem tudom máshogy, mint egy
sub sh (a as shape)
an=a.name
end sub
makróval. Ezt a makrót pedig nem tudom egy másik makróból elindítani (mert nem fut le).
Talán félreérthető voltam. Úgy értettem, volna pár ötletem, hogy hogyan kezdenék hozzá a hiba diagnosztizálásához. Például:
- keletkezik/törlődik-e alakzat a munkafüzetből menet közben?
- ugyanaz a nyelvi verzió/területi beállítások vannak mindegyik gépen?
Amikor nem talál egy objektumot, lefuttatni ezt:
Sub teszt() Dim sh As Shape For Each sh In ActiveSheet.Shapes Debug.Print sh.Name Next End Sub
és megnézni, hogy a "itt egy hosszú felsorolás kb. 30-40 objektum" felsorolás minden eleme benne van-e az Immediate ablakban.
vagy: betenni egy hibakezelőt, és azzal kiíratni, hogy melyik objektumot nem találja, aztán megnézni, hogy valóban hiányzik-e, ha igen, akkor miért, stb. stb.
Sajnos ezek kipróbálása tesztkörnyezet nélkül nem lehetséges.
Nekem az jutott eszembe, hogy minden celláról külön-külön makrót hívj meg, ebben pontosan tudod honnan jött és így tudod, hogy melyik a másik makró, amit meg kell hívni.
Pl. A1 celláról: sub a1
első makró
második makró
end sub
A2 celláról: sub a2
első makró
harmadik makró
end sub
A3 celláról: sub a3
első makró
end sub
A cella hivatkozások és a nevek természetesen csak példák, persze nem szép, hogy nem közös makrót hív meg mindhárom cella, de így legalább szét tudod problémamentesen választani.
Szia, köszi az érdeklődést a problémám iránt, ez már fél siker...:)
Simán elindítok egy powerpoint-os vetítést, amit előtte "felmakrózok" úgy, hogy a vetítés egyik táblázatának celláihoz rendelem ezt a makrót (nem egy cellához, hanem többhöz). Azt szeretném tudni, hogy annak a cellának, amiből a makrót indítom, mi a sor- és oszlopazonosítója (mert ez alapján hívnék meg még egy makrót, ami felhasználja ezeket az adatokat).
Ez a feladat excel környezetben gyerekjáték, hiszen mondjuk a target sor-és oszlopazonosítóját simán ki lehet olvasni. Dehát pp-ben nincs se target, se activecell (vetítés közben), sem semmi hasonló finomság, amivel könnyen el lehetne boldogulni ennél a feladatnál.
A közös használat látszik az ablak fejlécében: munkafüzet.xlsx (közös) - Microsoft Excel.
A megosztást hogyan gondoltad?
Mert ha úgy, hogy a menüben levő munkafüzet megosztása menüpontot használtad, akkor az egyenlő a közös használattal, az ahhoz tartozó korlátozásokkal egyetemben (és akkor látod az ablak címében a közös megjelölést - vagy annak angol megfelelőjét, ha angol a verziót).
Vagy mégsem azonos a két/három excel verzió. Vagy elírtad valamelyik objektum nevét - pl. magyar és angol verzió nem ugyanazt a nevet használja!
Szerintem érdemes lenne végigmenni az alakzatokon egy makróval és kiíratni a nevüket egy munkalapra listába. De jót tehet az is, ha szám alapján és nem név alapján hivatkozol az alakzatra (bár a sorrend változhat, ha megváltoztatod az egymáshoz való viszonyukat.)
Ami a tesztet illeti: bármilyen "vak" adattal is elő lehet idézni gondolom a problémádat, azt kellene elérhetővé tenni, biztosan többet tudnánk segíteni. (Senki nem tesz fel éles adatokat nyilvános helyre.)
Off itt a kérdésem, de vannak itt vba-guruk, akik talán tudnak válaszolni: powerpointban vetítés közben egy táblázat aktív cellájának a sor- és oszlopazonosítóját hogy lehetne makró futás közben lekérdezni? Sokat kerestem már neten, sajnos még nem találtam rá választ. Ha valaki tud segíteni, azt nagyon megköszönném.
Nincs közös használat, legalábbis nem tudok róla. Magamnak fejlesztgettem a dolgot, és most szeretném megosztani, de előtte megnéztem másik gépen, és kijött ez a probléma.
Az nem lehetséges, hogy a munkafüzet közös használatra van megnyitva? Mert akkor nem működik az objektumok átszínezése. (Igaz, ez 2010-ben tapasztaltam nálam.)
Van egy 1500 soros táblázatom amiben elég sokat kell keresnem.
Szeretnék hozzá egy olyan makrót amit ha megnyomom mondjuk az F3 billentyűt akkor egy felugró ablakban a felső részébe tudom beírni a keresendő szövegrészletet. Alul pedig szűrné azokat a sorokat amik tartalmazzák keresendő karaktersorozatot.
Ha mondjuk van 4-5 találat az alsó ablakban akkor rá lehetne kattintani a megfelelőre és odaugrana a táblázatban az aktív cella.
Nem tudom mennyire érthető és megvalósítható.
Egyszer láttam egy ilyet valahol szóval valószínűleg megy.
Azzal kezdik, hogy bekérik az általuk küldött kódot, amit a telepítéshez kaptál.
A másikat félreértetted. Nem formátum, vagy képlet beillesztéséről van szó, hanem a szöveg formátumú számjegyek számmá alakításáról. Közben felfedeztem, hogy már a 2003-as verzió is tudja ezt.
Csak kijelölöd az átalakítandó területet. Majd a bal oldalon megjelenő menüből kiválasztod a számmá alakítást és kész. Semmit nem kell másolni. (2010-es Excel és a hibaellenőrzési szabályoknál be van kapcsolva a szövegként formázott vagy aposztróffal kezdődő számok hibajelzése. Erre jelenik meg balra a cellánál a kép szerint.)
Ha kijelölöd az "A" oszlopot és az első cellán végrehajtod a számmá alakítást (hagyományos módon, a kis fülecskével ami a cellából lenyitható), akkor a teljes kijelölésen végrehajta
Ismét egy falba ütköztem. Megírtam egy makrót, ami a munkahelyi gépemen tökéletesen lefut, de egy másik munkahelyi gépen, illetve otthoni laptopomon már hibát generál.
A makró lényegében objektumok (vonal, téglalap) kijelölése, és formázása (látható, nem látható), az alábbi parancsot használtam:
ActiveSheet.Shapes.Range(Array("itt egy hosszú felsorolás kb. 30-40 objektum")).Select With Selection.ShapeRange.Line .Visible = msoTrue .Weight = 2.25 End With
Amikor másik gépen futtatom a makrót, egyszer a 1004 kód jön fel 'nem találja az adott objektumokat', pedig az elérés ugyanaz.
A másik hibakód pedig vonalszinezésnél jelenik meg ".ForeColor.Brightness = 0" '438 object does not support this method'.
A laptopomon ugyanúgy a 2013 Office-t használom, mint a munkahelyin, nem értem mi lehet a hiba oka.
(Egyszer pár éve elkezdtem írni egy cikket arról, hogy hogyan lehet Excelből az Internet Explorert kezelni. Sosem fejeztem be, mert egy reviewer elvette tőle a kedvemet. Mindazonáltal a kezdő lökést megadja, a többi kis logikával kitalálható. Angolul van, de ez szerintem nem fog gondot okozni.)
Accessből érkezik egy tábla, bemásolom Excelbe. A látszólag számot tartalmazó cellák valójában szövegtípusúak. Szerintem mindannyian találkoztatok már ezzel.
Ahhoz hogy számformátumú legyen a legegyszerűbb ha a cellán a hibáknál az átalakítás számmá-t választjuk.
A kérdés: ezt az egészet ki lehet váltani egy rövidke makróval esetleg? Pl. A oszlopban vannak az átalakítandók, A2 cellára ráállva, makrogom elindít és minden szép lesz.
Bocsi, hogy itt zavarok, de a Word problémák topicban ajánlották, hogy kérdezzem meg itt is, hátha valaki tud segíteni az Excel oldallal kapcsolatban. Aki hajlandó rá, olvassa el ezt a pár hozzászólást, és ha volna valami jó tipp, azt megköszönném.
Valamit elrontasz, csak a leírásból nem derül ki, hogy mit.
Egy tartomány sorainak és oszlopainak az összegét legegyszerűbben így hozhatod létre:
Vegyük, hogy a tartományod az A1:E10 címen van. Kijelölöd a területet, + egy sort, és + 1 oszlopot, tehát az A1:F11-et. Ezután már csak rá kell klikkelned az összeadás ikonjára, a szumma jelre, és automatikusan beíródnak a képletek a sorokba, és az oszlopokba.
Persze, megvan. Van egy virtuális gépem, amin Office 2003 fut. Meg a neten is ott van, ha hajlandó vagyok rákeresni. Csak ez így elég körülményes. Azért kösz.
Pár hónapja használok xl2010-et, mert a cégnél váltás volt.
Azóta ki vagyok akadva a VBA súgóra, egyszerűen nem tudom használni. Most pl. az Instr függvényre nyomtam egy F1-et, mert sose bírom megjegyezni a paraméterek sorrendjét. Erre a súgó kiad egy nagy büdös semmit. A 2003-as verzióban tök jó volt a "See Also" lehetőség mindenhol. Így ha egy függvény neve nem jutott eszembe, de tudtam egy másik függvény nevét azonos témakörből, akkor viszonylag gyorsan eljutottam a keresett cikkhez. Most meg ez sincs, és sokkal tovább tart a keresés minden egyes alkalommal.
A zsákutcába futott kényszeres "fejlesztés" egyik jó példája szerintem. Csak azt nem értem, miért nem látják be soha a felelősök, hogy "uraim, ezt elba..tuk".
a) az árgép ad egy API-t, amin keresztül le lehet kérni az adatokat. Lehet, hogy még nem jutott eszükbe, de létezik az az összeg, amiért üzleti alapon hajlandók rá, lehet, hogy ezt nem engedi meg a policyjuk.
b) a programozó nekilát elemezni a HTML-oldal forrását, keres benne szabályszerűségeket, és ezeket lehetőleg reguláris kifejezésekkel lekezeli, és így a programja működni fog addig, amíg a forrásoldal szerkezetét meg nem változtatják. Viszont ennek állandóan ki van szolgáltatva.
Ha én lennék az árgép programozója vagy tulajdonosa, inkább nehezíteni akarnám a tömeges leszedést, mint könnyíteni, ez az üzleti logika, és még zokon venni sem érdemes.
Viszont WEB-oldalul negyon is kellene hozzá tudni, hogy mit honnan vegyél ki. Na én ezért nem is szóltam eddig egy szót se, mert az már/még? kínai nekem, hogy egy weboldalon mit nézzek.
Én biztos fognék egy SQL adatbázist, írnék egy PHP vagy Python scriptet, amelyik leszedi az árgépről az adatokat, meg egy másikat, ami exportálja Excelbe az eredményt, aztán szevasz. De lehet, hogy ezt csak a lustaságom teszi. Az én felfogásomban ez olyan feladat, amit talán meg lehet oldani Excelben, de nem nagyon érdemes. Százezer terméknél hány megabicikli lesz a táblázatod?
Azt azért áruld el, hogy milyen azonosítót tárolsz, aminek az alapján keresni kell az árgépen és mit (hiszen ott ugyanahhoz a termékhez számos ár tartozik). Én kicsit alulhatározottnak érzem a feladatot.
Adott egy excel táblázat az alábbi mezőkkel cirka 100 000termékkel
A-H oszlopig
Az A oszlop a beszerzési ár a B oszlop az eladási ár a C-H oszlopokban pedig a termék jellemzői találhatóak meg.
A termék jellemzőit lebontottam így azok szétválasztva jelennek meg. webes lekérdezést szeretnék alkalmazni az eladási árra úgy hogy adott oszlop adatait automatikusan lekérje a táblázat az árgépről. Mindezt úgy hogy a cellában szereplő részadatra rákeressen az árgépen és a kapott eredményt az eladási ár oszlopába illessze be,
Tudnátok segíteni abban, hogy miért van az, hogy ha egy listát létrehozok (érvényesítés), és a hozzá tartozó adatbázisban (oszlopban) vannak üres cellák, azok a listában is mindig megjelennek üres adatként , hiába van bepipálva az "üres cellák mellőzése" opció az érvényesítésnél. Office 2007-et használok. Nagyon köszi !
Szerintem egy csomó dologra nem fogunk soha választ találni, még szerintem azok sem akik írták a Windows-t.
OFF
Kb 20 évvel ezelőtt, egy általam nagyra tartott prof. azt mondta, hogy "a számítástechnika gyerekcipőben jár, ezért semmin nem kell csodálkozni". A magam részéről ezt a mai napig szem előtt tartom...
A 2. makrónak futnia kéne. Az elsőnek valóban nem, mert az IFERROR a 2007-ben még csak munkalapfüggvény, vba függvényként nem müködik. Csak azt nem értem, hogy lecsekkoltam és akkor működött. És most mivel halott a gépem, nem tudom megnézni, hogy tulajdonképpen mit is csekkoltam.
Az FKERES 4. paramétere analóg a HOL.VAN 3. paraméterével, csak érthetetlen módon valamiért butább, mert míg a HOL.VAN a pontos egyezésen kivül növekvő és csökkenő sorrendű tartományokban is keres, addig az FKERES a pontos egyezés mellett csak a növekvőben.
Bár a másik gépen (most nem tudom megnézni csak holnap) 2014 es office van. Ismernie kéne az IFERROR függvényt. És ott is hibaüzenetet irt ki. A súgóban olvastam, hogy lehetséges ok a hiányzó *.dll file, és pipáljam be a kívánt funkciót. De ott nem tudtam elképzelni sem melyik kellhet neki...
A korábban irt 4 soros is ezen a gépen fut le hibátlanul? Ne hiszem, az alábbiak miatt:
Nagyon úgy néz ki, hogy az IFERROR függvényt az Excel 2010-es verziójában vezették be. Ezért nem szeresse a 2007. Ott sajnos más képlet kell.
Vagy meg kell vizsgálni az iserror függvénnyel az eredményt és ha nem hibás akkor beírni. Nézd meg ezzel:
Sub keresoA()
Dim sor As Long Dim usor As Long usor = Range("A" & Rows.Count).End(xlUp).Row For sor = 1 To usor Range("B" & sor) = Application.VLookup(Range("A" & sor), Worksheets("Adatok").Range("A1:B4"), 2, False) If IsError(Range("B" & sor)) Then Range("B" & sor) = "Nincs adat!!" Next sor End Sub
Bocs, de egy pár napig (2) hírzárlat volt a közelemben, ezért nem tudtam elolvasni a reagálásokat, de Fferi 50 és tbando teljeskörűen kielemezte a problémámat.
Köszönöm!
Valóban elírás volt a keresésnél az oszlop száma, mert egy másik feladatból rövidítettem egy részletet a tanácstalanságom kiemelésére. Én csak egy amatőr programszerkesztő vagyok. Innen-onnan összeszedet, már működő részleteket rakok össze, néhol rögzített makrókat is belefűzök a cél érdekében. Teljeskörű átgondolástól mentesek ezek a kódok, profiknak nem akarom eljuttatni, mert megint leesik egy monitor...
Az, hogy milyen gyorsan és milyen erőforrással dolgozik arról álmodni sem merek, hogy figyelembe vegyem. Bár nagyon elgondolkodtató az okfejtés, és a próba idő mérés az értékadások esetében. Persze gondolom az összes többi művelet esetében is. Hiszen gyakorlat teszi a mestert... És a gyorsan működő programot!
Tartományban_keres: Logikai érték, amellyel az FKERES függvény pontos vagy közelítő keresését adhatjuk meg. Ha értéke IGAZ vagy hiányzik, akkor a visszaadott érték közelítő lehet, azaz ha pontos egyezést nem talált a függvény, akkor a következő legnagyobb, de a keresési_érték argumentumnál kisebb értéket adja vissza. * Ha az argumentum értéke HAMIS, akkor az FKERES pontos egyezést keres, és ha ilyen nincs, akkor a #HIÁNYZIK hibaértéket adja eredményül.
A * jel tőlem származik. Ide jön, hogy rendezett állományban.
A fórumon bejegyzett címedre küldtem. Azért írom ezt meg, mert egyszer azt mondtad, hogy ritkán nézed meg ezt a címet. A régebbi levelezésünk elszállt a gépemről. :(
Akkor vágtam földhöz a monitort, mikor másodjára írta a szerző, hogy a sokak által sűrűn alkalmazott függvény, az FKERES, csak rendezett állományban működik. Nem ismeri a 4. paramétert.
Kösz a válaszod. Mindig tanulok belőle valamit. Most pl. a javasolt with ...end with-ben a .value=.value-t. Majd alkalmasint megnézem, hogy mennyivel gyorsabb mint a copy pastevalue, de erre sajnos egy darabig még várni kell, mert windows7-m total kifingott. Kiírtottam ugyan 3 vírust, de nem segített. Így nincs mese, a gépet a jövő héten be kell vinnem a szervízbe :(((
Bizonyára a makrórögzítőből szerezte be a tudományát. Bár nem tudom, igazi MS kurzuson vajon mit taníthatnak--:)?
Nagyon aranyos vagy, hogy felajánlottad "közkincsnek", de az általad leírtak fényében ettől az "önkinzástól" most eltekintenék. Örök hála, hogy helyettem is szenvedtél és dühöngtél.
Egyébként sajnos úgy látom, hogy igazi Exceles tankönyv talán nincs is a piacon. MS sem nagyon törekszik arra, hogy érthető legyen, amit a Developerek számára leír - az Object modell pedig csak nő-nő mint a kisgömböc. (Lehet ideje lenne már kiszúrni.) Akkora már a dzsungel, hogy néha az erdőtől a fát sem lehet látni (nem véletlenül írtam így), egy objectum objectumának objectuma tulajdonságának az értékét megállapítani - egy tulajdonságra vezető fastruktúrára rálelni, bizony néha maga a gyötrelem.
Az előző hozzászólásom először elszállt a levegőbe (biztos megelégelte a blogmotor a "piszmogásom").
Még annyit tennék hozzá, hogy nem mindegy természetesen, hogy az adott cellába értéket akarsz betenni, vagy képletet, mert a két eset más-más kifejezést kíván.
A számoláshoz a VBA-s forma kell, a képletadáshoz az Exceles forma (azaz számolásnál Sheets("Munka1").range("A2") vagy cells(2,1), képletnél pedig csak Munka1!A2).
Sok igazság van abban amit írsz, néhány gondolatra válaszolnék:
"többet segítek azzal, ha a problémás próbálkozását pofozom helyre, mint ha adok helyette egy ugyan professzionálisabb megoldást, amiből azonban nem derül ki, hogy milyen hibákat vétett"
Ezzel egyet is lehet érteni, de ha egy másik (jobb) megoldást is tudsz mutatni, akkor abból még többet tanulhat.
"Mert amíg az egyik esetben annyiszor kell végrehajtanod az értékadást for-next-tel, ahány sorod van, addig a másik esetben van 1 képleted az első sorban, amit 1 lépésben végigmásolsz az összes soron, majd a lemásolt képleteket megint csak 1 lépésben CopyPasteValue-zol."
Én csak azért tettem szóvá a képlet utána CopyPasteValue megoldást, mert for-next ciklusban mentél végig, akkor pedig teljesen felesleges a képlet, mivel egy-egy celláról volt szó.
Ugyanakkor ciklus nélkül még annál is egyszerűbb a dolog, mint amit írtál, ha összefüggő tartományokról van szó. A példában a következő megoldás:
With Range("B1:B" & usor) .Formula = "=IFERROR(VLookup(A1,Adatok!$A$1:$B$4, 2, False), ""Nincs adat!!"")" .Value = .Value End With
valószínűleg a lehető leggyorsabb. És nem szükséges a CopyPasteValue!!!
IfNa függvényről nem tudok, IsNa van a 2010-ben (gondolom korábban is volt), arra szolgál, hogy megmondja a hba #N/A vagy sem. Egyetlen paramétere van, a vizsgálandó kifejezés/érték.
Úgy tudom az IfError függvény 2007 óta van, és a ha(hibás(kifejezés);igaz;hamis) szerkezetet egyszerűsítette le.
Köszi a hozzászólást. Egyszerűen passzolom, hogy mi lehet a probléma. Nincsenek bonyolult számolások a táblában, de szerencsére nem konzekvens a felépítése, így a képlet végigmásolása nem jó megoldás, 3000 sorba meg belemászni egyenként F2-vel, és enterez-ni kicsit perverz :D Én is azt tudom elképzelni, hogy valami sérülhetett a file-ban, már jó pár éve használjuk... mindenesetre köszi!
Az előző 25216 hsz-m a nyugdíjazott XP-gépem reaktiválásával voltam kénytalen elküldeni, mert a windows 2007-m máról-holnapra total meghülyült és ezt produkálta a válasz közben:
Szia Feri!
Köszönöm, ho gy reagáltál a hozz ászólásomho z . Szeretem ezeke t a viszakérd ezé seket, mert sokat tanul hatunk belőle.
Kérde zed, hogy miért nem e gy lépés ben csiná ltam meg az értékadást mivel szerinte d f elesleges a képletet beírni, csak azért, hogy utána visszaalakítsa m értékké. Nem eg és zen értek vele d egyet. Ez ugy anis csak akkor igaz, ha 1 értékadásr ó l v an szó . D e h a s
Tehát a kurzor állandóan megbokrosodik, hiába állítom vissza újra elindul. Ezt csinálja az excelben is, a Fórum oldalt meg behíva a lap tetejéről leszalad az oldal aljára, és hiába állítom vissza újra levágtat.
Van valami tippetek hogy mi lehet az oka? Vírus? Reparálható?
Köszönöm, hogy reagáltál a hozzászólásomhoz . Szeretem ezeket a visszakérdezéseket, mert sokat tanulhatok/tanulhatunk belőle.
Kérdezed, hogy miért nem egy lépésben csináltam meg az értékadást, mivel szerinted felesleges a képletet beírni, csak azért, hogy utána visszaalakítsuk értékké. Nem egészen értek veled egyet. Amit mondasz ugyanis csak akkor igaz, ha kevés értékadásról van szó . De ha többről akkor már korántsem biztos. Mert amíg az egyik esetben annyiszor kell végrehajtanod az értékadást for-next-tel, ahány sorod van, addig a másik esetben van 1 képleted az első sorban, amit 1 lépésben végigmásolsz az összes soron, majd a lemásolt képleteket megint csak 1 lépésben CopyPasteValue-zol. Ez utóbbi menet pedig aránytalanul gyorsabb lehet mint az első, mivel zömmel az excel beépített metódusait használja és nem a vba-ét. Csináltam is rá egy próbát, ami egészen megdöbbentő eredményt adott. Amíg for-nextes értékadásnál 100 sort 3 mp, 1000 sort meg 33 mp alatt, addig a copyzos 100.000 sort 1 mp alatt, 1.000.000-t meg 5 mp alatt abszolvált.
De valójában mégsem ezért csináltam így, hanem azért mert maciti-nek válaszoltam, és ilyenkor az az elvem, hogy többet segítek azzal, ha a problémás próbálkozását pofozom helyre, mint ha adok helyette egy ugyan professzionálisabb megoldást, amiből azonban nem derül ki, hogy milyen hibákat vétett.
Az hogy a vlookup-jában hibásan a 3-ik oszlopra hívatkozott sima figyelmetlenség lehetett. Nyilván volt egy korábbi forrástáblázata amiben a 3-ik oszlopra kellett hívatkozni, és amikor e tábázatot 2 oszloposra változtatta, elfelejtette aktualizálni a függvényeit. Ilyesmi hibákat én is gyakran elkövetek, és általában igen keserves folyamat míg kiküszöbölöm őket. Általában nem is aznap, hanem másnap, bár akkor promt. Az ő esetében persze az is bezavart, hogy már az IfNa is hibát okozott.
Volt még egy említésre méltó hibája, nevezetesen, hogy a 2-ik vlookup-jában Names(„Anyagok”)-ban kereste az értékeket és nem Range(„Anyagok”)-ban. A munkalaptartományokat ugyanis a vba Range tekinti, akár van nevük, akár nincs.
Végül lenne egy kérdésem: A 2007 fölötti verziókban van ifNa? Ha igen, hogy szól a szintaktikája
Egy egyetemista srác kérte a segítségemet userformos feladatokhoz. Szerinte az előadás egy nulla volt. Kérdezte, milyen könyvet tudnék ajánlani ez ügyben. Kovalcsik Gézáét ajánlottam, mire ő: "...kevéssé információdús, egysíkú, tanár szerint se a legjobb."
A tanára (akinek az előadása egy nulla) Bártfai Barnabástól a Makróhasználat Excelben c. könyvet javasolta. Érdekelt a dolog, beszereztem pdf-ben.
Ilyenek vannak benne: "Minden változónak van egy neve és egy értéke. (Más programnyelvekben típusa is, amely meghatározza, hogy milyen jellegű adat tárolható a változóban. Itt a típust többnyire nem szükséges definiálni, azt az első értékadás határozza meg.)"
"...az FKERES függvény csak ábécébe rendezett listában működik..."
Favorizálja az ActiveCell és a Select használatát.
Ha akad köztetek mazohista, szívesen elküldöm a fájlt, mindössze 118 oldal, egy délután alatt kidühöngheti bárki magát. :)
Igen én is ezzel próbálkoztam. Egyébként is használok rejtett oszlopban számolási értéket, csak arra nem jöttem rá, hogy a példánál maradva hogyan lesz a B6 és C6 zöld hátterű, ha mondjuk a D6 értéke 2, vagy3; illetve B10-C10 piros/sárga, ha a D10 értéke 5.
Én felvennék egy kódtáblázatot, pl. 1= zöld, 2=narancs (azt hiszem, a 2002 is csak max. 3 féle feltételes formázást tud).
Utána egy elrejtett D oszlopban mindenféle képletekkel előállítanám a kívánt számkódokat, és ennek alapján formáznék. De ha nagyon bonyolult, akkor egy felhasználói függvénnyel.
Ennek előnyei:
-- ha módosítani akarod vagy bővíteni, akkor csak a képletet kell átírni, nem a feltételes formázást (sokkal egyszerűbb)
-- ha másféle zöldet akarsz, csak egy helyen kell módosítani az összes zöld kimenetelhez
-- túljártál az Excel 2002 eszén, és nem léped át a 3 szabály adta korlátot, hiszen akárhány esethez rendelheted az 1 értéket.
Üdv. mindenkinek! Segítséget szeretnék kérni. Egy speciális "feltételes formázással" nem boldogulok, talán Ti tudtok segíteni. (Excel 2002-t használok)
Felesleges a képletet beírni, csak azért, hogy utána visszaalakítsd értékké.
Az eredeti képletben az Ifna-n kívül csak az volt a probléma, hogy a vlookup nem a 2. hanem a 3. oszlopban keresett, emiatt mindig hibás volt az eredmény, mert a tartományon kívül keresett.
Range("B" & sor & ":b" & usor).Copy 'EZEK MEG FIXÁLJÁK A KÉPLETET COPY PASTE VALUE-VAL
Range("B" & sor).PasteSpecial xlPasteValues
End Sub
De használhatod a te makróidat is, ha kijavítod őket. Helyből ajánlom, hogy az IfNA-t cseréld le az IFERROR-ra, ahogy Delila is tette. Az IfNA-t a 2007-es excel nem ismeri, vagy legalábbis nem találtam nyomát, így nem tudom megitélni, hogy jól használtad-e. Az IFERROR azonban feltehetőleg jó lesz.
De vannak további hibák is. A piros javításokkal küszöbölheted ki őket:
Roppant érdekes. Én még nem találkoztam ilyennel. Na most ha az immediate ablakos cells.calculate rendbeteszi, akkor ha gyakori a probléma, akkor írnék rá egy makrót, ami billentyűvel vagy gombbal promt indítható.
Egyszerűbb esetben okozhatja az is, hogy valahol körkörös hivatkozásod van. Ilyenkor vannak cellák, amiket kiszámol és vannak olyanok, amiket nem. Ezt elvileg lent a státuszsorban látnod kell. Megjelenik a „Körkörös hivatkozások” üzenet. Ez esetben javítanod kell a hibás képletet.
He nem ez a probléma akkor lép képbe az általam is tapasztalt jelenség. Megfogalmazom parasztosan, amennyire én értek hozzá. Valamilyen rejtélyes ok miatt az Excel fájl sérül és elveszik benne az az információ az egymásra hivatkozó celláknál, hogy egy adott cellában lévő képletet melyik másik cellában lévő képlet kiszámítása után kell kiszámolni. Mi speciális beépülő bővítményekkel dolgozunk és ez a hiba eddig még mindig akkor jött elő, amikor ez a bővítmény be volt töltve.
Ennek a javítása hogy belemész a cellába F2-vel és Entert nyomsz, majd az így javított cellát másold tovább az összes olyan cellába, ahol ugyan ez a képlet van. Ezt írtad te is. Egy másik módszer, ami nekem a legtöbbször bevált, hogy a Visual Basic ablakában (Immediate) kiadod a cells.calculate parancsot, aminek a hatására elvileg újraszámolja az egész aktív munkalapot, és így ezen a munkalapon javítja ezt a számolási hibát.
Engem is érdekelne, hogy miért van ez a hibajelenség, illetve van-e rá valamilyen jobb javítási módszer.
Köszi! És ha azt szeretném, hogy ne a képlet legyen beírva hanem csak az eredmény?? Azzal vagyok bajban... mert mindig hibaüzenetet kapok, vagy nem teszi amit én gondoltam...
Kicsit belebonyolódtam egy témába, és nem tudok kimászni belőle...
Egy elnevezett tartományra szeretnék az IfNa függvénnyel, majd a VLookup fügvénnyel hivatkozni, de nem jön össze VBA kóddal. Képlettel megoldottam, működik is, de a kód....
Azért nem tekinti "tiszta" szövegnek, mert a cellák neki "táblázatnak" jönnek át a Ctrl+C-vel, DE választhatod a beillesztésnél a csak szöveg opciót is! Akkor nem kell szöveggé alakítani, egyből mehetsz a szövegből táblázat alakításra.
(ÉS a számoszlopokat is beillesztheted "csak szöveg" opcióval, itt igazából csak arról van szó, hogy milyen formátumban legyen a beillesztés - a kép és a csatolás lehetőségről most ne beszéljünk, mert nem releváns -, a Wordben valami vagy szöveg, vagy táblázat vagy kép stb. A szövegbe pedig beletartoznak a számok is - bár számokat tartalmazó táblázattal még számtani műveleteket is tud végezni, hogy még jobban összezavarjalak -, nem úgy mint az excelben, ahol nem mindegy, hogy a cellában a 24 az szám, vagy szöveg.)
Az nem esett le, hogy a táblázatalakítás elött szöveggé kell alakítani a wordoszlopot :))). Persze érthető, a word-dal nem igen szoktam bűvészkedni.
De azért lenne még egy kérdésem: Amikor az excel oszlop betűket tartalmaz, és azt másolom át a wordba, akkor is felajánlja a szöveggé alakítást. Tehát az átmásolt betűoszlopot nem tekinti szövegnek. Hát akkor minek tekinti? Miközben szövegnek is tekinti, mert a szövegből táblázat opciót is felajánlja, csak aztán nem müködik
Nem egy cellában vannak az adatok az excelben. Azt írta, hogy egy adatsort akar táblázattá alakítani, ami azt jelenti, hogy vagy egy oszlopban, vagy egy sorban vannak az adatok - minden cellában egy.
Ha ezeket az adatokat átteszed a wordbe, akkor először ott is egy egyoszlopos / vagy egysoros táblázatként fogod látni.
Ezt először át kell alakítani szöveggé - a teljes táblázat kijelölése, majd 2010-ben táblázateszközök, elrendezés - szöveggé alakítás.
Utána a teljes szöveget kijelölöd és beszúrás, táblázat, szövegből táblázat, majd megadhatod a határolójelet, ami jelen esetben a bekezdésjel. A szövegből táblázat párbeszéd panelen megadhatod a táblázat oszlopainak számát.
Az így létrejött táblázatot kimásolod és visszateszed az Excelbe.
A táblázatba foglalandó számok egy cellában vannak? Ez meglepett. Azt hittem, hogy egymás alatti, vagy egymás melletti cellákban.
Mivel ilyen egy cellás karaktersort elég körülményes excelben csinálni, ha csak nem egy txt-t másol be az ember. De azt meg minek? Az mehet közvetlenül wordba.
De hogy az excelben, hogy lehet csinálni egy olyan cellát, hogy mindegyik érték után egy enter van, az nekem rejtély. Tehát ezt:
a
b
c
d
Én ilyet csak úgy tudok csinálni, hogy az értékek után alt+enter van. Megjegyzem átvíve wordbe az alt+enter jelet nem tudtam tagoló szimbólumnak megadni, így aztán nem is bontotta oszlopkra a karaktereket.
Te hogy csináltad enterrel egy cellába őket? Mert én ha enterrel vittem be őket, akkor azok szépen egymás alatti cellákba kerültek.
Amit aztán wordba átvíve szintén nem bontott oszlopokra. Mivel a tagoló szimbólum sem a szokványos enter volt. Hanem ilyen, amit szintén nem tudtam megadni neki, még ctrl-c ctrl-v vel sem. És persze nem is bontotta oszlopokra.
Attól is függ a "siker", hogy mi van az egy-egy cellába való tagok között. Amit én írtam, ott az értékek egyesével vannak egy sorban és így minden érték mögött van egy enter is.
Így néz ki:
a
b
c
d
... stb.
Ebben az esetben az entert kell határolónak beírni.
Ha ez a forma: a,b,c,d .... és így tovább, akkor pedig a vessző a határoló.
Viszonylag könnyen (de ha nem csak számok, szöveg is van, az sem probléma).
Beszúrod a szöveget, kijelölöd, átalakítás táblázattá és megmondod neki hány oszlop legyen a táblázatban. Az enterek jelentik a cella/szöveg határolókat.
Örülök, hogy jelentkeztél, mert így alkalmat adtál arra, hogy megírjam, hogy a második képletem sajnos hibás. Tehát az, amikor a nem az első sor az 1-2-3-4-5 hanem az első oszlop. A helyes képlet így nézne ki, HAHIBA-val kiegészítve:
Ez mind egy képlet, tehát az egészet kell bemásolnod az első táblázatcellába, majd továbbmásolni a táblázatod további celláiba. Ha netántán továbbmásolnád mint a számsor darabszáma indokolná, akkor a felesleges cellákba 0-kat fog írni. Ezt a célt szolgálja a HAHIBA. Ha lehagyod, akkor 0-k helyett #HIV hibát ad, amik aztán törölhetők.
Megjegyzem, az ilyen baszom hosszú képleteket nagyon utálom, mert eléggé átekinthetetlenek. Ezért általában részekre szoktam bontani , majd a főképletben a részleteket tartalmazó cellákra hivatkozom. Jelen esetben a C18 cellára, ami a következő képletrészletet tartalmazza:
A piros 5-k a tálázatoszlopok számát jelölik, amit szintén célszerű lehet egy külön cellába írni, és arra hivatkozni, mert lényegesen flexibisebbé tenné az oszlopszám megadását.
Végezetül még annyit, hogy a függvényeimnél aggályosnak találtad , hogy az adataid nem mind számok. Nos, ez nem probléma. Teljesen mindegy, hogy micsodák. A táblázatodba a számsorcellák tartalmait fogja másolni, függetlenül attól hogy számok vagy stringek. (Az 1-25-t csak azért választotam, hogy könnyebb legyen a képletek müködését ellenőrizned.) Fel is rakok neked ide egy példát, ami egyrészt betüket fog táblázatolni, ráadásul 28-db-t amit nem is lehet teljes matrixba foglalni, pusztán azért hogy mutassa, hogy ilyenkor a képlet hogyan táblázatol. A betűoszlopot az A11:A38 cellák tartalmazzák. Amiket ha átírsz 1-28-ra akkor a számok lesznek a táblázatban.
Az alábbi problémában szeretném a segítségeteket kérni. Van egy viszonylag nem túl nagy 3-4000 soros excel tábla pár nem túl bonyolult képlettel. Az a problémám, hogy a képletek eredményét csak akkor frissíti, ha F2-vel belemászik az ember, és leenterezi. Tudom, hogy az excel beállításaiban/képletek/számítási beállítások alatt be lehet állítani, hogy csak kérésre frissítse a számításokat, de ez a beállítás határozottan automatikusra van állítva. Szóval nem ez a probléma, ha kijelölöm az egész táblázatot, és önmagára rámásolom, akkor viszont jó eredményeket hoz. Mi lehet a probléma, ilyennel még nem találkoztam...
Figyelni szeretném a B1 mezőt, hogy a beleírt szöveg tartalmazza-e az A1 vagy az A2-be beírt szöveget.
Pl
A1=1’
A2=4’
B1=2’4’7’
Egy mezővel még nincs gondom, mert HA(SZÁM(SZÖVEG.TALÁL(A1;B1));1;0) Ez így jelenleg kiadja, hogy 0 mert ugye 1' nem szerepel B1-ben De hogy kereshetem A2-t is B1ben, hogy igazra hozza ki?
Van egy táblázat ahol az A1-ben van egy dátum. B-G között vannak az információk. Termék mérete neve mennyisége stb.
A1-be beírom a mai napot és a dropdown listből az infókat. Kérdésem, hogyan lehetne megoldani hogy a holnapi nap már hide-ba rakja az első sort hogy az ne zavarjon be. Szóval a ma()-1-t az automatikusan elrejtse.
Bevallom őszintén, fogalmam sincs. Valamikor régen sikerült csinálnom 2 sablont, az egyik neve Munkafüzet.xltx, a másiké pedig Munkalap.xltx. Ha új munkafüzetet akarok létehozni, a sablonok között csak a Munkafüzet.xltx jelenik meg, ha viszont munlapot szeretnék beszúrni egy meglevő munkafüzetbe, akkor a Munkalap.xltx mutatja magát csak (persze sok más ősexceles társaságában). Hogy miből tudja az excel, melyiket kell mutatnia nem tudom.
Annyi biztos, hogy a Munkafüzet.xltx-ben 3 munkalap van, a Munkalap.xltx-ben viszont csak 1 azaz egy darab munkalap.
Lehet, hogy valóban csak annyi a "trükk", hogy le kell csupaszítani egy munkalapra.... és úgy menteni sablonként.
Igazából eddig (mostanában) nem morfondíroztam rajta, most is meghagynám ezt a nálam okosabbaknak.
Üdv.
(és bocs, nem akartalak "kioktatni" az előző hozzászólásomban, csak miután saját magamnál láttam a két különböző sablont, hát azt gondoltam, biztos lehet külön - külön is ilyet csinálni. sorry!)
Nem írtad, milyen Excel verziód van. De amit javaslok, az minden verzióban működőképes.
Használd az Irányított szűrőt (advanced filter), 2007 -től felfelé speciális szűrő.
Itt megadhatod a keresett adat feltételeit egy szűrőtartományba és az alapján szűrhetsz helyben vagy átmásolhatod egy másik helyre az eredményt.
Használatához fejléc sornak kell az adatok előtt lenni és a fejlécben nem lehet azonos szöveg. Tehát pl. város-város nem lehet, csak város -város1 vagy város1 -város2, vagy indulás - érkezés (ezek csak példák).
A szűrőtartomány kialakítása:
Felírod azt a fejlécet, amire szűrni szeretnél. Alá beírod a feltételt.
Ha és a kapcsolat, akkor mellé írod a következő fejlécet és az alá annak a feltételét.
Nálad és kapcsolatok lesznek, a szűrési feltétel pedig az egyenlő, a dátumoknál pedig a > és a < a dátum oszlopokra, a feltétel értékét pedig az ellenőrző sorából veszed.
A dijtábla első sorát is alakítsd át normális fejléccé.
Javaslom az erre vonatkozó help-et.
Másrészt, ha sikerült az első szűrés, akkor makrórögzítés, majd annak "kipofozása" és hozzá ciklus írás, hogy végigmenjen az ellenőrzés táblán teljesen.
Ha túl sok lett egyszerre amit írtam, csak kérdezz bátran.
Privit tudsz írni az adatlapomból. Mintatáblát (kamu adatok legyenek, de a dijtáblában legyenek meg az ellenőrző táblában szereplő megrendelők stb.) pedig tudsz feltenni pl. a data.hu-ra (linket bemásolod ide), hogy mások is láthassák és segíthessenek.
Azt hittem sikerült feltölteni a képeket, de most megpróbálom újra.
Ha mégsem sikerülne, akkor kérlek írj egy e-mail címet és arra elküldöm.
Díjtábla
A díjtábla konkrét útvonalakat tartalmaz, és a hozzá tartozó idő és ktg értékeket. A ktg megrendelőnként, sőt időszakonként is változik
Az ellenőrző táblában szintén megvannak a megbízók és az útvonalak, valamint a teljesítés tényleges dátuma és az a ktg, amit akkor állapítottunk meg. Azóta a egységes díjtáblát állítottunk össze és az a kérdés, hogy az akkor megállapított árak mennyiben térnek el attól amire mi most gondolunk.
Így a cél az, hogy vegyük az ellenőrzés tábla első sorát keressük meg a megbízót és az útvonalat a díjtáblában, több ilyet is találunk, mivel adott utak költsége időszakonként változhat, ezek közül válasszuk ki azt a sort a díjtáblában aminek az időintervallumába a mi első sorunk tényleges dátuma beleillik. Ha megvan ez a sor, akkor a hozzá tartozó díjat írjuk ki egy új oszlopba, hogy aztán összevethessük az ellenőrzés árával.
Azt írod, hogy van egy számsorod, amit beírva az excelbe kapsz egy oszlopot. Legyen ez az oszlop mondjuk A11:A35, amelyben a számok 1-25-ig vannak amelyeket az X=5 oszlopba akarsz listázni. Most attól fűggően hogy az első sor 1-2-3-4-5 vagy 1-6-11-16-21 az alábbi képletekkel operálhatsz:
a) =INDEX($A$11:$A$35;(SOR($A1)-1)*5+OSZLOP(A1);1)
b) =INDEX($A$11:$A$35;(OSZLOP(A1)-1)*5+SOR($A1);1)
A képleteket természetesen adaptáld a saját oszlopodra és X-edre.
konkrét útvonalakat és ahhoz tartozó idő és ktg értékeket vagy
utak hossza (km) szerinti idő és ktg értékeket tartalmaz?
egységes tarifa van vagy megrendelőnként egyedi?
2. az ellenőrző táblában milyen azonosító alapján lehet megtalálni egy konkrét utat és az azonosító hogyan viszonyul a díjtáblához. Honnan tudom, hogy melyik díjtábla értéket kell keresnem?
Mi legyen ha megtaláltam az adott értékeket? Írja be egy új munkalapra? Szinezze be a celláit? Üzenje meg a kezelőnek?
És hogy választom ki azt az utat, amit keresni/hasonlítani kell?
Egyenlőre ennyi jutott eszembe.
(De néhány soros mintát is csinálhatnál, akár 2 rövid táblázatban ide, akár fájlban feltöltve valahova.)
Egy logisztikával foglalkozó cég a fuvarjait egy excel táblában tartja számon.
Két tabla van, az egyik a díjtábla, a másik pedig az ellenőrzés tabla.
A díjtábla egy elméleti tábla amiben a fuvart,a hozzá tartozó időintervallumot és összeget tartalmazza
A fuvarok cellái egyben tartalmazzák a megbízót és az utat(honnan hova). Egy azonos fuvarhoz azonos útszakaszokon is idővel változhat az ár.
Ezekhez szteretnénk viszonyítani azokat az adatokat, amik ténylegesen megtörténtek. Ezek az ellenőrzés táblában találhatók. Itt megvannak ugyanazok a fuvarok, de azzal az idővel amikor ténylegesen megtörtént a fuvar és egy olyan árral ami nem biztos, hogy megfelelő volt.
Így azt szeretnénk megtudni, hogy mennyivel tértünk el az eredeti meghatározott ártól.
Azt szeretnénk megvalósítani excelben, hogy az ellenőrzés tabla fuvar celláit keresse meg a díjtábla azonos cellái közt és mutassa meg a hozzá tartozó árat, ha az ellenőrzés táblában az idő, a díjtáblában található időintervallum közé esik. Tehát ha mindkét feltétel teljesül.
Köszönöm a fáradozásodat, ezt ismertem - természetesen sablonként el tudtam menteni. Tehát a diagramok beállítása egy(-két) kattintásból megoldott volt.
Viszont lusta vagyok erre is - a szeletelőkkel volt gondom, hogy újra beállítgassam, ugyanis ezt nem lehet egyik füzetből a másikba másolni. Ezért gondoltam arra, hogy valahogy tuti el lehet menteni sablonként a teljes munkalapot.
Nem lehet :(
Munkafüzetet viszont igen, de ezzel nem érek semmit - illetve nem is értem mi a gyakorlati haszna.
Szerintem elmentheted az adott diagramot saját diagramformátumként/sablonként és utána a diagramok beszúrásakor választhatod azt is.
Idézet a 2010-es Excel helpből
"7. lépés: Diagram mentése sablonként
Ha az imént létrehozotthoz hasonló újabb diagramot szeretne létrehozni, a diagramot sablonként mentheti, majd további hasonló diagramok alapjaként felhasználhatja.
Jelölje ki a sablonként menteni kívánt diagramot.
A Tervezés lap Típus csoportjában kattintson a Mentés sablonként gombra.
Írja be a Fájlnév mezőbe a fájl nevét.
Tipp: A program a sablonfájlt .crtx kiterjesztéssel a Charts mappába menti (kivéve, ha más mappát ad meg), a sablonhoz pedig a Diagram beszúrása (Beszúrás lap, Diagramok csoport, párbeszédpanel-megnyitó ) és a Diagramtípus módosítása párbeszédpanel (Tervezés lap, Típus csoport, Diagramtípus módosítása) Sablonok csoportjából lehet hozzáférni.
Megjegyzés: A diagramsablon diagramformázásokat tartalmaz, és a sablonként való mentéskor használt színeket tárolja. Ha egy sablon alapján másik munkafüzetben szeretne új diagramot létrehozni, akkor az új diagram a sablonban tárolt színeket fogja használni – tehát nem az aktuálisan a munkafüzetre alkalmazott dokumentumtéma színeit. Ha a sablonszínek helyett a dokumentum színösszeállítását szeretné használni, kattintson a jobb gombbal a diagramterületre, és válassza a Stílushoz igazítás parancsot."
De a korábbi verziókban is el lehet menteni a saját formátumot, csak ott nem sablonnak hívják.
Van egy táblázat, ahol országok vannak és kapcsolódó utazási dátumok, pl:
Ország Év
Németország 2009
Ausztria 2008
Németország 2012
Szlovákia 2000
Szlovákia 2014
Ausztria 2009
Utána ki akarom számolni az AB.MAX függvénnyel, hogy az adott országban mikor volt az utolsó utazás.
=AB.MAX($a:$b;Év;a$1:a2)
Németország
Ausztria
Szlovákia
mellé írva a fenti képletet, nem 2012, 2009, 2014 adódik, hanem 2012, 2012, 2014, vagyis Ausztriánál nem Ausztriára mint egyedi értékre keres rá, hanem Németországra és Ausztriára.
Próbáltam a kritériumnál : helyett =-t, ,-t vagy &-t írni, de nem megy.
Hát ha csak virtuálisan játszik, akkor tényleg semmi probléma. De ha kísérletnek tekinti, hogy a szisztémájával milyen esélyei vannak a nyerésre, akkor a duplázós martingale-ja igencsak becsapós eredményt adhat. Mert e módszerre az jellemző, hogy sok apró nyereményt 1-1 peches sorozat lenulláz. Tehát sokáig úgy néz ki, hogy nyerésben van, aztán egyszer csak paff. Ha szerencséje van csak a nyeremény ugrik, de általában a tőke is. Ezért a szisztémájának a tesztelésére más módszert kellene választani. Mégpedig a nyerési hányad x átlagos odds szorzatot. Ha ez nagyobb mint 1, akkor a martingale szisztéma ha nem is a legeredményesebb, de a jobbak közt van. Ha a w/n*odds=1, akkor a martingale már nem ajánlatos, mert bár az elméletileg várható nyereség 0 (tehát pénz az ablakban), de a tőkeösszeg erős volatilitása miatt mégiscsak a tőke elbukása a valószínű kimenet. Ha pedig a w/n*odds<1, akkor a bukás garantált. Ebben az esetben a lottózós szisztéma az egyetlen ésszerű játék, nevezetesen minimális összeggel a maximális nyereményt megcélozni. Mert az ugyebár bármikor bejöhet.
Nézd, ha csak virtuálisan -az excel tábláiban - játszik, akkor olyan nagy baj nem érheti. Legfeljebb bosszankodik, hogy "live" mennyit nyerhetett volna és örülhet, hogy nem játszotta el a pénzét.
Aha. Most hogy írod, hogy ragaszkodsz a saját táblázatodhoz, megnéztem alaposabban. És ha nem haragszol, adok egy tanácsot. Felejtsd el! Bár sokan esküsznek rá, a vége mindig nagy fiaskó.
Segítséget kérnék tőletek 1-2 képletre.Egyszerűen nem tudom megoldani a dolgot leírom mit is szeretnék.
Sportfogadáshoz egy táblázatot csináltam ahol vezetném mikor mennyit nyerek és mennyi pénzt teszek fel.A lényege van egy cellám ami a "virtuális egyenlegem" legyen ez a szám 50.000.
A képen leírtam hogy mit szeretnék a lényege röviden hogy a virtuális bankomból vonja le azt az összeget amiket az aktuális tét nevű oszlopba írok és ha nyerek akkor pedig amit beírok összeget a Nyeremény nevű oszlophoz azt pedig adja hozzá a virtuális bankomhoz!
Köszönöm előre is a segítséget és ezt minden táblázatnál csinálja mert sok ilyen táblázat van egymás mellett!
Köszi, így most már rémlik is a dolog. A gáz az, hogy a laptopomon nincs sroll lock gomb. (Lenovo ThinkPad E520) Rákerestem és az FN+C a scroll lock. Valószínűleg egy ctrl+C helyett sikerült megnyomnom. Köszi még egyszer!
Segítségeteket kérném. Már kétszer jártam így, de nem emlékszem, hogy oldódott meg.
Lenyomhattam egy billentyűparancsot, amitől azt történt, hogy a nyilak lenyomására nem celláról cellára ugrik, hanem az egész táblázatot mozgatja az excel. Ha görgetek az egérrel, akkor meg nem gördül, hanem kicsinyít-nagyít.
Így nem lehet dolgozni az excel-ben, borzasztó vazvaró.
Valaki tudja, hogy kell visszaállítani a "normál" állapotot?
Formázás alapján lehet-e összesítést csinálni az Excelben? Nem találok semmilyen használható függvényt erre, talán nincs is.
Érthetően: Vannak cellák, amiknek sárga a háttere. Nekem az kellene, hogy hány darab cellának sárga a háttere? (Nehezítés: a sárga cellákba nem azonos adatok vannak írva, és ugyanaz az adat lehet sárga és "üres" hátterű cellákban is, tehát a darabteli függvény ez esetben nem jó.)
a függvény az A1 cellában van. Az A1 cella mérete meghatározott ami azt jelenti hogy nem fér el 2 nél több érték. Azt szeretném hogy csak azok az értékek jelenjenek meg amely adatot is tartalmaz és csak ott legyen sortörés pl F2 és F9 cella tartalmaz adatot . Most az a problémám hogy a többi cella nem tartalmaz adatot de a sortörés megvalósul ezért az F9 cella tartalma már nem fér bele az A1 cellába. Azt szeretné hogy bármely cellában jelenik meg az érték akkor az A1 cellában sorkizártan több sorban jelenjenek meg az adatok. Így belefér az A1 cellába úgy hogy látható. Remélem jól magyaráztam
Igazad lehet, én csak a képlet szintaktikáját javítottam. Nyilván, ha az A és D oszlop ugyanolyan hosszan van kitöltve, akkor nem probléma. Ha viszont a D oszlop hosszabb, hát akkor baj van.
Kipróbáltad ezt? Mert a specialcell(xllastcell) az mindig az adott munkalap utolsó használt celláját adja meg és nem érdekli, hogy te mit jelöltél ki (sajnos...)!
