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.
Szerintem az egyértelműen a 2. rendszer, csatolok egy képet amit arról az oldalról vágtam ki, és csak a 21-hez van írva, hogy 2. rendszer. Ki is emeltem mire gondoltam.
2010-ben kipróbálva május 23-t már a 21. hétre írta ki, 22 még nem, tehát jól működik!
Vissza_típusA hét kezdőnapja 1 A hét vasárnappal kezdődik. A napok 1-től 7-ig vannak számozva. 2 A hét hétfővel kezdődik. A napok 1-től 7-ig vannak számozva.
Számomra úgy tűnik, hogy e függvény ezen betegsége megmaradt a 2010-esben is.
Ha a T5-ös cellába beírsz egy vonalkódot, mintha érkezne az adat, akkor számol a megfelelő sorban.
Az R1, S1 cellában van minta a szummázásra, ha az r1.be beírsz egy TM... adatot, akkor szummázza, ezt felhasználhatod az össze többire, vagy egy legördülő is csinálhatsz neki!
T5-be érkezik a vonalkód, az össze egy cellába, a program megkeresi melyik sor az, és növeli a darabszámot. Kérdés, a vonalkód milyen formátumban érkezik? pl.: 9410471?
Kell-e nullázni, és mikor, és hogyan akarod?
Mit akarsz az időkkel? A darabszámmal meg kell szorozni? az benne van az R oszlopba, igaz nem az O oszlopra hivatkozva, hanem számként beírva. Ez jó így?
Úristen, ilyet is lehet ? :) Eszembe jutott még egy dolog de ezt már le sem merem írni... Látjátok az alkatrészek mellett vannak olyan kódok, hogy TM xxxx. Ezek a normaidők kódjai, tehát TM06-2821 az 0,11 perc. Igazság szerint ezt is össze kellene adnom valahogy... :( Tehát minden Tmxxx-es értékét ami egyforma. Ezzel végképp nem akarok senkit terhelni, így is nagyon sok segítséget kapok tőletek. :)
A vonalkódok nálatok nem fognak megjelenni, mivel code 128-as betűtípus kell hozzájuk. A vonalkódnak megfelelő kódolt karakterkészlet fog látszani, mondjuk arial-ban :)
Valami olyasmiről lehet itt szó, hogy amikor bekerül az A1-be a beolvasott vonalkód, akkor a vonalkód értékét meg kell keresni a másik munkalapon, a vonalkódok listájában, és a neki megfelelő darabszámot növelni eggyel. Ne adj isten, ha nincs meg a vonalkód, akkor felvenni a listába.
Az megszámolja, hogy hányszor változott az A1-es cellád, ha ez a metódus jó Neked, akkor már csak a Te körülményeidre kell szabni. Gondolok itt a cellák hivatkozásait jól beírni a makróba, valamikor ki kell nullázni a számlálókat, stb.
Vagyis a darabszámnál azt kellene hogy számolja hányszor lett a vonalkód beírva. Egyszerűsítve, ha van egy cellám és öt alkalommal beírokoda valamit, pl 3 5 6 7 8 4 számokat, akkor azt adja eredményül. hogy 5, mivel 5x írtam be oda valamit.
Így néz ki a táblázatom. A lényeg, hogy az első lap ki van nyomtatva, amiről a darabszámolásnál csipogtatják a kódot. A másik lapon pedig a számolás történik számítógépen ténylegesen excel táblába, ami az idő szorzatát is kiadja. A vonalkódok a termék kódja +1 alkatrészenként, tehát pl 940185 az alap kód. Az első alkatrész kódja 9401851 stb...
Én arra gondoltam, hogyha az A1-es cellába teszed be a vonalkódokat, akkor a B1-be számolja hány vonalkód került oda.
Ennek a kódja:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A1")) Is Nothing Then Cells(1, 2) = Cells(1, 2) + 1 End If End Sub
Csatolva, a VBE képe, ezt az aktuális munkalap objektumba kell bemásolni!
Újabb projekt :D Meg lehet azt valahogy csinálni hogy egy cellába ne az értéket írja, hanem az adatbevitelek számát ?
Egyszerűbben. Vonalkódot olvasok be cellába és azt szeretném, hogy ne a vonalkód értékét írja be, hanem azt számolja hányszor olvastam be a kódot. Lehet hogy volt már ilyesmiről szó, de sajnos nem találtam meg. Köszi! :)
Amennyit vacakoltam vele tegnap, olyan gyorsan megtaláltam ma - szóval köszönöm, ha valaki küzdött a problémával, megvan és természetesen baromi egyszerű:
Először vagyok errefelé és remélem, valaki tud nekem segíteni...szóval:
A felhasználó(m) E-mailben kap egy Excel-táblát, aminek nem lehet előre tudni a nevét.
Kinyitja.
Az Excel-tábla, amit kap, az egy többé-kevésbé szabványosan felépített táblázat (egy táblázatos megrendelő) - aminek a feldolgozásával már nem lenne gondom, arra megírtam már a szükséges "feldolgozó programot".
Azt szeretném elérni, hogy amikor a felhasználó kinyitotta a levelezőjéből az Exce-táblát és látja, hogy az egy megrendelő, akkor indítsa el az általam megírt programot, tehát olyan rutin kellene nekem, ami elindítása után felismeri, hogy nyitva van egy (másik) Excel-tábla és hogy annak mi a pontos neve.
Úgy oldottam meg a dolgot, hogy SZUMHATÖBB segítségével létrehoztam külön éves és külön havi összegeket tartalmazó táblázatokat és egy újabb tartományba kerülnek ezek az adatok attól függően, hogy a legördülő menüben mit választok ki, itt használtam az INDEX függvényt. Az OFSZET függvényt csak arra használtam, hogy a diagramom scrollozható legyen, szóval csúnya, de működik... :) Köszi!
Kihasználva, hogy SQLkerdes még nem szerezte meg a világuralmat (#14850-es hsz.), egy másik megoldást javaslok. Ebben egy függvénnyel megkapod az utolsó szót.
Szóköz nélküli szövegnél a teljes szót írja ki.
Function UtoSzo(szoveg As String) As String Dim sor% For sor% = Len(szoveg) To 1 Step -1 If Mid(szoveg$, sor%, 1) = " " Then UtoSzo = Right(szoveg, Len(szoveg) - sor%) Exit Function End If Next UtoSzo = szoveg End Function
' Returns the nth element from a string, ' using a specified separator character Dim x As Variant x = Split(str, sepChar) If n > 0 And n - 1 <= UBound(x) Then ExtractElement = x(n - 1) Else ExtractElement = "" End If End Function
Function WordCount(txt) As Long ' Returns the number of words in a string Dim x As Variant txt = Application.Trim(txt) x = Split(txt, " ") WordCount = UBound(x) + 1 End Function
A cella tartalmát felbontod betűkre egy MID tömbfüggvény alkalmazásával.
Minden betűre megvizsgálod, hogy az szóköz-e (IGEN=1, NEM=0), ezt az eredményt megszorzod az adott betű sorszámával és ezeknek a szorzatoknak a maximumát keresed egy MAX függvénnyel.
A kapott eredmény az utolsó szót megelőző szóköz pozíciója. Innen már csak egy sima RIGHT függvény.
Ha vannak a cellatartalom végén szóközök akkor az egész fenti cuccot nem a cella tartalmára, hanem a cella TRIM-melt tartalmára végzed el.
Hogyan lehet egy tetszőleges hosszúságú és db szóból álló cella utolsó szavát kiszedni?
Ha pl csak 3, esetleg 4-5 szóból álló celláról van szó, akkor a LEN, FIND, RIGHT segítségével ezt meg tudom oldani, ha tudom mennyi a maximális szó mennyiség.
De hogyan oldható ez meg ha nem tudom mennyi lehet a maximális szó a cellában?
Azt szereteném az exceltől kérni makróban, hogy egy megadott folderban lévő összes munkafüzetet nyisson ki, majd mindenek az első lapját másolja egy master fájlba.
De nem akar működni.
Hol rontottam el szerintetek?
Köszi a segítséget!!
--------
Sub MergeSheets()
Dim wbMaster As Workbook Dim NumbSht As Integer Dim BegSht As Integer
El kellene döntened, hogy a bemenő adatod az radián, vagy fok, amennyiben radián, akkor a képlet jó, amit kelan összefűzött, amennyiben fok, akkor a képletből töröld ki az összes "fok" szót!
Azt kell mondjam excelben ez sem halálos probléma.
Ha a worksheet-ek neve egységesítve van (pld 2011+PONT+SZÓKÖZ+HÓNAPTELJESNEVE), akkor még egy durva kinézetű OFFSET-tel is meg lehet csinálni.
Ha a worksheetek nevét nem lehet valamilyen logikai lánc alapján előállítani akkor meg ott van régi barátunk az UDF.
A 2011. január 5-e viszont valszeg szíven döfi a rendszert, mert ahogy látom az egy teljesen más file-ban van (mármint a 2010 decemberi adat). Bár... ;-)
Így néz ki a táblázat. Amint látjátok az első fülre egy összesítőt tettem, ami gyakorlatilag ugyanez a táblázat csak leegyszerűsítve, ebbe kellene az utolsó 20 nap eredménye. DE jogos a kérdés, mi van ha február 5-én szeretném megtudni... itt kezdődik a baj. A táblázatom egy évre van bontva ahogy a képen látszik, tehát pl febr 5-én január 15-ig kellene hogy visszaszámoljon, viszont a hónapok különböző hosszúságúak... pfff. :(
Szerintem ez nem jó, mert csak a hónap utolsó 20 napját összesíti.
A megoldásba be kell építeni a TODAY() függvényből vett adott napi napot és abból levonni 20-at (ha több mint 20, egyébként 1-től kezdeni az összesítést).
A megoldás az OFFSET függvény használata, amit úgy paraméterezel be, hogy egy dinamikusan változó tartományt adjon vissza. Az OFFSET-tel "létrehozott" tartományt elnevezed (named range) és a Chartod bemeneti adata ez a Név lesz.
Vigyázz, van egy trükk (bug) amikor a chart bemeneti adatának név hivatkozást használsz, szépen megmutatja a videóban (kell a név elé a munkalap neve).
Sok sikert. Ha van kérdésed a videó után, vágd hozzánk nyugodtan.
Sziasztok, már megint butaságokkal bombázlak benneteket.
Van egy táblázatom, amiben van egy aktuális hónap. ABCD oszlopokban van egy-egy termék neve, a sorok pedig a hónap napjait jelentik. A termékek nevei alá függőlegesen beírjuk a darabszámokat, amiket a végén szummáz. Így tudjuk, hogy miből mennyit adtunk ki, ez egyfajta teljesítményelszámolás is. Amit szeretnék megvalósítani, hogy egy másik munkafüzetben ugyanilyen alapon, de csak az elmúlt 20 nap számait adja össze egy cellában az aktuális dátumhoz képest. Tehát ha január 30-at írunk, akkor csak január 10-től szummázzon.
Sziasztok! Szereték készíteni egy olyan grafikont, amely az adatokat egy legördülő menüből kiválaszott Nap/Hónap/Év paraméter szerint összegezve jeleníti meg, vagyis van egy csomó adatom és a grafikonban a kiválaszott intervallumra vonatkozó összegeket szeretném látni. Gondolom, hogy létre kell hoznom ehhez egy segédtáblázatot, ami a paraméter szerint változik és ebből kell grafikont készítenem, de a lényegre nem tudok rájönni, hogy hogy lehetne egy cellát rábírni arra, hogy változó méretű tartományt összegezzen. Az adatok dátumokhoz tartozó számok vagyesen, egyik hónapban több az adat, másik hónapban kevesebb... Van esetleg ilyen sheet-etek, amit tovább fejleszthetek? Előre is köszönöm, ha tudtok segíteni! :)
Demokráciában élünk, ami magában foglalja a szövegként tárolt számok vagy képletek újrakiértékelési módszerének szabad kiválasztását.
Persze ha sikerül a tervem és megszerzem a világuralmat, akkor eltörlöm ezt a nagy szabadosságot és csak Text 2 Columns-szal lehet majd konvertálni... Addig úgy csinálok mintha tolerálnám ezt a nagy szabadosságot.
Ha megnézitek az eredeti kérdéshez csatolt képet, ott is ez történt a dokumentnumber adattal. Mondjuk ott mázli, hogy egybefüggő az érintett tartomány és az Excel auto-correct-ben elsikálja a gondot, ha a zöld kis háromszögre kattan a júzer.
Ahol lehet a másolás-lehúzást csinálni ott az egyszerűbb, egyértelmű.
Én soxor dolgozom adatbázis extract-okból, ahol van, hogy "rendes" számok szövegként jönnek át, ott nincs esélye a lehúzásnak, mert nem képlet van amit másolni lehetne, hanem natúr alapadat.
Lehet azt csinálni, hogy Text to Columns (Data/Adat fül) az adott területre. Itt olyan delimitert kell kiválasztani ami NINCS az adott cellákban. A Text to Columns "lefut", nem talál delimitert és úgy hagyja a cella tartalmát ahogy van (vagyis nem szedi szét két vagy több oszlopra) DE újra kiértékeli a kapott új cellák (amik igazából a régi cellák) értékét és ekkor voila, kiszámolja a függvény értékét.
Szövegformátumra van állítva az oszlop, állítsd vissza általánosra.
Ha ettől nem javul meg azonnal (nem fog), akkor nyomd meg az F9-et. Ha ez sem segít, akkor egyenként bele kell lépni a cellákba, és entert nyomni. (_Miután_ a formátumot visszaállítottad.)
Van egy olyan gondom, hogy az egyik oszlopban nem működik a függvény, csak kiírja a képletet, a másik oszlopban pedig rendesen működik, pedig teljesen egyforma a két oszlop formátuma (ha minden igaz). Van valakinek valami ötlete arra, hogy mi lehet a gond?
Az alt+tab gombokkal nem tudok váltani a megnyitott lapok között. Van valami megoldás? Mert a ctrl+tab nem az utoljára használt lapra ugrik, hanem folyamatosan előre ugrik...
ha megvan az üres pivot, akkor egérrel bele lehet húzkodni a mezőlistából megfelelő mezőket a szükséges helyekre. (2007-2010-ben ezt külön be kell állítania kimutatás beállításainál (klasszikus kimutatás nézet, vagymi)
A 2007-es verzió varázslójában 1 lépés van. A táblázatban állva a tartományt jelölheted ki, vagy külső adatforrást választhatsz, és a kimutatás helyét határozhatod meg. Ezzel létrehoztál egy üres kimutatást. Ha ezen a területen állsz, egy elrendezési segédlet jelenik meg a lap jobb oldalán, ami az általad beillesztett képnek az újabb változata. A kimutatási terület mellé kattintva eltűnik.
Robbantomester, igazad van, egyszerűbb az MROUND függvény.
Sziasztok! Az Excel 2003-ban a Pivot tábla elrendezését a mellékelt képen látható ablakbanl is be lehetett állítani. Benne van ez az Excel 2007-ben? Köszönöm!
Van egy olyan problemam excelben, hogy matematikai kerekitest szeretnenk vegezni egesz szamokon olyan forman, hogy mindig a legkozelebbi 5-os ertekhez kozelitsen a vegeredmeny.
pl. 3456-bol legyen 3455, de 3458-bol 3460 legyen.
A kerekites fuggvenyt vegigprobaltuk, de az csak folfele kerekit (3456 -> 3460)
Van erre fuggveny megoldas, vagy marad a manualis modszer?
Nem akarok erre sok időt vesztegetni, nem jellemző, hogy a két verziót egyidejűleg használom. Csupán mint érdekességet említettem meg, mert valakinek látszólag hasonló problémája akadt.
Abban biztosan igazad van, hogy két külön programként kezeli a rendszer – mivel valóban kettő.
Az egész úgy jött elő, hogy 2003-asban kezdtem beadni az adatokat, mikor észrevettem, hogy nem azt kérték, és lustaságból át akartam másolni az addig beírt adatokat és képleteket. :)
Az okosok biztos jobban tudják nálam, és érthetőbben tudják leírni, de rémlik valami, hogy két különálló Excelt külön kezel a rendszer. Akkor is ha ugyan az a verzió van elindítva egymás után. Ebben az esetben nem az Excel saját vágólapján keresztül másol, hanem az op rendszeren keresztül.
Most ki is próbáltam és a saját 2007-es példányomat kétszer indítottam el. Nem tudok másolni a kettő között. Illetve a másolás csak az általad is leírt korlátokkal lehetséges.
Ebbe itt nálunk nagyon sokan belefutnak, hogy valamilyen fájlkezelő programból nyitják meg az egyes táblákat, így azok külön-külön programban indulnak el. Ezért sem használom az Excelnek a "Az összes ablak megjelenítése a tálcán" beállítását. Így minden tábla egy programban van. A tálcán csak egy ikon látszik. Így ha mégis megjelenik több ikon a tálcán, akkor látom, hogy külön programban futnak a tábláim és azonnal megteszem a "szükséges intézkedéseket".
Nem. Egy kis táblázat, 2 oszlop és néhány sor szám, a harmadik oszlopban egy összeadás, semmi szűrés.
Csupán lusta voltam megint beírni a 2007-be a számokat.
Azóta kiváncsiságból megpróbáltam azt is, hogy másolom a 3 oszlopot a 2003-as verzióban, átlépek a 2007-be, és oda irányítottan próbálom beilleszteni. Ezt az ablakot kapom:
Én 2007-ben általában azt tapasztaltam, hogy ha szűrve van a táblázat és ekkor másolok, akkor a beillesztés csak értékkel történik és képletet csak az irányított beillesztés->képlettel tudok másolni. Lehet nálad is ez volt.
Na de Delila pont ezt csinálta. Nézd meg az A oszlopot, ott van a "van" vs "nincs" (ie, hogy van-e olyan ahol 90%-os adat van bármelyik oszlopban, az adott sorban).
Köszönöm az eddigi segítségeket, hasznosnak bizonyult ez az "automatizált jó pofa" alkalmazás.
Már csak olyan kiegészítésre lenne szükségem, hogy a számított érték mögé szeretnék besuvasztani fix karaktert is (% jelet). Eddig a tőle jobbra levő cellába helyeztem el. Ezekből kifolyólag két kérdés merül fel:
képlet mögött lehetséges-e alkalmazni más karaktert is, vagy
"feltételes formázás"-sal kezelt cella szomszédos celláira is ki lehet-e vetíteni ugyanazt a "formázást" (pl.: C2 cellát "formáztam", s a D2-n is ugyanazt a változást szeretném elérni, de a tartalma beírt szöveg, ergo a számítás alapú "formázás" kilőve).
A 60 db termék neve tartalmaz szóközöket és számokat? Ez csak akkor baj, ha a nevek kezdő karaktere számjegy, mert ilyen névadást nem szenvedhet az Excel. Az elnevezés többi helyén már szerepelhet szám.
Mivel a szóközöket is utálja, azok helyett a HELYETTE (SUBSTITUTE) függvénnyel berakhatsz egy bal Alt+0255 (˙) karaktert, ami egy alig látható kis felső helyzetű pont. Ezt már lehet alkalmazni a névadásnál.
Ha számjeggyel kezdődnek a terméknevek, azok elejére is biggyeszthet egy ilyen miniatűr pontot.
B1-> =HELYETTE(A1;" ";"˙"), C1-> ="˙" & B1
Egyszer kell vele vesződni, utána már felgyorsítja a munkát.
Xooo, nem fogok neked hazudni: nem látom a különbséget.
Ha jól értem a problémádat, van az A worksheet-eden kb 60 terméknév, mindegyik terméknévhez tartozik 5 db kód.
Amit el szeretnél érni az az, hogy a B worksheeten, az A oszlopban egy legördülő menüben kiválasztasz egyet a fenti 60 terméknév közül, majd a B oszlopban - szintén legördülőmenüben - kiválasztod a megfelelő kódot. Értelemszerűen azt szeretnéd, hogy ha az ABCDE terméket választottad az A oszlopban (mondjuk A1) akkor a B1 cella legördülőjében már csak az ABCDE termékhez tartozó 5 db kód jelenjen meg és csak azok közül lehessen választani.
A lenti technikák pontosan ezt csinálják, a szóközök miatt lehet egy kis csavar a dologban, hogy a szóközöket ki kell gyomlálni a terméknevekből, amikor Named Range-ként használod a terméknevet. =SUBSTITUTE(A1," ","_")
Vagy teljesen félreértem a problémát és akkor lécci írd le hol és mit értek félre.
Hello. Köszi, de ez nekem nem jó szerintem, mert itt az elv az hogy ha étel a főmenü akkor -alma -banán - körte almenüket lehet kiválasztani.
Nekem viszont van kb 60 db termékem, az első munkalapon, mindegyikhez tartozik 1-8 munkaszám ( 5 jegyű kódok ) amiket frissítünk. Ezért nekem listához kellene listát rendelnem.
Tehát ha a 60 db termékből a1 oszlopban kiválasztok egyet a listáról, akkor b1-ben a csak ehhez tartozó lista kellene hogy előjöjjön, ami csak ahhoz az egy termékhez rendelt kódokat tartalmazza, amit külön megcsináltam és elneveztem. Tehát kb mint a HA függyvény. Ha A1=X, akkor B1=Y, csak nekem listákkal. Ezért nem jó a megoldás amit javasoltál sajnos, de azért nagyon köszönöm. :)
A termékem neve tele van szóközzel számmal stb, tehát olyan nevű listát nem tudok készíteni...
Sziasztok ! A következő dologban kérném a segítségeteket.
Adott A és B munkafüzet. Az egyikben adatok vannak, amikből a másikban legördülő listákat csináltam, hogy a felhasználó ki tudja választani ami neki kell.
Az első kérdésem az, hogy hogyan lehet ( ha lehet ) a legördülő lista szövegét " highlightolni " :D Szóval a cella amibe bele kellene hogy férjen a szöveg kisebb mint a forrás, ezért nem látszik a szöveg végig amikor kiválasztom. ( sortöréssel csináltam meg, szóval amikor beillesztio már jó, akkor 2 sorban van, amikor kiválasztja pedig 1 sorban, tehát nem látszik a szöveg vége )
A második pedig az, hogy legördülő listát tudok-e előszedni HA fügyvénnyel.
Példa: A munkalapon XYCVB szöveghez tartozik 123 456 789 kód.
A másik munkalapon ha kiválasztom XYCVB szöveget, akkor csak 123 456 789-es kódokat kellene hogy felkínálja, ami az A munkalapon az XYCVB szöveggel egy sorban van.
Nektek szerintem nem nagy kaland, nekem kihívás :D
Sub Szín_lekérdezés() If Selection.Font.ColorIndex = -4105 Then MsgBox "A karakter színkódja: " & " fekete (automatikus, -4105)" Else MsgBox "A karakter színkódja: " & Selection.Font.ColorIndex & " " End If If Selection.Interior.ColorIndex = xlNone Then '-4142 MsgBox "A cella hátterének színkódja: " & " átlátszó, -4142" Else MsgBox "A cella hátterének színkódja: " & Selection.Interior.ColorIndex & " " End If End Sub
A kiszínezett cellán indítva megadja a háttér, és a karakterszín kódját.
Fejből nem mondok neked kódokat, de nyisd ki a cellaformázásban a szám fülön az egyedi formátumot, és nézelődj. A negatív számok pirosítására kész megoldás van benne, ha ez elég egyedi szín.
Anélkül, hogy végigpróbálgatnám a teljes színpalettát, honnan tudhatnám meg, hogy melyik "szín szám" milyen színt takar valójában? Negatív számokat más, de egyedi színnel szeretnék megjeleníttetni, a számformátum ekkor pl: 0,00_ ;[Szín5]-0,00
Van egy olyan problémám, hogy van egy 9000 sorból álló excel táblám, aminek a celláiban sok tizedesjeggyel bíró számok vannak. pl.: 0,00800000037997961
De nekem ebből csak a tizedes vessző után 3 számjegyre van szükség. Van olyan képlet ami levágja a maradék számjegyekt? A celleformázás csak takarja, de amikor összefűzöm a cellákat valamivel akkor kiadja a teljes számsort.
Hogy lehetne lecsonkolni 3 tizedesjegyik a cellák tartalmát?
Nekem is összejött végülis, bocsánatot kérek, hogy szemetelek a hozzászólásommal, csak néha el tudok akadni és végső kétségbeesésemben írok ide Nektek. :)
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Target.Column = 1 And Target.Row = 1 And Target.Value = "TRUE" Then Target.Value = "FALSE" Exit Sub End If If Target.Column = 1 And Target.Row = 1 And Target.Value = "FALSE" Then Target.Value = "TRUE" End If
Hogy a többi cellánál éljen a jobb klikkes menü, akkor ez a tuti:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A2")) Is Nothing Then If Target.Value = "False" Then Target.Value = "True" Else Target.Value = "False" End If Cancel = True End If End Sub
Az aktuális munkalap objektumába (VBE) másold be ezt a kódot:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A1")) Is Nothing Then If Target.Value = "False" Then Target.Value = "True" Else Target.Value = "False" End If End If Cancel = True End Sub
Ez a kód az aktuális munkalap A1-es cellára jobb klikk-kel való kattintáskor fut le, és írja be az Igaz, vagy Hamis értéket!
Tudnátok olyanban segíteni nekem, hogy egy meghatározott cellára jobb egér gombbal kattitva a cella tartalma az előző érték ellentettjére vált? Tehát egy TRUE/FALSE kapcsolót szeretnék létrehozni. :) Köszönöm!
Olyan problémába ütköztem, hogy ha bekérek egy tartományt, ami például "Munka1!A1:A5", akkor melyik változó tárolja azt, hogy Munka1, azaz a munkalap nevét amire hivatkozok.
Van egy ilyen sorom: Sheets("Munka1").cells(MyRange.Row, MyRange.Column)
A Munka1 helyére kellene az a változó ami visszaadja a munkalap nevét!
A válaszom nem erre a speciális esetre vonatkozik, de én is meglepődtem tegnap.
Egy 2003-as füzetből akartam értékeket és képleteket másolni 2007-be. Mindegy, hogy Ctrl+c, Ctrl+v módszerrel, vagy áthúzással tettem, a képletek helyére értékek kerültek. :(
Volt egy excel templatem, ahol az egyik sheet offset és match segítégével olvasott ki a kellő helyekről.
SOK SOK FÜGGVÉNY :-).
Na most az történt, hogy ezek a függvények átalakultak value-vá én meg azon gondolkodom ez hogyan történhetett.
Csak pár embernek van hozzáférése a fájlhoz és annyira specikifusan vannak ezek a függvények a fájban, hoyg egyszerűen nem tudom elképzelni hogyan tudta volna valaki felülírni valuval...
Szerintetek létezik, hogy valami oknál fogva egyszerűen törlődik az offset és értékké átíródik?
A Start menü/Programok/Kellékek/Rendszereszközök/Karaktertábla prodgramban találsz indexben lévő számokat, pl. a Verdana betűtípusnál. Ezeket másold, és az Excelben a cellaformázásnál Ctrl-v-vel beillesztheted az Egyéni kategóriában.
SQLkerdes elég korrekt választ adott erre, de ha végképp nem akarsz egy adatbáziskezelőt, akkor meghatározhatod, hogy max. hány színkód lehet egymás mellett, vagy max. hány termékkód, és lehet több hasonló funkciójú oszlopd (amitől persze a képletek akár a visszataszítóságig is elbonyolódhatnak).
Ha viszont nem akarsz adatbázist, és véges sok színed van, akkor minek a színkódok?
"Ebben az esetben milyen szint rendeljen az almához, illetve milyen terméket rendeljen a sárga színhez?" -- Almából van piros és sárga is. Sárga színű lehet az alma és a banán is.
Több-több kapcsolatot kéne valahogy megjelenítenem. A probléma a megoldási javaslatoddal, mármit azzal hogy egy sheet legyen és hogy egy sor csak egy színt és egy terméket tartalmazzon azért nem jó nekem, mert a színek és termékek valójában nagyon hosszú szövegek, melyekből egyik másik akár több tízhez is kapcsolódhat a másik sheetről (hogy érthetőbb legyen, high level requirementeket szeretnék use case-ekhez párosítani, és ezt a párosítást látni visszafelé is).
Amit ki szeretnék hozni, vhogy így nézne ki az előző egyszerű példánál maradva:
sheet1
1 alma 2,3
2 körte 1,3
3 banán 4
4 dinnye 1,2,3
sheet 2
1 piros 2,4
2 zöld 1,4
3 sárga 1,2,4
4 kék 3
"Miért van szükséged, az első munkalapra, ha ott csak az szerepel, amit a másodikon már felsoroltál?" -- az első munkalapra azért van szükségem, hogy a hosszú szövegeket ott külön tárolhassam, és a másik munkalapon már csak az id-ra kelljen hivatkoznom.
Remélem, régebbi verziót alkalmazol, mint a 2007-es, mert annál nem találom a beállítást.
A 2003-nál az Eszközök/Beállítások/Megjelenítés fülön az Objektumoknál a "Helyük látszik" van nálad bejelölve. "Az összes megjelenítése" beállítással mindig látható lesz a diagramod.
Én úgy látom ez egy klasszikus normalizációs probléma.
A több a többhöz kapcsolatok tipikus adatbázis-terület és ez valszeg azt jelenti, hogy a kérdező problémáját nem excelben (táblázatok), hanem pld. Access-ben (relációs adattáblák) kellene kezelni.
Az adatbáziskezelésben a több a többhöz kapcsolatokat egyébként egy ún. segédtáblával szokták megoldani, ami a több/több összes releváns verzióját felsorolja. Ez itt nem tűnik járható útnak.
Nem biztos, hogy pontosan értem mit szeretnél, de szerény véleményem szerint nem is fog működni.
Több elem tartozhat több elemhez. Az Excel nem fogja kitalálni, hogy mikor mit szeretnél hozzárendelni az egyes elemekhez. Például: alma, sárga alma, piros banán, zöld banán, sárga Ebben az esetben milyen szint rendeljen az almához, illetve milyen terméket rendeljen a sárga színhez?
Inkább azt írd le hogy mit és milyen célra szeretnél használni, akkor lehet tudok (tudunk) valamilyen jobb vagy más megoldást mondani. Egy tippem így látatlanban is van. A fenti példához hasonlóan felsorolod a listádat sorokban és oszlopokban. Egy sor csak egy terméket és egy színt tartalmaz. Aztán ebből már több féle módszerrel nyerhetsz ki adatot. Az egyszerűbb módszerek például a kimutatás és a helyi illetve irányított szűrések. Bonyolultabbak lehetnek összetettebb képletek, vagy végső soron makró. Miért van szükséged, az első munkalapra, ha ott csak az szerepel, amit a másodikon már felsoroltál?
Ha egy színhez több termék is tartozhat, egy termékhez több szín is tartozhat, azt hogyan kezeljem? A vesszővel elválasztás nem tűnik működő képesnek, ahol több terméket írok be egy színhez, ott már nem találja meg.
segítséget szeretnék kérni egy excelben megoldandó feladathoz.
Két sheet van, az elsőn ezek az oszlopok: Termék_ID, Terméknév, Szín_ID
Második shett oszlopai: Szín_ID, Szín, Termék_ID
A második sheeten manuálisan beírogatom, hogy melyik színhez melyik termék_id tartozik (egy színhez több termék is tartozhat, egy termékhez több szín is tartozhat).
Hogyan tudom feltölteni az első sheet harmadik oszlopát a második sheet megfelelő Szín_ID értékeivel? És hogyan célszerű a színeknél a termék_id-t beírni, ha több is tartozik hozzá? Vesszővel elválasztva?
Viszont nekem az rémlik, hogy a shell parancsoknál valamilyen módon figyelni kell (illik), hogy már végrehajtódott-e az utasítás mielött a programod tovább fut a következő sorral. De ennek módját most nem tudom.
Megnéztem a tábládat, de én is befürödtem vele. Te az mkdir-t használtad. Utánaolvasgattam és ez tényleg nem képes többszintű könyvtárstruktúra létrehozására. Ez engem is meglepett, mikor a DOS-ban kiadott md meg képes rá. (Mint korábban írtam ez is meglepett.) Ez a meglepetések napja :o) Gondoltam ha DOS-ban lehet akkor lehet VBA-ban is, de nem próbáltam ki. :o(
Programozásban még nagyon sokat kell tanulnom, de megpróbáltam utánanézni.
Egy megoldás lehet a DOS-os md parancs meghívása, de ezzel nem kísérleteztem
Én is barkácsoltam egy megoldást. (A per jeleket +-ra cseréltem, ezt majd cseréld vissza.)
Az eredeti programodat:
folder = Worksheets("Bevisz").Cells(16, 1) Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(folder) Then MsgBox folder & " elérési út nem létezik", vbInformation, "Nem létező mappa" hely = Worksheets("Bevisz").Cells(16, 1) MkDir (hely) Else MsgBox folder & " elérési út létezik", vbInformation, "" End If
Így módosítottam:
folder = Worksheets("Bevisz").Cells(16, 1) If Len(Dir(folder, vbDirectory)) = 0 Then konyvtarak = Split(folder, "+") If UBound(konyvtarak) > 1 Then utvonal = konyvtarak(0) For i = 1 To UBound(konyvtarak) utvonal = utvonal & "+" & konyvtarak(i) If Len(Dir(utvonal, vbDirectory)) = 0 Then MkDir utvonal End If Next i End If End If
Tegnap este próbálkoztam, de sajnos nem sikerült egy mappánál többet létrehozzak egyszerre, egyesével ment. Azt azért nem írom ide, mert E.István azt írta, hogy tud több mappát létrehozni egy lépésben, az Ő ajánlatát kellene használni.
Én ha az MkDir parancshoz beírom a többszintű elérési utat, akkor "Path not found" hibaüzenettel megáll.
Sajnálom, hogy nem tudtam segíteni, ha a több lépcső megoldás jó, akkor szól, azt el tudom küldeni!
Könyvtárműveletes makrót az egyszerű beolvasáson kívül még nem készítettem. Így látatlanban csak tippelni tudok. Szerintem az lehet a gond, hogy egyszerre akarod létrehozni a könyvtárakat. Valószínűleg a beírt elérési útvonalat a makrónak szét kellene szedni darabjaira és egyesével létrehozni a főkönyvtárat, majd abba belépve az alkönyvtárat és így tovább. Nem hiszem hogy létezne olyan művelet amellyel egyszerre lehetne létrehozni többszintű könyvtárstruktúrát.
Formátum menü, feltételes formázás, ott most ez van: =B2<>SZUM(C2:AC2)
Ha írsz egy másik feltételt ami a szorozza a szum-ot valamilyen értékkel (mondjuk a 75%,nál akarsz színt váltani, akkor 0,75-el), és beállítod a színét.
A következő problémában kérném a segítségeteket: Adva van egy kész makró, ami menteni tud adatokat a:-Worksheets("Bevisz").Cells(20, 1)- helyre. Ha nincs ez megcsinálva előre akkor viszont semmi sem történik, megpróbáltam vizsgáltatni és létrehozatni a könyvtárat,de max egy mélységig hajlandó, pl:- D:ment- de a - D:mentmentés1- már nem jön létre, sőt ez esetben az első sem. Remélem érthető.
Erről a linkről le tudod tölteni! (Remélem működik a link)
Megcsináltam az összes tételre!
Annyi a változtatás, hogy a "B" oszlopból kitöröltem a képletet, oda kell beírnod a szállítandó mennyiséget, ha nincs annyi a raktárakban, akkor piros lesz a háttere!
A problémám a következő, két időértéket szeretnék kivonni egymásból, a cellaformátumok: [ó]" h" pp "p"
Ha a különbség negatív, akkor ############ jelenik meg eredményként, nyilván az Excel nem tud mit kezdeni a negatív idő fogalmával, de én szeretném, hogy ez jelenjen meg. Nem tudok rájönni a megoldásra... Tudtok segíteni?
Így érthetőbb lesz. :) Ez egy szállítmányozási terv, aminek a felső sorának egy blokkja ezt tartalmazza pl: 400 co 11630. Vagyis hány db termék melyik raktárban milyen munkaszámon van. Az oszlop ( csak 3 kiszállítás terve van meg mindig, tehát 3 dátumot tartalmaz egy blokk )
Jelenleg manuálisan számolgatom, hogy ha pl 1200 terméket kell kiszállítanom ápr 30-án, akkor ahhoz szedjen össze az első raktárból 400-at ( mert ott annyi van ) a másodikból pedig 800-at pl. Ez egyszerű, van amikor 4-5 helyről kell összeszednem és számolgatnom a maradékot a következőhöz.
Van erre szerintetek valami épkézláb megoldás, hogy ha beírom az összesen-be hogy 1320, akkor ez sorban ( a raktárak sorban vannak ) szedje össze a megfelelő mennyiségű terméket?
Példa: 300 co 11447 380 a 11447 250 co 77455
Össz: 500
Ehhez az első raktárból 300-at vesz el, a másodikból pedig 200-at, de abban maradt 180.
Excel programon belül kínlódok már egy jó ideje. Még valamikor jócskán a múltban sikerült olyasvalamit véletlenül elkövetnem, hogy akármennyire görgettem le a "Munkafüzet"-en, néhány kijelölt sor mindig látszódott a lap tetején. Ezt milyen paranccsal lehet elérni? (2003 Office-om van.) Segítséget előre is köszönöm! Üdv:
Adott egy excel file, amiben van VB kód, command button stb.
A file 2006-ban készült: tulajdonságok->Részletek->tartalom létrehozása.
Ezt a tartalom létrehozása időt hogyan tudom átállítani, mondjuk a mai napra??? Póbáltam, hogy kimásoltam mindent és beillesztettem egy új file-ba, de a dátum maradt 2006
A file mentés máskét és eredeti felülírásánál is maradt a dátum
sziasztok Excel-guruk, egy aprócska (és talán láma) kérdésem lenne:
azt hogyan lehet/kell megcsinálni, hogy az Excelben függvény alkalmazásával a cellákba az aktuális értékeket írja be: év, hónap, nap (mármint, hogy 2011, 04, és 27 legyen az addig üres 3 cellában)?
"'szükséges referencia a "Microsoft Scripting Runtime"-hoz. VBA-ban Tools - References alatt"
VBE nem VBA, de nem véletlenül írtam oda megjegyzésnek. :)
Szóval a Visual Basic Editorban a menüben kiválasztod a Tools-t majd a References-t és bepipálod a "Microsoft Scripting Runtime"-ot. De úgy is működnie kellene amit Jimmy írt.
Például. Én szeretek csak annyi sort kimásolni az alapfájlból amennyiben értékes adat van (vizsgáljuk például azt hogy mi az utolsó sor), ez itt lent annyiban egyszerűbb hogy mindenképpen 200 sornyi adatot másol. Az "első munkalap" nem mindig az első munkalap ezért érdemes lenne inkább névre hivatkozni.
Sub CrDb()
Dim FSO As Scripting.FileSystemObject, folder As Scripting.folder, file As Scripting.file, wb As Workbook
'szükséges referencia a "Microsoft Scripting Runtime"-hoz. VBA-ban Tools - References alatt
Ha jól értem a szöveget, akkor ez sok munkalapot csinál egy munkafüzetbe.
Nálam az a helyzet, hogy eltettem a MUNKA könyvtárba 250 db excel fájlt, p001 - p250 néven.
Mindegyikből az első munkalapon lévő A-J oszlopok tartalmát kell kimásolni a MIND.xls fájl első munkalpjára, egymás alá.
Végignéztem őket, a leghosszabb sincs 200 sor, tehát A1:J200 cellákat kell átmásolni, de a célterület az A1, A201, A401, stb. cellákkal kell kezdődnie.
A végeredmény a mind.xls első munkalapján a1 - j5000 táblázat, amit már tudok kezelni.
Üdv, látom, nagyon profik vannak itt vba szkriptek terén is, máris van reményem.;)
Az access listára irtam, azt a választ kaptam, hogy szkripttel oldható meg, de fogalmam sincs, milyen access szkriptet kellene irni, és csak sql-hez értek.;)
Viszont akkor a másik oldalról fognám meg a probléma gyökerét, és talán ebben tudtok segiteni.
Adott rengeteg excel fájl, heti pénztár forgalmi adatokkal, 10 oszlop, 110 sor.
Access-be át kell másolni őket, de access-be csak egyesével lehet, abba beleőszülök.
Az lenne a legegyszerűbb, ha az excel fájlokat - mindegyik egy munkalapos - egyetlen fájl egyetlen munkalapjára, egymás alá be lehetne másolni, azt már - pici kézimunkával - be tudnám importálni access-be.
VBA, Integers are 16-bit signed types, when you perform arithmetic on 2 integers the arithmetic is carried out in 16-bits. Since the result of multiplying these two numbers exceeds the value that can be represented with 16 bits you get an exception. The second example works because the first number is first converted to a 32-bit type and the arithmetic is then carried out using 32-bit numbers.
Az excel ezt native-an is tudja, nem kell hozzá makró. A megoldás az INDIRECT (magyar: INDIREKT) függvény, de hosszú lenne írásban elmagyarázni. Mindjárt keresek egy linket ahol már készen le van írva.
sziasztok, én az execelen belül szeretnék egy legördülő listát létrehozni, ami eddig nem jelent gondot. Viszont van egy "A" lista(a főfeladatokról) és B lista(ami egyes főfeladatokat bont részfeladatokra). ha egy listába raknám mindezt, nagyon hosszú lenne kiválasztani az illetőnek a megfelelő feladatot, ezért szeretnék (makróval?) hivatkozni: ha kiválasztom a főlistából az adott feladatot, a következő cellában a legördülő lista az előbbiekben kiválasztott főfeladathoz tartozó részfeladatai jelennének már csak meg, szűkítve az egész részlistát. első ránézésre makróra gondoltam, de abban meg nem igazán vagyok otthon... Esetleg ötlet a megoldásával kapcsolatban?KÖszi!
Hát én első nekifutásra egyszerűbb dologra használtam volna. (Lehet, hogy egyszerűbben is mehetett volna...? Ki tudja milyen függvényeket rejt a most telepített csomag.) Szóval egyszerűen többjegyű számokat kellene kiiratnom véletlenszerűen betűvel. Az egyes oszlopokba beírtam a megfelelő neveket, majd az összefűz paranccsal és a most telepített INDIREKT-tel generálom a számokat - egészeket és tizedes törteket. De jó lesz ez még sokmindenre.
Szívesen, nekem is jutott ezzel a feladattal egy kis szórakozás.
Gyerekkorunkban szólásokat, közmondásokat cetlikre írtunk fel úgy, hogy az első felét egyik-, a másodikat másik színű papírra. Aztán húztunk 1-1 papírt a két halomból, és összeolvastuk.
A vezeték, és keresztnevek helyett most beírtam pár mondást, ilyen eredményeket kaptam:
Ja és nagyon kezdő számára melyik könyből lehet sok szemléletes példán keresztül megtanulni a makrozást? Nem egyetemi könyvre inkább valami excel for Dummies-ra gondolok.
Sziasztok, csak felszínesen ismerem az excelt - így is sok örömöm van benne - , de most olyan problémám van, amit nem tudom meg lehet-e oldani vele.
Olyasmi feladatról van szó, mint anno BASIC-ben egy ON x=1,2,3,4... Do a,b,c,d... féle játék, konkrétan mondjuk egy oszlopban van egy csomó szöveg (vagy szám) és onnan kellene egyet kiolvasni akár egy vél() gererálta érték függvényében. PL. az A oszlopban szerepel 20 vezetéknév, a B-ben 20 keresztnév és 1-1 vél()szám által generált érték alapján írjon egy random nevet egy adott cellába. (Remélem érhető voltam) Volna segítség?
Mielőtt átmásolod az oszlopot, az eredeti (F) oszlop tartalmát alakítsd át =F$3+$A4 stílisra (minden sorban, kivéve természetesen az első adatot (16:00)).
Megcsináltam hogy az egyik oszlop a menetidőket számolva kijön az alábbi képlettel:
=F$3+A4
A oszlop F oszlop
Moszkva tér 16:00
0:02 Városmajor 16:02
0:05 Budagyöngye 16:05 stb
Viszont ha egy 16:15-ös indulást vennék fel akkor nem másolja oldalra a számokat mindig érték hibát kapok, mert valahogy a megállót akarja hozzárendelni az értékhez amit nem értelmez. Hogy tudom odébbvarázsolni valahogy hogy mindig az A oszlop értékével számoljon?
Nem változtattam semmit, csak az event-et Calculate-ra (-re?).
Közben rájöttem, hogy nem kell volatile függvény, mert a figyelendő terület egyébként is függvény, szóval minden frissítéskor újraszámolódik és izgatja a Calculate event-et.
Private Sub Worksheet_Calculate() Dim wsLog As Worksheet, rLog As Range Dim rQuery As Range, c As Range, Hit As Range
Set wsLog = Worksheets("Munka5") Set rQuery = Range("B1", Range("B" & Rows.Count).End(xlUp)) For Each c In rQuery Set rLog = wsLog.Range("B" & Rows.Count).End(xlUp).Offset(1) Set Hit = wsLog.Range("B:B").Find(what:=c.Value, after:=rLog, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious) If Hit Is Nothing Then rLog.Offset(, -1).Resize(, 3).Value = c.Offset(, -1).Resize(, 3).Value rLog.Offset(, 2) = Now ElseIf Hit.Offset(, 1) <> c.Offset(, 1) Then rLog.Offset(, -1).Resize(, 3).Value = c.Offset(, -1).Resize(, 3).Value rLog.Offset(, 2) = Now End If Next End Sub
Egyszerűbb lenne, kivéve úgy, hogy az az L betű függvény eredménye. Mert akkor megint ott vagyunk, hogy mitől lesz automatikus. Az általad leírt viselkedés a SelectionChange eseményre hajaz. Biztos, hogy a kódot a weblekérdezést tartalmazó munkalap kódlapjára tetted be, és nem módosítottad? Merthogy működnie kellene...
Nincs kedved átküldeni a táblázatot email-ben?
válaszok:
-az "L" karakter sajnos logikai fügvény eredménye
-gőzöm sincs mitől lehetne automatikus.. nem tudom van e olyan parancs, ami a kódba írva arra adna utasítást, hogy az újrainduljon, újrafusson weblekérdezés esetén, vagy időzítve kétpercenként, vagy ilyesmi.
-Igen igen, a kódot a munka3 worksheetre tettem, amire az adatok befutnak. Ezért működik, ahogy működik.
-Módosítottam: a kódban egy értéket átneveztem (B1-ről B2-re), hogy a fejlécet ne loggolja, ez tuti irreleváns. :)
Ja, és ehhez mindig "xxx xxx" formátumban írd be, mert azt keresi először, aztán ha nincs ilyen fájl, akkor kiveszi belőle a szóközt, és újra keresi szóköz nélkül.
Private Sub Worksheet_Change(ByVal Target As Range) Dim FN As String, myPath As String, ext As String Dim wa As Object
If Target.Address <> "$A$1" Then Exit Sub myPath = "C:itt_vannak_a_fájlok_mappa" FN = Dir(myPath & "*" & Range("A1").Value & "*.*", vbNormal) If FN = "" Then
End If ext = Mid(FN, InStrRev(FN, ".")+1) If ext = "doc" Then Set wa = CreateObject("word.Application") wa.documents.Open myPath & FN wa.Visible = True ElseIf ext = "xls" Then Workbooks.Open myPath & FN End If End Sub
ha a file név elején van xxx xxx akkor megnyitja, így is xxx xxx és xxxxxx is. Ha a file név végén van pl abcdefg xxxxxx.doc és így írom be xxxxxx akkor megnyitja, ha xxx xxx akkor nem.
Jimmy kérlek segíts rajtam még egy apróságban :) Vannak olyan file-ok amelyek így néznek ki 940 084 box abcdefg.doc és vannak olyanok amelyek így: Box abcdefg 940084.doc, tehát a kódban van egy szóköz. Erre van megoldás, vagy az összes file-t nevezgessem át szóköz nélkülire ? Ugyanis amikor beírja a user a táblázatba a kódot, nem tudja hogy szóközzel van anélkül van-e mentve a doksi. Viszont a táblázatban szóközzel szokták írni, amikor kinyomtatják :D
Tehát lehet olyat csinálni, hogy ha szóközzel írja be a kódot a táblázatba xxx xxx akkor azokban is keressen amelyeknek ilyen a formátuma ? xxxxxx
Egyszerűbb lenne, kivéve úgy, hogy az az L betű függvény eredménye. Mert akkor megint ott vagyunk, hogy mitől lesz automatikus. Az általad leírt viselkedés a SelectionChange eseményre hajaz. Biztos, hogy a kódot a weblekérdezést tartalmazó munkalap kódlapjára tetted be, és nem módosítottad? Merthogy működnie kellene...
Private Sub Worksheet_Change(ByVal Target As Range) Dim wsLog As Worksheet, rLog As Range Dim rQuery As Range, c As Range, Hit As Range
Set wsLog = Worksheets("Munka5") Set rQuery = Range("B1", Range("B" & Rows.Count).End(xlUp)) For Each c In rQuery Set rLog = wsLog.Range("B" & Rows.Count).End(xlUp).Offset(1) Set Hit = wsLog.Range("B:B").Find(what:=c.Value, after:=rLog, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious) If Hit Is Nothing Then rLog.Offset(, -1).Resize(, 3).Value = c.Offset(, -1).Resize(, 3).Value rLog.Offset(, 2) = Now ElseIf Hit.Offset(, 1) <> c.Offset(, 1) Then rLog.Offset(, -1).Resize(, 3).Value = c.Offset(, -1).Resize(, 3).Value rLog.Offset(, 2) = Now End If Next End Sub
MOST csak akkor loggol, ha "rákényszerítem", úgyértem, ha rámegyek a munka3-ra majd a munka5-re váltok, akkor azt az állapotot loggolja, de ha elmegyek a városba dolgomat intézni, és nem váltogatom a lapokat oda-vissza, akkor a munka3 ezen kódja "nem dolgozik" nem loggol automatikusan, csakis a váltásnál.(pedig a munkafüzet mindig aktív és online)
Jimmy The Hand: minden eddigitől elvonatkoztatva: nem lenne egyszerübb, ha az egész loggolásnak EGYETLEN feltétel szerint kellene történnie?? semmi összehasonlítgatás meg efféle. CSAK annyi, hogy a weblekérdezéses munka3 nevű lapon, ha a "D" oszlop valamely cellájában a kód találna egy "L" karaktert, akkor csak az adott sor A, B, C oszlopában szereplő értéket (számított értéket!) loggolja csak (idővel együtt).
mert én azt az "L" karaktert logikai fügvényekkel el tudom helyezni a "D" oszlopba.
Köszönöm :) A helyzet, hogy ez egy elég aljas excel tábla. Nyomtatási területet, vonalkód címkét készítő makró is van benne, ennek a végére tettem be egy 3-as modulba, csináltam egy TESZT nevű könyvtárat néhány doksival, de valamit elronthatok, mert nem nagyon akar működni. :(
Ötletem éppenséggel volt, de nem tudtam megvalósítani.
Szóval azt próbáltam, hogy makróval indítani az internet explorert, és elküldeni a megadott oldalra, aztán ott lekérdezni az oldalról egy adott objektum értékét. Az objektum nevét ugye az oldalforrásból lehet megállapítani. Hát itt elakadtam. Nem értek a javascripthez, de html-hez se nagyon, és nem tudom, hogy hogyan vannak ezek az értékek megjelenítve.
A nevüket sem találom. Olyat találtam, hogy
<span id="ertek_nyito"> </span>
meg
<span id="hozam_idoszak"> </span>
meg hasonlók, de az
Set object = ie.Document.getElementsByName("hozam_idoszak")
végrehajtása után az object tartalma a nagy semmi.
Én már nem dolgozom 2003 excelben, de amikor xl2007-ben compatibility mode-ban lementettem file-okat amikben volt COUNTA(H:H) akkor azt mondta, hogy az probléma lehet.
Ha legalább annyi teljesül, hogy minden fájl nevében benne van a kód, és minden fájl ugyanabban a mappában van, akkor már meg lehet spórolni a manuális felvitelt.
A1-re kihegyezve valami ilyesmi lehet:
Private Sub Worksheet_Change(ByVal Target As Range) Dim FN As String, myPath As String, ext As String Dim wa As Object
If Target.Address <> "$A$1" Then Exit Sub myPath = "C:\itt_vannak_a_fájlok_mappa\" FN = Dir(myPath & "*" & Range("A1").Value & "*.*", vbNormal) If FN = "" Then Exit Sub ext = Mid(FN, InStrRev(FN, ".")+1) If ext = "doc" Then Set wa = CreateObject("word.Application") wa.documents.Open myPath & FN wa.Visible = True ElseIf ext = "xls" Then Workbooks.Open myPath & FN End If End Sub
Köszi a választ ! Az az igazság, hogy egyöntetű algoritmust nem lehet ráhúzni a file-okra, hogy értsd, ezek szövetek amiknek van egy kódjuk, de a file neve sokszor ilyen: 935 445 szines bőr jobbos.doc vagy 887 445 szürke anyag.doc. Olyan megoldásra gondolotam mint a HA függvénynél, hogy ha 958 444 van a kódban, akkor nyissa meg a xycvb.doc-ot. Ezt nyilván manuálisan egyszer fel kellene vinnem, hogy melyik kód alapján mit nyisson meg.
egy hivatkozást szeretnék - függvénnyel - mellyel egy másik munkafüzet adott oszlopának mindenkori utolsó cellaértékét tudom beilleszteni úgy, hogy az értékek nincsenek sorba rendezve.
ha jól tudom akkor a "hol.van" és "cím" függvényekre van szükség....
Próbáld ki ezt. Feltételeztem, hogy a B oszlopban vannak az alma, cékla, banán, stb., szóval amivel beazonosítható a nemtudommi, továbbá a C oszlopban van nemtudomminek a nemtudommije, amit figyelni kell. Sajnos e tekintetben eléggé ellentmondásos információk jöttek eddig. Az alapötlet pedig az eddigiektől eltérően az, hogy a már naplózott banánok közül keresem ki az utolsó banánt, és ha ahhoz képest van eltérés, akkor naplózom megint. Így nem kell temp munkalap.
Private Sub Worksheet_Change(ByVal Target As Range) Dim wsLog As Worksheet, rLog As Range Dim rQuery As Range, c As Range, Hit As Range
Set wsLog = Worksheets("Munka5") Set rQuery = Range("B1", Range("B" & Rows.Count).End(xlUp)) For Each c In rQuery Set rLog = wsLog.Range("B" & Rows.Count).End(xlUp).Offset(1) Set Hit = wsLog.Range("B:B").Find(what:=c.Value, after:=rLog, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious) If Hit Is Nothing Then rLog.Offset(, -1).Resize(, 3).Value = c.Offset(, -1).Resize(, 3).Value rLog.Offset(, 2) = Now ElseIf Hit.Offset(, 1) <> c.Offset(, 1) Then rLog.Offset(, -1).Resize(, 3).Value = c.Offset(, -1).Resize(, 3).Value rLog.Offset(, 2) = Now End If Next End Sub
weblapról szépen elérem a kérdéses oldalt, viszont vagy nem találom a kis nyilat mellyel kijelölhetem az adatokat, vagy az adatokat kijelölöm majd pedig importálom - viszont hiányosan jelennek meg a munkafüzetben. Körbenéztem a különböző fórumokon, de sajna sehol sem találtam megoldást. Elképzelhető hogy ezt a fajta dolgot nem tudja kezelni az excel...
árfolyamokra lenne szükségem, amit a táblázat megnyitása után azonnal tudok - mármint az értékeket - frissiteni.
A problémát igazából az jelentheti, hogy ugyanazon internetes oldalcimhez több megjeleníthető adathalmaz (flash?) tartozik.
biztos érthetetlenül fogalamztam, elnézést érte. Ha valaki találkozott hasonló szituval kérem adjon tanácsot.
a B oszlopban csak akkor van alma nevű elem, ha a weblekérdezés ad alma nevű elemet, amúgy nincs.
leegyszerűsítené a dolgot, ha mondjuk ÉN DIREKT egy feltételhez kötném, mit LOGGOLJON????
például ilyesmi: a munka3 worksheetben , ha az adott sor "C" oszlopban lenne egy "L" karakter, akkor loggolja a sor 3 értékét? (időkijelzéssel) a munka5-re.
Nem. Kicsit elbeszélünk egymás mellett, ha jól hallom :-)
A B oszlop sorai mindíg azonosak (pld. ha a weblekérdezés nem ad eredményt az alma nevű elemre, attól függetlenül a B oszlopban lesz alma nevű elem (és mindíg pld. a második) vagy a B oszlopban csak akkor lesz alma nevű elem, ha a weblekérdezés rész ad alma nevű elemet)?
A weblekérdezés sorrendjét értem, én a figyelendő (logolandó) tartomány sorrendjét kérdeztem (A oszlop és társai?). Az ottani tételek sorrendje fix vagy az is változik aszerint, hogy mi jön le a weblekérdezésben?
a weblekérdezés abc sorrendben jön.. ez kicsit gáz, mivel (alma banán cékla) esetében a cékla 3. helyen áll következő frissítéskor akár második helyen is állhat (alma cékla görögdinnye) ---a banán kiesik, a görögdinnye bejön
az új érték mindig az ABC szerint szúródik be a sorok közé, és a weblekérdezés üres tartománya pedig törlődik (a banán sora teljes egészében)... Az összehasonlító megoldásban ennek nem lenne túl nagy jelentősége, vagy mégis??
-hogy kell "kinyomni a figyelendő tartományt" egy temp worksheet-be? mármint hogy temp legyen.. valódi elözmény legyen.
-hogy kell összehasonlítani így a tempben lévő értékeket az újonnan beérkezett értékekkel
-és az eltéréseket hogyan kell kiiratnom a munka5-re. :)
hát ezeket nem tudom. :)
de ha már megvan..
-azután már tudom szűrni, listázni, formálni, alakítni, "függvényelni", hogy statisztika lehessenek belőle.
-az egész munkafüzetben szereplő cellák nem csak kizárólag a weblekérdezések értékeit illetve annak számított eredményeit tartalmazzák.
-érdemes lenne a munka3 worksheet-re kitalálni vmit, ne pedig workbook-ra, mert a többi munkafüzet is változik, és azoknak a változásíit nem szeretném loggolni.
Hát, akkor itt az a megoldás, hogy a figyelendő tartomány (NEM a weblekérdezéses területet) értékét ki kell nyomni egy átmeneti worksheet-re és minden weblekérdezés után ellenőrizni kell, hogy a figyelendő tartomány új értéke megegyezik-e az ideiglenes worksheet-en lévő adatokkal. Ha nem, akkor kell logolni.
Felteszem a figyelendő tartományban az adatok sorrendje nem változik (csak azért kérdem, mert most van amikor "alma, cékla, répa", máskor meg "banán, cékla, paradicsom".
köszönöm a code-ot, és egyet értek a tapasztalatoddal.
ez így müködik, de nem jól.
a weblekérdezés nem publikus. egy olyan táblázat, aminek az oszlopszámai változatlanok, a sorainak száma változik 0-30 között, most perpillanat 5 sor. Sohasem több mint 30 sor. Betettem az "F" cellára.
A KÓD-dal az a baj, maga a WEBLEKÉRDEZÉST gondolja változásnak, így ugyanarról ugyanarra, vagy semmiről semmire történő cellaváltozást is loggol.
Eredmény:, hogy a munka5-ön öt sorban van adat, aztán alatta 25 sorban nincs, aztán két perc múlva azalatt megint lesz öt sor, (ami ugyanaz az adat, mint a legelsö ötösnél)
A weblekérdezés kétpercenkénti, de ez csak a REALtime (hatás) figyelés miatt van, valódi változás az adatokban ritkán van ( óránként), tehát két percenként ne loggolja ugyanazt lehetöleg. :) itt SQLkerdesnek nek igaza van. az a baj, hogy nem történik valós változás. ha kétpercenként történne, akkor ez a kód lenne a legjobb a világon.
HOgy kellene megcsinálnom ezt a TEMP összehasonlítós megoldást?, nem akarom bonyolítani a dolgot, valami alapmegoldás is jó lenne, nem kell nekem tökéletes, viszont IDŐ-kijelzése fontos lenne.
!!Példa!! 3-4 értékkel csak hogy érthető legyen (sorry az adatok bizalmasak, ezért helyettesítem ezekkel):
Sziasztok ! Egy relatív egyszerű dologban szeretném a segítségeteket kérni. Van egy excel táblázatom, amit nyomtatok, rengeteg pédányban minden nap. A lényeg, hogy van 15 könyvtáram kb 300 file-al, amik összefüggésben vannak ezzel a táblázattal.
Az egyik cellába egy kódot írok, pl 935848, ez alapján megkeresem a könyvtárakban ugyanezt a word-ot, ecelt ( a neve nem teljesen ugyanez ) és azt is kinyomtatom módosított adatokkal. Hiperhivatkozással, if fügvénnyel vagy valahogyan meg lehet oldani, hogy ha pl A1=935848 akkor nyissa meg nekem automatikusan a C:X935848abcd.doc file-t ?
nem tudom milyen adatok kérdeznél le és honnan így, de egy olyan helyen ahol 2 percenként frissülő adatok vannak, szolgáltatják az oldalon belül azok logolását is. (pl. árfolyamadatok, tőzsdei kereskedelmi adatok stb...)
Teszteletem egy saját weblekérdezésseel, és azt tapasztaltam, hogy amikor a lekérdezés frissül, a Worksheet_Change eseményben a Target a teljes tartománnyal lesz egyenlő. Ha tehát pl. egy weblekérdezés normál esetben az A1:T110 tartományt foglalja el, frissítéskor Target = A1:T110 lesz. Mindez független attól, hogy ténylegesen van-e változás a webről lehívott értékekben.
Ez azonban szerintem teljesen konzekvens működés, mert a Worksheet_Change ugyanígy működik sima cellamódosításnál is. Ha ugyanis pl. A1-ben eredetileg 1 van, és rálépsz A1-re, lenyomod az 1-est és ENTER-t, akkor tulajdonképpen a cella értéke nem változott meg, hiszen előtte is, utána is 1 az értéke, a Worksheet_Change mégis lefut. Az értékek tényleges megváltozását úgy lehetne esetleg nyomon követni, hogy a teljes lekérdezés tartalmát (az értékeket) lementeni egy temp munkalapra, és frissítés után azzal hasonlítani össze az új értékeket.
JTH makrója csak abban az egy esetben nem működik (vagyis de pedig nem kéne) ha a weblekérdezés eredményeként a figyelendő cella mégsem változik. Ez akkor történhet, ha az alkalmazott függvények olyanok, hogy két változás kiolthatja egymás hatását. Erről pilótakeksz nem nyilatkozott.
Viszont azt gondolom, hogy mivel változás nem marad ki, csak olyan false pozitívok kerülnek be, amiknek nem kellene, a makró jó.
Meglehet, de amit JTH megadott makrót, azzal is működik (kipróbáltam, csak a range-t vettem le egy cellára és az időt annak megfelelően, ahogy azt az importálás frissítési gyakoriságában beállítottam). Nagyon jó a dolog, érdemes kipróbálni.
"A valós lekérdezés a F oszloptól kezdődik, de ez lényegtelen."
Attól tartok, nem lényegtelen. Ide szerintem a Worksheet_Change vagy Workbook_SheetChange esemény kell, és figyelni kell, hogy hol történik változás a munkalapon. A képlet újraszámolása nem jelent változást, szóval az A2:C31 tartományt hiába figyeli a program. Amennyiben a lekérdezésben benne van az F2 cella, szerintem az alábbi kód jó lesz. A ThisWorkbook kódlapjára másold be.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim r As Range If (Sh.Name = "Munka3") And Not Intersect(Target, Sh.Range("F2")) Is Nothing Then Set r = Worksheets("Munka5").Range("A" & Rows.Count).End(xlUp).Offset(1) r.Resize(30) = Now Sh.Range("A2:C31").Copy
r.Offset(, 1).PasteSpecial xlPasteValues End If End Sub
valamit elcseszek : ne haragudj! Pontosítok amennyira csak tudok: legelőször pontatlan voltam.
-->munka3 a2:c31 - re érkezik a weblekérdezés, illetve a weblekérdezés által lehívott táblázat azon része, ami fügvények segítségével A B C oszlopokba lett szűrve a számomra hasznos tartalmuk. A valós lekérdezés a F oszloptól kezdődik, de ez lényegtelen. A lényeges infó az A B C oszlop. (amiben a sorok összetartoznak) és nem 10 sor hanem a legfelső változatlan címsor alatt 30 változó tartalmú sor áll. Tehát a címsort nem kell loggolni.
-->munka5 a2:..... -re szeretném a loggolást végrehajtani! (több ezer soron keresztül is loggolhat)
a munka5-re megyek, view code, és beleírom azt, amit írtál a Worksheet-be:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LogRow As Integer If Target.Row < 32 And Target.Column < 4 Then
' az A2:C31 tartomány változott
LogRow = Sheet5.UsedRange.Rows.Count + 1
Sheet5.Cells(LogRow, 1).Value = Time
Sheet5.Cells(LogRow, 2).Value = Target.Address
Sheet5.Cells(LogRow, 3).Value = Target.Value
End If
End Sub
a Kódban mi mutat a munka3-ra? és rendben van ez így? mert nekem nem működik, azt írja ki, hogy "Can't execute Code in break Code."
Segítségedet előre is és utólag is köszönöm.
És bocs, ha az arcodat kaparod, amiért értetlenkedem. ÜDV!
A kihúzott részek egy korábbi koncepcióból maradtak bent, hagyd ki őket.
A Sheet1, Sheet2 a munkalapok kódnevére vonatkozik, értelemszerűen cserélni kell őket ha az adataid más füleken vannak.
Más: ha a weblekérdezést makro csinálja, akkor ezt abba is bele lehet integrálni.
Más2: ha a weblekérdezés eredményeképp egy egész range változik egybe (pld. A1:B20) akkor nem feltétlenül fog jól működni a lenti kód, mert a Value property-nek bekever ha a Target nem sima cella.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Range2Check As Range
Dim LogRow As Integer Set Range2Check = Range(Sheet1.Cells(1, 1), Sheet1.Cells(11, 2)) If Target.Row < 12 And Target.Column < 3 Then
ez igy nem igazan jo. mert nem masolni szeretnem az adatokat hanem naplozni loggolni. a munka1 lapon 2 oszlop 10 sor öt percenkent valtozik. a munka2 lapon minden valtozast elozmenyt rogziteni szeretnek. lehetoleg a rogzites idopontjat is C oszlopba.. ez keplettel nem megoldhato. vmilyen VBA macro kellene hozza. koszonom a valaszodat. ÜDV
Tud valaki segíteni nekem abban, milyen macrot kell írnom ahhoz, hogy az egy munkalapon weblekérdezéssel A, B oszlopába érkező 2 percenként változó, frissülő adatokat másik munkalap A és B oszlopába naplózza. esetleg a naplózás időtartamát kiírja.
Ha valaki segítene esetleg, tegye kérem szájbarágósan, mert új vagyok még a pályán.
Egy váltógombot tettem egy munkafüzetlapra, aminek hol a mérete nő meg a rákkantításkor, hol a megnevezése betűmérete csökken le parányira. Mi lehet szerintetek ennek a fura jelenségnek az oka?
Egyszerre több pivottábla jelentésszűrőjének állítgatásához kinek milyen ötlete van?
Pl.:
van 10 pivottábla (Összegyúrhatnám egybe az egészet sql oldalon, de nem szeretném - és nem is ez az igény)
a jelentésszűrőjükben 1-1 hónap, vagy év mezővel.
Nem akarja az user végiggyalogolni a 10 kimutatást, hogy azonosat állítson be mindegyiknél.
Elég sok pivotos újítással találkoztam a 2010-esben a 7-eshez képest. Nincs erre is valami frappáns szerintetek?
Tömör gyors makróval viszonylag egyszerűen meg tudom oldani (még nem tettem meg csak az elgondolás van meg), azonban arra vagyok kíváncsi, hogy van e erre beépített 2010-esben (még nem találtam, 3 és 7-ben szerintem nincs)
Egy talán egyszerű, de nekem kissé bonyolult feladat megoldásához szeretnék segítséget kérni.
Szóval az időt szeretném áttenni 10-es számrendszerbe, vagyis ha az az eredmény, hogy 2:30, vagyis 2 óra 30 perc, akkor az eredmény 2.50 legyen, tehát kettő és fél óra.
A Microsoft Office Excel 2003-ban, hogy lehet számokhoz a négyzetméter mértékegységet beállítani úgy, hogy a 2-es felső indexben legyen? Így próbálkoztam: kijelöltem a számokat, Formátum-->Cellák-->Egyéni Normál" m^2".
Akkor a másik oldalon egy OFFSET (magyar verziója OFFSZET)-be beraknám ezt:
=ADDRESS(SUM(--(A1:A9=B20)*ROW(A1:A9)),2,,,"sheet1") (angol excel-em van, szóval ezt még át kell alakítsd magyar függvényekre (SUM=SZUM, ROW=SOR, ADDRESS=?)
Ha nincs biztonsági mentésed, akkor szerintem sehogy.
Ha céges környezetben dolgoztál, akkor lehet van automatikus archiválás, ekkor hálózati rendszergazda, illetve az intézőben megnézheted, hogy vannak-e előző verziók az adott könyvtárhoz.
Excelben dolgoztam, nagyon fontos adatokkal napok óta. Egy másik mappában ennek mintájára akartam egy másik excel fájt, de másolás helyett véletlenül parancsikont hoztam létre. Az új excel fájlban is dolgoztam, lementettem, de ezzel ugye felülírtam az eredeti fájt, amiből eltűntek a nagyon fontos adatok. Amatőr hiba, tudom... Hogyan tudom visszahozni az eredeti állaptot?
Az utolsó válasz volt a legszimpatikusabb, és szerintem a legegyszerűbb is, mert az én kódom is úgy nézett ki, csak nem volt benne az Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") parancs, ami tökéletesen összeszámolja 2003-ban is az összes oldalt! :)
A többit nem próbáltam, mert ez már megfelelő eredmény hozott.
A kód, hátha szüksége van rá valakinek: :)
Sub Minden_második_oldal_nyomtatás() dim i, TotalPages as integer
TotalPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") 1: k = CVar(InputBox("Add meg a első oldal számát!", "Első oldalszám megadása")) If k <> "" Then On Error GoTo Hiba k = k / 1 On Error GoTo 0 For i = k To TotalPages Step 2 'ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, _ ' ActivePrinter:="PDFCreator a(z) Ne00: kimeneten", Collate:=True ActiveSheet.PrintOut From:=i, To:=i, Copies:=1, Collate:=True Next i End If Exit Sub Hiba: If Err.Number = 13 Then MsgBox ("Csak számot adhatsz meg!") Resume 1 End If End Sub
Van olyan nyomtatóbeállítás, hogy manuális-duplex-et nyomtasson, ez azt jelenti, hogy először (azt hiszem) a páros, utána a páratlan lapokat nyomtatja ki (asszem az utolsó lapot először és így visszafele).
Ha ezt akarod elérni, akkor lehet egyszerűbb ezt a property-t beállítani.
Ismét egy kérdéssel fordulok nagy publikum elé! :)
Meg szeretném tudni annak a változónak a nevét, amely megmondja, hogy egy munkalapon az éppen aktuális nyomtató-, illetve oldalbeállítással hány oldalas a munkafüzeztem.
Ha ezt tudom, akkor egy for ciklussal ki tudom nyomtatni a páros illetve a páratlan oldalakat az excel 2003-ban.
Szerintem a Munkafüzet2 fájl Open és Close eseményébe kellene betenni egy olyan kódot, ami a Munkafüzet1 megfelelő celláiba beírja az aktuális pontos időt.
A következő probléma megoldásában kérem a segítségeteket:
Adott két munkafüzet (Munkafüzet1.xlsm; Munkafüzet2.xlsm) . A feladat az lenne, hogy a Munkafüzet1-ből kell megnyitni a Munkafüzet2-t, és mérni kellene valahogy azt, amikor a megnyitás megtörtént, illetve amikor bezárták a Munkafüzet2 fájlt (a két időpont lenne a lényeg). A mérés eredményét pedig be kellene írni a Munkafüzet1-be.
A megoldásra az alábbiakat próbálgatom, de valamiért nem működik.
A Munkafüzet2 megnyitása és a mérés indítása a Munkafüzet1.xlsm – Munka1 munkalapján történt dupla kattintással történik:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
A Munkafüzet2.xlsm bezárása a Munkafüzet2.xlsm - Munka2 munkalapjára kattintással történik:
Private Sub Worksheet_Activate()
ActiveWorkbook.Close
End Sub
A mérés leállítása a Munkafüzet2.xlsm bezárása után a Munkafüzet1.xlsm újbóli aktiválásakor történik:
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
’mérés leállítása
MsgBox "Munkafüzet1 - Workbook_WindowActivate"
End Sub
A problémám az, hogy ha a Munkafüzet2.xlsm fájlt nem „hagyományosan” a Bezárás menüponttal vagy az ablak bezáró „X”-re kattintással zárom be, hanem a fenti Munka2 munkalapra kattintással, (ActiveWorkbook.Close paranccsal) akkor nem aktiválódik a Munkafüzet1.xlsm „WindowActivate” eseménykezelője.
Az is nagy segítség lenne ha valaki tudna infot mondani erőlködjek-e ezzel tovább vagy felesleges. Amit szeretnék összehozni, egy munkalapról egy sorból alma banán körte cellákból egy másik munkalapra almabanánkörtét csinálni egy cellába. Sima legördülő menü van, de 3 fele tagolva tudtam csak létrehozni, mivel csak egy sort vagy oszlopot enged az excel.
Végül csak egy "on error"-al megoldottam, hogy ha nem találja a file-t, akkor "msgbox", hogy "nincs nyitva, próbáld újra".
Elég sok makróm működik így, mert régebben nem ismertem még a megnyitási metódust, és azóta nem írtam át őket. Így legalább érzi a felhasználó, hogy rá is szükség van. :)
Addig jutottam el a prohektben, hogy az első fülön található 3 oszlopból és 15 sorból álló táblázatnak adtam egy nevet pl X. Majd az adatok érvényesítése paranccsal az utolsó fülön próbáltam csinálni egy legördülő menüt, de az excel csak egy oszlopra vagy sorra tud hivatkozni a táblázat neve alapján.... pfffff. Kifogytam az ötletekből.
UDF-ben egy csomó minden nem működik, és én erről mindig megfeledkezem... :(
Azt javaslom, legyen az UDF-ed bemenő paramétere a másik munkafüzetnek az a bizonyos része, és akkor - lévén külső csatolás - az Excel megpróbálja majd frissíteni a hivatkozásokat, és kiabál, ha nem sikerül. Jobb ötletem nincs. Esetleg az, hogy a Workbook_Open során biztosítsd be, hogy a másik fálj is meg legyen nyitva.
Annyi a különbség, hogy a makró rögzítő nem tárolja melyik az aktív nyomtató, és szerintem nem tudod pontosan beírni.
Ezért én kiírattam az Immediate windowra az az aktuális, aztán váltottam és azt is kiírattam. Innen be tudtam illyeszteni a szöveget az idézőjelek közé!
Ismét egy probléma megoldásában szeretném kérni a segítségeteket, javaslatotokat. Van egy táblázatom, amiben van 6 fül. Az első 5 fülön olyan adatok vannak, amelyek pl egy gombnyomásra be kellene hogy kerüljenek a 6. fül megfelelő helyére. Próbálom érthetőbben elmagyarázni. Az első 5 fülön raklapok és ezek gyári számai vannak, kategorizálva. A megrendelő azt kéri, ezekből állítsunk össze egy táblázatot. ( mi került kiszállításra ) Van amikor csak 3 raklap kellene egy fülről, van amikor 3 fülről kellene 5-5 raklap. A copy-paste nem igazán járható út :( Az első 5 fül cellái állandóak, ezeket előzetesen töltik ki és ebből kellene csinálnom egy hatodikat. A hatodik fül cellái szintén állandóak, de nem mindig ugyanaz az adat kerülne bele. A gyári számok, stb ugyanolyan hosszúak.
próbálkoztam azzal is hogy szöveggé alakítsam az x-et...de nem működött.
De rájöttem miért...
Ez egy automatikus grafikon, ami oda ugrik ahova kell neki és annyi adatot ír be, ahány "napot" észlel kitöltve...
Offset, count, name range-et stb-t használ...és persze..hát én idióta ha a függvényben a count-ot használom az szöveget nem fog érzékelni :-)))...ez logikus...
idegeskedtem egy sort, de a lényeg hogy végre meg van a megoldás!!!
Sajnos még mindig lenne kérdésem :( Ez a nyomtatási terület kijelölés nagyon klasszul működik, már csak egy baj van. Ha pl beírok 9-et akkor két sor címkét jelöl ki, mert nyilván 1-el több mint a 8, ezért egy sorba már nem fér bele. Vajon lehet úgy módosítani a makrót ( belenéztem, saját kútfőből nem jöttem rá :D ) hogy pontos címke darabszámot jelöljön ki, vagy mostmár menjek a francba. :D A makróban láttam hogy minden cellát 3-al szoroz, ezért elvileg cellákat kellene kijelölnie 3-asával nem pedig sorokat, de lehet hogy rosszul értelmezem.
Elküldtem a módosított fájlt az itt található címedre.
A 3 lapra tettem 3 gombot, amik végrehajtják a makrót. Mindegyik a saját címkéi közül annyit tesz a nyomtatási képbe, ahány a BIZTn lap E4 cellájában található.
A nyomtatást nem írtam bele, a nyomtatási ikonra kattintással nyomtathatod. Azért hagytam ki, mert most sárga hátterűek lesznek a címkék, azon biztosan akarsz majd változtatni a
Range("A1:H" & usor).Interior.ColorIndex = 6 sorban a 6 átírásával.
A probléma az, hogy 3db munkafüzet van, amihez 3db címkeoldal tartozik. A " komplett darab " az a szám, ami alapján a megfelelő mennyiségű címkét kellene kijelölni. Ne haragudjatok az amatőrködés miatt de ezidáig nem nagyon foglalkoztam ilyesmivel.
Ha a címkék a Munka2 lapon több oszlopban vannak, akkor az usor változót az oszlopok számával osztani kell, és szorozni 3-mal. Az előbb ez a szorzás lemaradt.
Köszönöm a segítséget, feltöltöttem az excel file-omat megauploadra, így jobban átlátható. Természetesen a vonalkód a megfelelő betűtípus nélkül nem fog megjelenni, de az nem is lényeges.
A Munka1 lap A1 cellájába írtam a darabszámot (120-at).
A Munka2 lapon vannak a nyomtatandó címkék, a példában mind az A oszlopban.
Sub Nyomt_ter() Dim usor As Integer
Sheets("Munka2").Select Cells.Interior.ColorIndex = xlAutomatic ' az előző terület színének visszaállítása usor = Sheets("Munka1").Cells(1).Value ActiveSheet.PageSetup.PrintArea = "$A$1:$A" & usor Range("A1:A" & usor).Interior.ColorIndex = 6 End Sub
A makró a Munka!A1 cellájában található számnak megfelelő sort jelöl ki nyomtatásra, és a hátterüket sárgára festi. Szerintem a színezés elé kellene tenni a nyomtatási parancsot, hacsak nem színes címkéket akarsz nyomtatni.
Ha a címkék a Munka2 lapon több oszlopban vannak, akkor az usor változót az oszlopok számával osztani kell, és természetesen a PrintArea is ennek megfelelően módosul.
Illetve még azon gondolkodtam, hogy ha 2 lapot csinálok a címkékből 2x80=160 és az első lapra 120-at írok akkor 40 db-ot el lehet rejteni a címkékből automatikusan a 120-as szám alapján.... lehet hogy hülyeség csak eszembe jutott. :) Vagy fordítva... elrejtem a címkéket pl 3x80-at és csak annyi x3 jelenik meg amilyen számot beírok az első táblázatba.
Sziasztok ! Egy olyan problémával illetve kérdéssel fordulok hozzátok, amihez hirtelen ötletem sincs hogyan fogjak hozzá. Adott egy táblázat ( egy termékkísérő lap ) amin van egy x szám egy cellában, pl 120. Egy másik fülön van egy vonalkódos címkéket tartalmazó táblázat, ( A4-es fektetett oldal, 80 db címkével ). Egy ilyen kis címke 3db sorból, cellából áll. Egy cikkszám, egy vonalkód, egy megnevezés amit az előző táblázatból generál az excel. ( a vonalkódot makróval ). A kérdésem, megvalósítható-e az, hogy ha az első lapra a termékek számához pl 120-at beírok, annyi termékcímkét jelöljön ki / nyomtasson ki / színezzen be a másik fülön található táblázatból? ( 1 db címke 3 cella ahogy említettem, szóval annyiszor 3db pl 120 x 3 db cellát kellene hogy kijelöljön ) pfffff :)
Az A és C tartományban a cellaformázás Védelem fülén vedd ki a pipát 'Zárolt' elől, a B oszlopnál ugyanitt jelöld be a 'Rejtett' négyzetet. Az utóbbi opció eredménye, hogy a lap zárolásakor nem látszik a szerkesztőlécen semmi a cellák kijelölésekor.
A B oszlopba ezt írtam: =HA(A1;"Írjon megjegyzést a C" & SOR() & " cellába";""). Tehát a megjegyzést nem a B, hanem a C oszlopba írják be.
Az A oszlopot tedd rejtetté, és védd le a lapodat (Eszközök - Védelem - Lapvédelem). A védelemnél vedd ki a pipát a 'Zárolt cellák kijelölése' elől.
Lapfülön jobb klikk, Kód megjelenítése. A jobb oldalon kapott üres lapra másold be:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then If Target > "" Then Cells(Target.Row, 1) = "HAMIS" Else Cells(Target.Row, 1) = "IGAZ" End If End If End Sub
Ezután a C-be írt megjegyzés hatására a rejtett A oszlop azonos sora HAMIS értéket kap, a B-ből a képletnek megfelelően eltűnik a felszólító szöveg. Ha egy megjegyzést törölnek, az A oszlop azonos sorú cellája IGAZ lesz, B-ben előjön a felszólítás.
Konkrétan arról van szó, hogy a B lenne a megjegyzések oszlopa. Ide írhat be a helhasználó.
Viszont, ha az A oszlop celláiban IGAZ van (ez egy logikai eredmény, egyébb cellákból), akkor a B oszlop megfelelő cellájába kötelező írnia indolkálst.
Ezért arra gondoltam, hogy ha az A-ban IGAZ szerepel, akkor automatikusan beírok egy felszólító szöveget a B-be, hogy "Legyen szíves indokolja...".
Ha hamis szerepel, akkor üres sztringet. De ettől függetlenül még írhat bele.
És azt szeretném, hogyha rááll a B cellájára, akkor ne képletet lásson benne pl ilyet: HA(A1 = IGAZ; "Indokolja meg..."; "").
Ezért lebbe jó megoldani azt, hogy mondjuk az A cellájából tudnám módosítani a B tartalmát.
első megkreált sheet után már nem az eredeti Name sheeten akar lépkedni, hanem az újon.
Persze, mert az újonnan beszúrt munkalap lesz az aktív - márpedig te nem mondtad meg neki, hogy melyik munkalapról vegye a neveket - így venné az aktívról
Sub Makró1() Dim WSN As String, T As Object WSN = ActiveSheet.Name Set T = Sheets(WSN).Range("A1").CurrentRegion For Each CELLA In T Sheets.Add ActiveSheet.Name = CELLA Next End Sub
Egy táblázat oszlopának sorszámait egymás alatti cellákba írva a következőt műveli:
1-2-3-4....stb jól beírva, általános szám formátumban semmi gond nincs. Amikor azonban pl; a 4-5-6. formációt szeretném beírni egy cellába, automatikusan átvált az enter után dátumformátumra...(lásd alant...) Már próbáltam a cellaformázásnál és az excelbeállításoknál is kijelölni utána, de hatástalan. Állandóan dátumformátumot dob ki... Egy cellában valamiért sikerült beírni, de hiába másolom azt is, hatástalan...
A probléma az, hogy egy számlázó programból exportál adatokat kell feldolgoznom, azaz nem nekem, hanem egy kis cég igazgatójának.
A makró kész, használja már, csak az a probléma, hogy elfelejti frissíteni az árfolyam táblázatát, akkor a makró futása megszakad, mert nincs meg minden adat.
Ekkor frissíti az MNB oldaláról, és újra indítani a makrót.
Ezt szeretném elkerülni, hogy nem álljon meg futás közben, egyszerűbb lenne egyből abból a táblázatból indulni.
"Mert ugye az árfolyamok, mint historikus adatok nem változnak."
Igen, nem változnak, de amíg nincs frissítve, akkor ahhoz a naphoz nincs adat!
Nem elkerülni akarom annak elismerését, hogy fogalmam sincs hogy kéne csinálni (mert nincs), de:
Miért akarod mindíg megnyitni? Nem lenne egyszerűbb egyszer letölteni (ha szükséges belerakni munkalapként abba a workbook-ba amiben használni akarod) és kész. Mert ugye az árfolyamok, mint historikus adatok nem változnak.
Adj egy kicsit több infót a problémáról és bár lehet az árfolyamok folyamatos nyitását-csukását nem tudjuk megoldani neked, de valami alternatív megközelítést nem kizárt hogy találunk.
Érdeklődöm, hogy Ti hogyan oldanátok meg azt a feladatot, hogy a Magyar Nemzeti Bank oldalán található árfolyam-lekérdezés táblázatot automatikusan nyissa meg az Excel.
Erről az oldalról van szó: http://www.mnb.hu/arfolyam-lekerdezes a lap alján van, hogy éves listák. Ki lehet választani az évet, és a letöltés gombra kattintva megnyílik az excel.
Automatikusan szeretném nyitni/zárni. (A zárás nem gond :))
Akkor nem érted, azt amit leírtam. Lehet nem jól fogalmaztam, de próbáld ki azt amit leírtam az elején. Egyébként csak azért írtam le, hogy okos ember más kárán tanuljon :o) És itt sok okos ember megfordul. :o)
Pont hogy az a hiba, hogy nem azt kapom vissza amit letároltam, és erről még csak nem is tudok. Korrektül csak akkor kapom vissza az adatokat, ha egyszerre egy darab munkafüzet van megnyitva.
Az első táblázatban 1-es érték szerepel, mert amikor lementettem ez volt a csatolásban.
A második táblázatban 2-es érték szerepel, mert amikor lementettem már ez volt a csatolásban, mivel időközben a csatolásban szereplő adat megváltozott.
Amikor az első táblázatot megnyitom helyesen az 1-es értéket látom. Bezárom majd megnyitom a második táblázatot, amiben helyesen a 2-es értéket látom. Bezárom Eddig nincs semmi gond.
Ha viszont az első táblázatot nem zárom be, hanem megnyitom a második táblázatot is, akkor mindenféle figyelmeztetés nélkül az első táblázatban lévő érték átíródik 2-esre, pedig abban a táblázatban 1-esnek kellene szerepelni. Tehát mind a két táblázatba 2-es fog szerepelni hibásan.
Ha fordítva nyitod meg, először a második táblázatot, majd utána az elsőt, akkor meg a másodikban íródik át az érték és mind a két táblázatban az 1-es érték fog szerepelni. Most az 1-es, vagy a 2-es érték a helyes? Mind a két táblának meg kellene őriznie a saját értékét.
Ez a hiba attól függetlenül jelentkezik hogy engedélyezem-e a már nem létező csatolást vagy nem. Ez utóbbi esetben azért különösen súlyos az eset, mert mondjuk pont azért nem engedélyezem a csatolást, hogy az eredeti adataimat láthassam, még ha egyébként létezne is a csatolás, hiszen ennek ez az egyik célja. Ennek ellenére módosul a tábla. Majd miután valamilyen módosítás hajtok végre a táblában (ha egyszerre vannak megnyitva) és lementem, akkor már az általam nem módosított cella is a megváltozott hibás adattal kerül mentésre és erről még csak nem is tudok.
Ennél pontosabban nem hiszem hogy le tudom írni. Sok embernek mutattam már személyesen is. Elöször mindenki csak értetlenül nézet, aztán amikor felfogták, hogy miről beszélek ledöbbentek, és elkezdtek visszagondolni, hogy követhettek-e el ilyen hibát a munkájuk során, hiszen ebben az esetben ők már egy harmadik személynek hibás adatokat továbbítanak.
Az hogy ilyen hibával nem találkoztál azért lehet, mert egy normális excel felhasználó ezt általában nem követi el. Ha új verziójú/dátumú táblázatot készít, akkor általában a csatolásból is újat készít, vagyis a csatolás neve is más lesz. Vagy ha sem a táblázat, sem a csatolás nevét nem változtatja, akkor megy egy másik könyvtárban menti az új táblázatokat. Ebben az esetben meg a csatolás elérési útja lesz más és így a hiba megint nem jelentkezik.
Egy külső hivatkozásnál eltárolja valahová az elérési utat és a cella tartalmát egyaránt. Ha a hivatkozott fájl törölve / áthelyezve lett, akkor is korrektül visszaadja azt, amit te megadtál.
Köszönöm neked is, illetve yanoold-nak is a válaszát. A belinkelt usb-s programot letöltöm s meglátom mennyire tudom az
általam készített szószedetet használtatni vele.
Igazából az excel-es megoldásnak azért örültem volna, mert excel mindenhol van, viszont installálni nem minden gépen tudok, amit használok, illetve a saját szószedet importálása 2 billentyűkombináció lett volna.
Szóval mobilisabbnak és könnyebben bővíthetőnek éreztem volna emígy.
Persze ebben a formában se lett volna muszály az excel, gondolom valami html, php, nem is tudom mi is képes ugyanezt megoldani, ha a szószedet txt-ben ott van a weblap mellett.
Akkor is belesétálsz. Ha engedélyezed a frissítést, akkor jelzi, hogy nincs meg a forrás, de attól még az egyszere nyitott két tábla közül az egyik nem a lementett valós állapotot mutatja.
Kapsz valakitől egy táblázatot, ami tele van csatolásokkal. Pár nap mulva kapsz egy másik táblázatot, vagy az előző táblázat egy frissebb változatát, amit más névvel mentesz el, vagy eleve más a neve (verzió). Ez az második táblázat ugyan azokhoz a munkafüzetekhez van csatolva, amihez az előző is volt. Csak közben megváltoztak az alapadatok.
Az alapadatok csak a küldő félnél vannak meg, neked nincs.
Megnyitod mind a két táblázatot, hogy megnézd mi változott meg és döbbenten tapasztalod, hogy nem változott meg semmi sem, mert tök egyforma a két tábla, miközben ha külön külön nyitod meg akkor láthatod hogy más adatokat tartalmaz.
Ez egy elég durva hiba, annak aki nincs rá felkészülve.
Persze megoldás van. Megkapok egy táblát, megnyitom önállóan és megszüntetem az összes csatolást, ezáltal már értékként lesz lementve a tábla, de akkor ezt minden táblával el kell játszanom. És ez nem minden esetben járható út. Arról nem is beszélve, hogy ez esetben hozzányúltam megkapott táblázathoz, így már nem beszélhetünk úgymond "eredeti" vagy küldő által "hitelesített" adatokról, táblázatokról.
Ha már a hibáknál tartunk, leírom egy régi esetemet, ami nagy galibát okozott nálunk és azóta maximálisan igyekszem elkerülni a csatolások használatát. Hozz létre egy munkafüzetet, (alapadat). Írj az egyik cellájába valamit, mondjuk „1” Hozz létre egy másik munkafüzetet (füzet1). Egy kiválasztott celláját, mondjuk A1 csatold az alapadathoz, majd zárd be a füzet1-et. Hozz létre egy másik munkafüzetet (füzet2) ugyan azt a cellát csatold az alapadat füzethez és az alapadatokban lévő értéket írd át mondjuk „2”-re. Zárd be az összes táblát Töröld le a gépedről az alapadatot. Ha külön-külön megnyitod a két füzetet füzet1 és füzet2, akkor a cellában vagy 1-et vagy 2-öt találsz, teljesen helyesen. Ha egymás után nyitod meg a két füzetet akkor a megnyitás sorrendjétől függően mind a két táblában vagy 1 vagy 2 lesz. Ha letiltod a csatolásokat akkor is. De egyébként sincs hova csatolni, hiszen az alapadat már nem létezik. Tehát nem a valódi táblázatban lévő és lementett adatokat látod. Nos ez a hiba több hetes szívást okozott nálunk, mire rájöttünk. Valaki hozzáértőnek van véleménye, tanácsa? Azonkívűl, hogy lehetne jelezni a fejlesztőknek, amit az én csekély angol tudásom nem tesz lehetővé. :o)
magyarul is mondjuk: ezer éve nem láttalak stb. amúgy nem bonyolult, hibaüzenet esetén ctrl shift I ; és megjelenik a jobb alsó sarokban egy kódszám, amire ha rákeresel kaphatsz infot, mi lehetett a hibaüenet kiváltó oka.
Lehetséges-e, hogyha egy adott cellába beírom a megfelelő értéket és továbblépek enter, vagy tab gombbal, akkor elindúljon egy makró ami csak ahhoz az egy cellából való kilépéshez tartozik.
HALI!Arra kérnék egy hozzáértőt, hogy némi kis honoráriumért cserébe tudna e nekem segíteni egy könnyű excel ZH feladat megoldásában neten keresztül szerdán?Várom a jelentkezőket!Üdv!
Az Excel2007-nek azon a sávján, ahol a munkalapok között váltasz kattints jobbal.
Itt válaszd a Move or Copy-t
A legördülő menüben válaszd a cél workbook-ot (vagy egy új workbook-ot ha még nincs cél workbook-od) és ne felejtsd el bekattintani alul a Create a Copy opciót.
Rávettem magam, hogy idősebb fejjel nekiesek az angolnak, amihez nagy segítség lenne egy jó kis 2lapos excel tábla, szavak tanulásához...
az elképzelésem az alábbi:
Adatbázis lapon: 4 oszlop: mangolul a szó, magyarul, topik neve, és a sorszámnak mé egy cella kezdetben üresen.
A szó kikérdező lap működése:
1. Felugró panel, megkérdezi, hogy angolul kérdezzen, vagy magyarul
2. Felugró panel, megkérdezi, hogy melyik témakört választjuk
3. A nyelv és a topic kiválasztása után csak az adatbázis szavait figyelje, ami ebbe a csoportba tartozik.
4. A kiválasztott témakör szavai mellé a "Sorrend" mezőbe generáljon le egy véletlen számot 0 és 0,95 között, s a program futása során ide többször ne generáljon véletlen számot, tartsa meg az elején legeneráltat.
6. A "Sorrend" oszlop alapján növekvő sorrendben írja ki a választott kikérdezési nyelven a szavakat egyenként, majd az ez alatt a beviteli mezőbe beírt megoldást hasonlítsa össze az adatbázisban megadott megoldással.
7. Ha helyes, akkor a "Sorrend" oszlop adott cellájába írjon 1-est, ha nem akkor hagyja benne a régi számot.
Ha elért 0,95-ig, kezdje újból kikérdezni a még nem 1-essel megjelölteket.
8. A futás akkor álljon le, amikor az összes szó mellett 1-es szerepel.
9. A futás leállása előtt adja fel a találati statisztikát. (helyes találatok / összes kérdezés)
találkozott valaki már e probléma, vagy hasonló megoldásával? Basic-ben nem vagyok otthon, ( persze máshol sem túlzottan, anno egy kevés pascal meg C volt az összes tudományom... ) de ha esetleg makrók nélküli megoldást tudna valaki mondani, az tuti lenne...
Először járok itt, szeretnék segítséget kapni Excel 2007-hez,
Van egy Pivot táblás kimutatásom, amiben van egy szűrt oszlop.
Ez a kimutatás külön sheet-en van.
Szeretném ezt a sheet-et exportálni egy önálló excel fájlba, úgy hogy a formázás maradjon meg, illetve a szűrőben nem mutatott adatok ne legyen láthatóak az új fájlban sem.
Tudnátok erre tippet, hogyan lehet egyszerűen megcsinálni?
Online (böngészőben szerkesztve) nem, de ha a file-t a gépeden futó office application-ben szerkeszted akkor minden további nélkül (ilyenkor persze a Skydrive-ot csak tárhelyként használja, mintha egy network file szerver lenne). Szóval a makró ha van a file-ban nem vész el a skydrive-on, de nem is tudod online futtatni vagy szerkeszteni.
Viszont amire fel szeretném hívni a figyelmedet az a Microsoft Skydrive nevű szolgáltatása. Ugyanaz, mint a Google Docs, csak a szokásos Microsoft szoftverekkel (Word, Excel, stb.), böngészőben ÉS a számítógépeden installált office programokon is módosíthatod a file-okat (automatikusan az MS szerverre menti a cuccot, nem kell felmásolgatni a file-okat). 25 GB tárhely.
Szerintem jelenleg verhetetlen.
Ha valamilyen okból nem vagy kötve a Google Docs-hoz, akkor javaslom a váltást. Én is G Docs-t használtam sokáig, de a Skydrive egyike azon területeknek, ahol a MS agyonveri a Google-t...
Ugyan nem excel, hanem Google docs, de lehet tud nekem segíteni valaki..
Nemrég kezdtem el használni a Google docs-ot, azon belül is a táblázatot. Elég nagy táblázatban dolgozom, így van, hogy több száz sora is van egy munkalapnak, viszont mentés után újra megnyitáskor mindig az A1-es cellára (vagyis a legtetejére)ugrik vissza, nem úgy mint az Excel, ahol, ha elmentem és megnyitom, akkor az ugyanott állok. Néztem a beállításokat, de nem találtam erre beállítást. Létezik vajon erre megoldás?
Adott egy táblázat, aminek az első oszlop celláinak értékét és formátumát (jelen esetben csak a betűméret a fontos) bizonyos feltétel teljesülése esetén egy másik oszlopba kell másolni. Az értéket "ha" függvénnyel meg tudom oldani:
pl. a D1 cellában lévő képlet: HA(A1=5;A1;" "). A formátumot (betűméretet) így képzeltem el: "ha A1 betűmérete 12, akkor D1 betűmérete is 12 legyen, egyébként 10-es" Megoldható ez így?
Rossz napom van. Valaki az előbb azt kérte (nem itt), hogy az egyik lapról a másik lap utolsó adata alá szeretné bemásolni az első lap értékeit és formátumát.
CsRob1 is értéket és formátumot említett, de nem volt szó a másolás helyéről.
Fent az ikonok között alapbeállításban megtalálod a formátumfestő ecsetet. Erre kattintva kijelölöd az eredeti formátumot tartalmazó-, majd a formázandó tartományt.
Egy táblázatból az adott feltételeknek megfelelő cellák értékeit egy másik táblázatban szeretném megjeleníteni az eredeti cellák formátumában. Az eredeti táblázatban különböző formátumú cellák vannak. Ha 10-es betűméretű az érték akkor így, ha pl. 12-es félkövér dőlt, akkor abban a formátumban. Az értékek átvitelét megoldottam függvényekkel, de hogy lehet megoldani a formátumok átvitelét? Létezik erre függvény?
Ha syntax error, akkor az nem a makró hibája. Annál is inkább, mert a "dim wb1 as workbook" sor tökéletesen hibátlan.
Szerintem inkább arról van szó, hogy valami összegubancolódott a munkafüzetedben. Office dokumentumoknál előfordul az ilyesmi. Accessben is viszonylag gyakran megesik, hogy egy űrlap ismeretlen okból tönkremegy, és utána csak akkor tudod használni az adatbázist, ha minden egyes táblát, űrlapot és egyéb objektumot egyenként átviszel egy üres adatbázisba.
A helyedben azt tenném, hogy:
1) nyitok egy új, üres munkafüzetet
2) átmásolom a problémás munkafüzet lapjainak tartalmát egyenként az újba
3) bemásolom a használt makrót/makrókat is az újba
4) bezárom a régi munkafüzetet
5) elmentem az új munkafüzetet új néven
6) újraindítom az Excelt
7) megnyitom az új munkafüzetet és kipróbálom a hibásnak tűnő makrót
Esélyes, hogy működni fog, de ne kérdezd, hogy miért.
X db makróval bevitt szám közül 40% legyen -50, 29% 0, 15% 50, stb.
Megoldás: egy (A) oszlopba beviszek 40 db -50-et, meg a többit, összesen 100 db számot.
A makró egy cellában véletlenszámot generál 1 és 100 között, az A oszlop ennyiedik sorából viszi be a számokat a makró egy másik oszlopba. A bevitt mennyiség módosítható.
Nagyjából stimmel a százalékos arány, minél nagyobb a bevitt mennyiség, annál inkább.
Egy kis cifraság hozzá, hogy az új számsor tagjai mellé beírja, melyik kategóriába tartoznak (1-es a -50, 6-os az utolsó, a 200-as érték).
Én az A oszlopba betenném a szöveget (Céges Indormáció) a B oszlopba a link címét (www.micegunk.hu) textben, és csinálék egy makrót, ami az A-ban lévő szöveghez Beszúrás-Hivatkozás beteszi a B-ben lévő linket. Utána B törölhető.
Közben összeállt a fejemben, és éppen rátapintottál a lényegére, amire nekem szükségem van. 1-100 ig számokra, amik véletleszerű sorrendben vannak. Ehhez utána hozzárendelem a kategóriákat. Hogy tudom előállítani a véletlen sorrendű 1-100-ig terjedő számsort?
sajna rádió kavart meg, a webesek azt irták, egész héten szép idő lesz, majd először azt közölték a rádióban, hogy szerdától eső, majd webes előrejelzés és esti tv is azt mondta, hogy hétfőtől négy napig eső. Hát a hétfő-keddi kamu esőre sokalltam be, pláne a hétfői napomat kellett átszervezni, mert a csoport lemondta a kirándulást, hogy esőben nem jüó menni - simán mehettünk volna hétfőn, erre kedd-szerda kellett a hétfői dolgokat is megcsinálnom, napi 20 órás loholás értelmetlenül.:-((
szóval, nem én, hanem a csoport többsége, és nem öltem meg egy meteorológust ser, mert egyrészt a weboldalak mögött többnyire nem meteorológusok vannak, hanem reklámmarketingetek, akik bevételt akarnak, ehhez nagy kattintási arány kell, másrélszt annyit kapnék értük is, mint egy rendes emberért, nem éri meg.:-(
Egy oszlopba 40 cellába beviszel egy randbetween függvényt, ahol megadod az alsó és felső értéket, mondjuk 100 és 200. A mellette lévő cellákba 250 és 300 közötti értéket adjon a rbw.
A következő 2×29 cellába is megadod az eléggé eltérő véletleneket. És így tovább a 15-höz, és a többihez is.
Legyen a két segédoszlop az A és B.
A C oszlop képlete: =RANDBETWEEN(A1;B1), ezt lemásolod.
E1-be írtam a feltételt, ami A, B, C, D és E lehet.
Most egy egymásba ágyazott Ha függvény következik, aminek csak az első két tagját írtam le (azt is két sorba szedve).
Én az eszközök menü bővítménykezelőben az Analysis ToolPak és az Analysis ToolPak VBA funkciókat telepítettem. Aztán eszközök/adatelemzés elérhető és ott lehet mahinálni ezekkel a generálásokkal. :)
Igazából én nagyon nem értek hozzá, de ha el tudod mondani, hogy milyen infora van szükség a megoldáshoz, akkor azokat kiötlöm. Amit a problémáról magam tudok azt már leírtam sajnos. :)
A roundbtw nem lesz elég, mert ennél összetettebb a probléma.
Ha jól értem, akkor először ki kell számolni a megfelelő eloszlással az eloszlási görbét (STDEV, AVERAGE) és utána meg kell nézni, hogy milyen szám mekkora valószínűséggel esik a görbére (NORMDIST, ha jól emlékszem).
Viszont a statisztikai részét sokkal de sokkal jobban kell érteni, mint amennyire én értem, ahhoz, hogy segíteni tudjak.
Most próbálgatom a véletlenszám generálást, de mindegyiknél az a probléma (a vél() függvénynél is), hogy azonos valószínűségeket rendel a hat kimenet előfordulásához. Nekem pedig minden egyes kimenethez egyéni valószínűség van megadva a táblámban. Ezeket kellene rendelnem a kimenetekhez egyedileg és ennek megfelelően csinálni a véletlenszám generálást.
Az én esetemben a végeredménynek 100 véletlenszám esetén:
1. kat. 40
2. kat. 29
3. kat. 15
4. kat. 9
5. kat. 5
6. kat. 2
A kategóriák ilyen számban, véletleszerű sorrendben fordulnak elő a 100-as mintában. Na ezt nem tudom megoldani... :) De nem adom fel! :D
Csak most találtam rá erre a fórumra Delila-nak köszönhetően.
Remélem tud nekem segíteni egy hozzáértő szaki. :)
Szeretnék készíteni magamnak egy véletlen-szám generátort. 6 esemény véletlenszerű bekövetkezése (pl. 1000 esetes mintán), meghatározott valószínűséggel. A kép mutatja, hogy miről van szó. Az eredményt utólag rendelem majd a kimenetekhez, csak előtte véletlenszám generálásra lenne szükség. Az excel "Data Analysis" alatt keresgéltem hozzá, de nem tudom melyiket kéne használnom, azt meg pláne nem, hogy hogyan.
Egy egyszerű Bernoulli-t sikerült csinálnom (igen-nem bekövetkezéssel), de ennél összetettebbre van szükség, hogy pontosan tudjam szimulálni az összeredményt.
