-
GAMEPOD.hu
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
zserbox
őstag
hogy tudok diagramban egy függőleges vonalat adott x-hez húzzni,mert ugye az nem függvény
szóval megvan a régebben linkelt két görbe metszéspontjának x koordinátája és azt kéne a diagrammon levetíteni az x tengelyre. -
veterán
válasz Delila_1 #15350 üzenetére
talán kicsit túlbonyoítom a dolgot már én is, bocsánat
felvetek egy egyszerűbb kiindulási alapot. hogyan tudom beállítani (gondolom ehhez kell valami makró), hogy adott tartományon belül, minden x-edik cella felvegyen egy értéket, periodikusan, amelyet máshol definiálok.
pl azt akarom, hogy az 5. sor D oszlopától kezdve minden negyedik cella, tehát D5, H5, stb legyen egyenlő egy cellácal x perióduson keresztül. azaz ne nekem kelljen manuálisan beírogatnom mindn 4. cellába, hogy =B1, hanem ezt tegye meg a makró. és legyen egy változó, ami a periódust változatja, hogy esetlegesen ne minden negyedikbe, hanem minden ötödikbe kerüljön beírásra az =B1.
így talán tisztább, és egyszerűbb. nameg kelene még egy válozó, ami az ilyen periódusok számát szabályozza.
[ Szerkesztve ]
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
Delila_1
Topikgazda
válasz bandus #15353 üzenetére
Sub period()
Dim per%, ertek, oszlop%
per% = Range("A1"): ertek = Range("B1")
For oszlop% = 4 To 30 Step per%
Cells(5, oszlop%) = ertek
Next
End SubA periódusok mértékét a per% változó veszi az A1-es cellából, a beírandó értéket az ertek a B1-ből. A fenti makró a 30. oszlopig írja be az azonos értékeket.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz bandus #15355 üzenetére
Szívesen.
Itt csupán a Step-et nem ismerted, ami a lépésközt határozza meg. Mikor nem adjuk meg, az alapértékként beállított 1-et használja a makró.Szerk.:
A Step értékének negatív számot is adhatunk, pl. mikor bizonyos sorokat törölni akarunk. Ilyenkor érdemes a táblázat aljáról indulni a teteje felé.Sub torol()
Dim sor%
For sor% = 20 To 2 Step -1
If Cells(sor%, 1) < 300 Then Rows(sor%).Delete
Next
End Sub[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
m.zmrzlina
senior tag
Van egy listás adatérvényesítésem amelynek a forrástartománya kb 3000 elemet tartalmaz ami ABC szerint rendezve van.
Van-e valamilyen lehetőség arra, hogy ha elkezdem begépelni az érvényesítést tartalmazó cellába a szöveget (az első karaktert ami mondjuk K) akkor a cellában megjelenik az forrástartomány első K-val kezdődő eleme amit enterrel tabbal bármivel be lehetne írni a cellába?
-
Kobe
veterán
Hello
Makro segitseg kellene. Szeretnek egyadatfilet letrehozni amiben egy urlap rogziti a bevitt adatokat. A gond az hogy kb 7-8 kulonbozo adatot kellene felvinni egy recordhoz, 6 ot az elso felvitelkor amikor rogzited 2-3 masikat csak kesobb lehetne hozzaadni
3 urlapot szeretnek letrehozni, azelson van pl 3 gomb bezaras, uj rekord felvitele, meglevo rekord frissitese. Az egyik felhozza a sima kitoltos urlapot, a masik meg egy kereso urlapot. Az jelent gondot hogyan tudnek egy olyan urlapot letrehozni amiben a korabban bevitt rekordok kozott tudok keresni egyszeruen es hozzaadni, esetleg updatelni a hianyzo, meglevo adatokat.
-
veterán
válasz Delila_1 #15356 üzenetére
köszönöm ismét
olyan kérdés merült még fel bennem, hogy egy ilyen makró több ciklust is tud kezelni ugye?
azaz az egyik ciklus periódusa x éstéke y, a másik ciklusé v, értéke w, ez elvileg nem jelent gondot, ha másik bementi cellákat, de ugyanazt a kimeneti tartományt adom meg ugye?
illetve az érdekelne még, hogy amennyiben két, vagy több ilyen ciklusnak a periódusai találkoznak, azaz egy adott cellába az egyik ciklus y-t, a másik pedig x-et írna, akkor azt hogy tudom megcsinálni, hogy összeadódjanak?
köszönöm szépen mégegyszer!
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
Delila_1
Topikgazda
válasz bandus #15362 üzenetére
Szívesen.
Így adhatod hozzá az előzőhöz az újabb értéket:
Sub period()
Dim per%, ertek, oszlop%
'A D5:AD5 tartomány kiürítése (evés előtt mosogatunk elv szerint)
Range(Cells(5, 4), Cells(5, 30)).ClearContents
per% = Range("A1"): ertek = Range("B1")
For oszlop% = 4 To 30 Step per%
Cells(5, oszlop) = Cells(5, oszlop%) + ertek
Next
per% = Range("A2"): ertek = Range("B2")
For oszlop% = 4 To 30 Step per%
Cells(5, oszlop) = Cells(5, oszlop%) + ertek
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
csferke
senior tag
Sziasztok!
Egy cella mindig 3 jegyű számsorból áll (001 - 999). Ezekre nincs szükség mint szám mert nem kell vele semmilyen műveletet végrehajtani, viszont szerepelnie kell az elmentendő munkalapnévben.
Ha számként formázom a cellát akkor eltűnnek a vezető 0-ok.
Ha szövegként akkor mindig reklamál az excel (2007), hogy a szöveges mezőbe számok vannak.Hogy tudnám úgy formázni a cellát, hogy mindig látszanak a vezető 0-ák és hibajelentést sem kapjak?
köszi
-
rigo88
aktív tag
üdv
fkeres talán amit keresek de nem vagyok biztos benne.
írom a példát inkább, mert én magam sem értettem amit az előbb leírtam
táblázat 1:
név ár
valami1 50
valami1 50
valami2 22
valami2 22
valami1 50
valami5 10táblázat 2:
név ár
valami1 50
valami2 22
valami3 40
valami4 15
valami5 10tehát egy bővíthető ártáblázatból kellene mindig az 1. táblázatban a megfelelő árat a megfelelő termékhez automatikusan a táblázat2 alapján hozzáírni. egy fájl 2 fül.
biztos egyszerű, csak mégcsak azt sem tudom hogy keressek, fogalmakkal sem vagyok tisztában. de ha mondtok függvényeket amiket használnom kell megoldom. köszönöm!egyébként nyomtatókról és a szállítási költségeikről van szó. főnök nem egy excel zseni. (ahogy én sem..)
Dirr
-
Sziszmisz
csendes tag
Sziasztok,
Segítséget szeretnék kérni.
Van egy excel táblám, több ezer soron keresztül ahol a "D" oszlopban vesszőkkel tagolva több szín is szerepel (pl:.red, green, blue, grey)
Azt szeretném valahogy megoldani hogy ahol több szín van, ott külön külön sorba legyenek a hozzá tartozó adatokkal együtt.tehet pl:.
A------------- B ------------------------------C -------------------------------D
valami1 ----hozzá tartozó adat1 ----hozzá tartozó adat2-----red, green, blue, grey
valami2 ----hozzá tartozó adat1 ----hozzá tartozó adat2-----blue, greyamit kapni szeretnék:
A------------------ B --------------------------------C -------------------------------D
valami1 ---------hozzá tartozó adat1 ------hozzá tartozó adat2-----red
valami1 ---------hozzá tartozó adat1 ------hozzá tartozó adat2-----green
valami1 ---------hozzá tartozó adat1 ------hozzá tartozó adat2-----blue
valami1 ---------hozzá tartozó adat1 ------hozzá tartozó adat2-----grey
valami2 ---------hozzá tartozó adat1 ------hozzá tartozó adat2-----blue
valami2 ---------hozzá tartozó adat1 ------hozzá tartozó adat2-----greyElőre is köszönök szépen minden segítséget.
[ Szerkesztve ]
-
dolas
csendes tag
Szia,
tényleg elég összetett feladat, ahogy azt Delila_1 is írta. Ezt kb. egy napos meló elkészíteni, ha pontosan tudod, mit és hogyan érdemes csinálni.
Néhány jó tanács:
Nézd meg a KIMUTATÁSADATOT.VESZ függvény működését, az egész riport ezáltal fogja az adatokat kinyerni a forrástáblázatra épülő pivotból. A függvény paraméterei alapértelmezettként fix értékek, de ezeket le lehet cserélni hivatkozásokra. Itt figyelni kell az adattípus egyezőségre, azaz ha a függvény dátumot vár az adott dimenzióban paraméterként, akkor neked is dátum formátumban kell azt megadnod.
A FACT_ERTEKESITES lapon a kumulált oszlopok nem kellenek, a pivot automatikusan fogja majd felösszegezni az adatokat.
A FACT_ERTEKESITES lapon a dimenzió kulcsokhoz tartozó értékek kikereséséhez jó ötlet az FKERES, illetve a keresési tartomány elnevezése. Külön jó, hogy a dimenzió értékeket tartalmazó listát táblázattá alakítottad (azaz névvel hivatkozol rá), mivel frissítéskor, vagy az új lista rámásolásakor az adattáblád nevéhez tartozó cellahivatkozások automatikusan frissülnek. Ez a Képletek/Névkezelőben ellenőrizhető le, hogy tényleg így történik.
A FACT_ERTEKESITES lapon szereplő listát is érdemes táblázattá alakítani (CTRL+R).
Ha a forrás tényleg egy adat export, azaz minden egyes frissítéskor egy új excel fájl áll elő, akkor a számított értékeket tartalmazó mezőket (FKERES és társai) az utolsó adatot tartalmazó oszlop utáni oszlopokba célszerű tenni.
Remélem tudtam segíteni egy kicsit, vagy legalább irányt mutatni.
http://www.adatguru.hu
-
Delila_1
Topikgazda
válasz Sziszmisz #15367 üzenetére
Egy rövid makróval megoldhatod.
Sub Szetvalaszt()
Dim sor%, szin$, vesszo%
sor% = 2
Do While Cells(sor%, 1) > ""
szin$ = Cells(sor%, 4)
vesszo = InStr(szin$, ",")
If vesszo Then
Range("A" & sor% + 1).EntireRow.Insert
Range(Cells(sor%, 1), Cells(sor%, 3)).Copy Cells(sor% + 1, 1)
Cells(sor%, 4) = Left(szin$, vesszo - 1)
Cells(sor% + 1, 4) = Right(szin$, Len(szin$) - vesszo - 1)
End If
sor% = sor% + 1
Loop
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
2003-as verzióban a táblázatodban állva az Adatok | Űrlap menüpont segítségével azonnal megkapod ezt az űrlapot.
2007-ben kitehetsz egy ikont a gyorselérési eszköztárra. Az eszköztár végén található legördülővel behozod a További parancsokat | Minden parancs | Űrlap. Ezt az ikont használd.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Attas
aktív tag
Szép napot!
Van rá mód, hogy egy makróval egy cella tartalmát ("A1") bemásoljam egy másik munkalapon lévő diagramon (diagram 1) elhelyezett szövegdobozba (Szövegdoboz 1)?
Köszönöm előre is a segítséget!!!"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
dolas
csendes tag
válasz #45553408 #15374 üzenetére
Szia,
próbáld megnyitni egy erősebb, több memóriával rendelkező gépen, és ezután csak a használt területet (ne az egész oszlopot vagy sort!) másold át egy újabb munkafüzetbe. Ha így is nagy a fájl mérete, akkor formázás nélkül illeszd be egy új munkafüzetbe. Beillesztés képletként, vagy valami hasonló...
A 166MB azt jelenti, hogy az Excel fájlod (ha xlsx-ről van szó) tömörítetten 166MB, tehát ha az Excel megnyitja, és azt kicsomagolja a használathoz, akkor akár GB-on felüli memória kell számára.
http://www.adatguru.hu
-
Delila_1
Topikgazda
Sub szovegdoboz()
Sheets("Munka1").Select
ActiveSheet.ChartObjects("Diagram 1").Activate
ActiveChart.Shapes("Text Box 1").Select
Selection.Characters.Text = Sheets("Munka2").Range("A1")
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Attas
aktív tag
Sziasztok!
Olyan lehetséges az Excelben, hogy van egy cella (B1), amire bekapcsoltam az érvényesítést, legördülő listával, de Én ezt úgy szeretném megcsinálni, hogy szintén legördülős listával ellátott (A1) értékét figyelembe véve (B1) akár több listát kezeljen?
pl.: A1 Gyümölcs, akkor B1 legördülő lista Körte, Alma, Citrom.stb...
Ha A1 Bútor, akkor B1 legördülő lista Szék, Asztal, Szekrény stb...Belevágtam megint valamibe a fejszém, mondjuk, játékbalta VS mamutfenyő jó hasonlat. (de fejlődöm)
Még egy kérdés. Az ép aktuális dátumot és időt be lehet íratni egy cellába egy gombnyomásra?
ééés még annyi, de annyi kérdés.(lehet egy UserForm-os megoldás szítmakrózva jobb lenne?)
[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Delila_1
Topikgazda
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Sziszmisz #15384 üzenetére
Ezért érdemes azonnal az adatok pontos helyét megadni. Az eredeti kérdésben 4 oszlop szerepelt, ahol a szétválasztandó színek a D oszlopban voltak. Így most kétszer kellett megírni a makrót.
Sub Szetvalaszt()
Dim sor%, szin$, vesszo%
sor% = 2
Do While Cells(sor%, 1) > ""
szin$ = Cells(sor%, 13)
vesszo = InStr(szin$, ",")
If vesszo Then
Range("A" & sor% + 1).EntireRow.Insert
Range(Cells(sor%, 1), Cells(sor%, 12)).Copy Cells(sor% + 1, 1)
Range(Cells(sor%, 14), Cells(sor%, 16)).Copy Cells(sor% + 1, 14)
Cells(sor%, 13) = Left(szin$, vesszo - 1)
Cells(sor% + 1, 13) = Right(szin$, Len(szin$) - vesszo - 1)
End If
sor% = sor% + 1
Loop
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Attas
aktív tag
válasz Delila_1 #15383 üzenetére
Szia Delila!!
A belinkelt, általad írt leírás a problémámra, több mint tökéletes...megint csak. Nagyon köszönöm.
Volt egy másik kérdésem is. Bár olvasgattam a fórumot de nem igazán tudtam mit keressek, így lehet, hogy csak megint egy link kellene. Azt szeretném, hogy egy gomb lenyomásakor az ép aktuális dátum, idő (év, hó, nap, óra perc, másodperc) beíródna egy, mondjuk A1 cellába. és nem változna természetesen. Később ezt az adatot át kell majd másolnom egy adattáblába, ahol majd valami pivot tábla segítségével sok adatból kimutatások kellenek.Köszönöm előre is a rám fordított időd és a segítséged!
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Delila_1
Topikgazda
Egyetlen sor az egész: Range("A1") = Now()
Szerk.:
Csak dátumhoz: Range("A1")=Date
Csak időhöz: Range("A1")=Time()Nem felejtettem le a Date után a zárójeleket, ott nem kellenek.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Attas
aktív tag
válasz Delila_1 #15389 üzenetére
Mint írtam elég nagy a fa és kicsi a fejsze...
Adatokat kellene átvinnem egy makróval "WSB" nevű lap több cellájából (H18, J18, H21, H23, H14, J14)kb de még több, a WSA nevű lapra, A2-től egy sorba, úgy, hogy a következő átmásoláskor már a 3. sorba rakja az adatokat, majd a negyedikbe..stb."Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Delila_1
Topikgazda
sor=WSA.cells(rows.count, "A").end(xlup).row
WSA.cells(sor,1)=range("h18")
WSA.cells(sor,2)=range("j18")
WSA.cells(sor,3)=range("h21")... stb. Gondolom, a WSA egy változó, amit a set WSA=sheets("Lapneve") utasítással adtál meg.
Próba nélkül írtam, ellenőrizd!
Szerk.: Upsz! fordítva írtam, a WSA-ra másoltattam, de ezt biztosan át tudod fordítani.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Attas
aktív tag
válasz Delila_1 #15391 üzenetére
Köszönöm. Már úton vagyok a munkahelyemre. De ott majd kipróbálom. A WSA t jól gondoltad, csak rövidítés.(ezt is tőled tanultam) A WSB ből a WSA ba kell másolni az adatokat.
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Gandalf80
csendes tag
Sziasztok!
1. Egy egyszerű kis makróra lenne szükségem
Azt szeretném, ha egy betűkombinációra kijelölje a kívánt cellákat. Állok egy cellában pl. G10 és a makrót elindítva a G10-es cellától jobbra található 3 cellával együtt jelölje ki, azaz G10:J10 -ig. A lényeg, hogy mindig az aktuális cellában, ahol állok, attól számítva +3 celláig jelölje ki, mert ezeket kell átmásolnom az Outlook tárgymezejébe.Segítségeteket köszönöm.
2. Van egy bonyolultabb kérdésem.
Excelben rögzítés. (Régebbi téma Lásd! Indirekt függvény használata). Megoldható-e a következő.
Állok egy cellában, és ha leütöm pl. "K"-t, akkor a legördülő listában már csak a "K" kezdőbetűvel rendelkező utcanevekből lehessen választani?(Jelenleg úgy működik, hogy az irányítószám megadása után, az indirekt függvény segítségével csak az adott kerületben található utcanevekből lehet választani).
Köszönöm
"Az élet pókerjátszmájában a nőket elviszi a bank." http://mikrolimitpoker.blog.hu
-
Delila_1
Topikgazda
válasz Gandalf80 #15393 üzenetére
A második kérdéshez meg kell adnod, melyik cellába akarod bevinni a kezdőbetűt, hol lesz az érvényesítő cella, és még azt is, melyik oszlopba tehetek egy segédoszlopot, ami az ideiglenes adatokat tartalmazza.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Gandalf80
csendes tag
-
Delila_1
Topikgazda
válasz Gandalf80 #15396 üzenetére
Feltöltöttem ide.
Az 'Összes utca' A oszlopába bemásoltam Bp. I-III. kerületének az utcáit egymás alá. Másold alá az összes többit, a nem pestieket is. Mikor megvan, rendezd emelkedő sorrendbe, töröld az egyformákat.
A Rögzítő lap A1 cellájába írd be a kezdő karaktert (nagybetű!), és az E oszlopban csakis az ezzel kezdődő közterületek jelennek meg a legördülőben.
Csakis az E2-ben adtam meg az érvényesítést, másold le alá a többi cellába is. Engedélyezni kell a makrókat a füzet megnyitásakor.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Gandalf80 #15396 üzenetére
Egy kicsit egyszerűsítettem a képleteiden a Rögzítő lapon.
D2 -> =HA(HIBÁS(FKERES(C2;'Bp. utcái és irányítósz.'!$AG:$AH;2;0));" ";FKERES(C2;'Bp. utcái és irányítósz.'!$AG:$AH;2;0))
H2 -> =HA(HOSSZ(D2)>1;D2&", "&E2&" "& F2;"")
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Geryson
addikt
Mesterek! Van-é valaki, aki tévézés helyett Excelezik?
Van egy ilyen értékem: 113654-HB-5,4
Ezt szeretném mint feltétel megadni egy FKERES függvényben, de csak az első 6 számát (merthogy a kötőjel után már változhat az érték) sőt, csak, hogy bonyolultabb legyen, a választ képező táblázatban is csak az első 6 számot kellene keresni. Megoldható ez?
Ha nem, akkor van olyan parancs, amit ha ráküldök a fenti sorra, akkor leszedi az első kötőjel utáni részt? Tehát olyasmi, mint a TRIM. Sajnos az nem állandó, hogy a kötőjel előtti rész 5 vagy 6 szám ill. még akár betű is lehet benne, de a kötőjel az mindig vízválasztó.
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
Új hozzászólás Aktív témák
- Autós topik
- Melyik tápegységet vegyem?
- Politika
- Háromféle processzor is része lesz a Core 200 sorozatnak
- Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
- Motorola Edge 40 - jó bőr
- VR topik (Oculus Rift, stb.)
- Piacvezető tandem OLED panellel érkezik az iPad Pro
- Nem indul és mi a baja a gépemnek topik
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- További aktív témák...