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.
Gyorskeresés
Legfrissebb anyagok
Általános témák
LOGOUT.hu témák
- [Re:] eBay-es kütyük kis pénzért
- [Re:] [D1Rect:] Nagy "hülyétkapokazapróktól" topik
- [Re:] Elektromos rásegítésű kerékpárok
- [Re:] [sziku69:] Fűzzük össze a szavakat :)
- [Re:] [Luck Dragon:] Asszociációs játék. :)
- [Re:] [Mr Dini:] Mindent a StreamSharkról!
- [Re:] Gurulunk, WAZE?!
- [Re:] [galaxy55:] Biciklis baleset
- [Re:] [sziku69:] Szólánc.
- [Re:] [bambano:] Bambanő háza tája
Szakmai témák
PROHARDVER! témák
Mobilarena témák
IT café témák
Téma összefoglaló
- Utoljára frissítve: 2023-11-13 08:31:56
![](http://cdn.rios.hu/dl/faces/own/prohardver.gif)
LOGOUT.hu
Hozzászólások
![](http://cdn.rios.hu/dl/faces/f33.gif)
airyca
csendes tag
Sziasztok!
Szeretném a segítségeteket kérni! A megoldandó dolog a következő: az A1 cellában van egy szám (pl. 241), a B1 cellában egy név (X.Y.) és azt szeretném, ha a C1 cellában az aznapi dátum jelenjen meg amikor vagy a számot vagy a nevet beírom.
Köszi:Airyca
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
=HA(A1;MA();HA(B1;MA();))
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/f33.gif)
airyca
csendes tag
Hi!
Most már csak az a gondom, hogy a dátum ne is változzon. Ugyanis ha így beírom, akkor másnap szépen átállítódik a dátum. Viszont azt szertném, ha hozzárendelem adott cellákhoz az aznapi dátumot, akkor az ne változzon meg a következő nap.
Valaki???
Köszi:Airyca
![](http://cdn.rios.hu/dl/faces/crab.gif)
pacalperkelt
csendes tag
Egy makrót írsz amit napvégén lefuttatsz: dátum terület kijelöl; irányított beillesztés; értéket ugyanarra a területre. így a képlet eltűnik, többé nem számol. Ha valaki tud függvényből megoldást, engem is nagyon érdekel.
Üdv!
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Jobb klikk a worksheet fülön, Kód megjelenítése
aztán ezt beilleszt
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value <> '''' And (Target.Column = 1) Or (Target.Column = 2) Then
Cells(Target.Row, 3).Activate
ActiveCell.Value = Date
ActiveCell.NumberFormat = ''yyyy/mm/dd''
End If
End Sub
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Bocs... v1.1
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value <> '''' And (Target.Column = 1) Or (Target.Column = 2) Then
Cells(Target.Row, 3).Activate
ActiveCell.Value = Date
ActiveCell.NumberFormat = ''yyyy/mm/dd''
Target.Activate
End If
End Sub
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Azért szólhatnál, hogy most ez megfelel-e vagy nem :/
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/f33.gif)
airyca
csendes tag
Szia!
Bocsánat, hogy eddig nem jelentkeztem!
1× is, köszi a segítséget!
Beillesztettem amit írtál, de nálam, ahogy beírok valamit az egyik cellába és lépek a másikba kiírja, hogy syntax error...
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Aha... tudom is, miért... A prohardver hozzászólás-modul kicseréli az idézőjelet két aposztrófra. Próbáld korrigálni
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
No, próbálom újra...
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value <> "" And (Target.Column = 1) Or (Target.Column = 2) Then
Cells(Target.Row, 3).Activate
ActiveCell.Value = Date
ActiveCell.NumberFormat = "yyyy/mm/dd"
Target.Activate
End If
End Sub
Most & q u o t ;-ot írtam '' helyett, hátha így nem javítja ki...
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
OK, így működnie kell.
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
ja igen, és ha 'kód megjelenítése' után benne van a kurzor
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ITT
End Sub
van, akkor klikkelj ki belőle, mielőtt beilleszted a makrót
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Kipróbáltam, visszamásoltam.
Magyar Office97 és angol Office XP alatt működik, úgyhogy remélhetőleg a köztük lévő összes többin is
Ha mégsem, akkor tényleg nincs több ötletem
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/f33.gif)
airyca
csendes tag
Müködik, köszönöm szépen, hogy segítettél!
![](http://cdn.rios.hu/dl/faces/f33.gif)
airyca
csendes tag
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Ment egy mail is, de most már az felesleges akkor...
Szívesen.
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/f33.gif)
airyca
csendes tag
Nem érkezett még emil, pedig kíváncsi vagyok, hogy mit írtál. Tudom tipikus női tulajdonság és még hamar meg is öregszem
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Nincs benne semmi izgalmas, nem írtam szerelmes verset Sajnálom...
Csak egy excel fájlt csatoltam, ugyanezzel a megoldással.
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/f33.gif)
airyca
csendes tag
nem is vártam szerelmes verset
Számíthatok később is a segítségedre, ha gondom akad?
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Nem.
Persze És mindenki máséra is, szerintem.
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
Kedves Excelben Excellálók! (nylvszk kmljtk)
plíz segítsetek:
szitu: Van ugye az 1.sor, ahova bekerült a változónév, alattuk az adatok.
probléma: Ha megtelik egy képernyőnyi sor, a változónév ugye eltűnik, pedig jó lenne látni
kérdés:
1) lehet-e az oszlopoknak alternatív címkét adni (a változónevet), és hogyan?
2) be lehet-e állítani, hogy az első sor együtt gördüljön a kerettel.
Köszi.
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Odaklikkelsz a címsor alatti, utolsó oszloptól jobbra lévő cellába, Ablak/Ablaktábla rögzítése (Freeze Panes)
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
Hurrá, sikerült!
Köszönöm!
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
Mégegy kérdés:
van 5 oszlop adat, pl:
10,13,12,15,10
arra vagyok kíváncsi, milyen képlettel lehet összegezni csak az előző értékhez való negatív eltéréseket (elnézést, ha nem elég matekos).
tehát az előző sorból van egyszer a 13-12 (1) és a 15-10 (5) ezek összege 6.
Köszi
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Na várj, pontosítsunk.
10
13
12
15
10
Így van? és hova kellene tenni az eredményt?
A példádban természetesen =A2-A3+A4-A5, de nem tudom, hogy gondolod
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
Pl:
A1 A2 A3 A4 A5 A6
10 13 12 10 11 3 - ez a megoldás jelen esetben (13-12)+(12-10)
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Hát akkor ez stimmel. Azt hittem, valami bonyolultabb
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
jajaj, elcsusszant...
szóval sorban vannak az adatok egymás mellett. és mégmelléjük jönne ugye a képlettel felfegyverzett cella.
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
Az a baj, hogy nem kiszámítható, hogy melyik oszlopban milyen szám lesz, és nekem csak a balról jobbra haladva negatív különbségek kellenek, tehát lehet, hogy egy sem lesz, ha végig csökken a sorozat, akkor mindegyik negatív
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
Pl:
10/11/13/15/16 =0
16/10/10/10/10=6
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Ja értem, OK. Azt lehet tudni előre, hogy HÁNY szám lesz? Hány oszlop
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Vagy mégsem. Hogy lesz ebből 0?
(10-11)+(11-13)+(13-15)+(15-16)=-1+-2+-2+-1=-6 nálam
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
5 oszlop van, és úgy lesz 0, hogy a sorozat monoton növekvő, tehát balról jobbra egyre nagyobbak a számok, így visszaesés (ezaz!) nincs. Az összvisszaesés mennyiségét szeretném tk. kiszámolni.
![](http://cdn.rios.hu/dl/faces/m08.gif)
bcs
aktív tag
az, hogy hány adat van, az fix?
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
5 adat van sorban egymás mellett, nagyon fontos a sorrendiségük, hiszen:
10/16/10/10/10 =6 hat az össz csökkenés
10/10/10/10/16 =0 nincs csökkenés
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
OK, már értem, csinálom, kis türelem
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m08.gif)
bcs
aktív tag
tfh: A1, B1, C1, D1, E1 adatok, ekkor
A2: IF((A1-B1)<0;(A1-B1);0)
B2: IF((B1-C1)<0;(B1-C1);0)
C2: IF((C1-D1)<0;(C1-D1);0)
D2: IF((D1-E1)<0;(D1-E1);0)
E2: SUM(A2..B2)
egyszerűbben is lehet.
![](http://cdn.rios.hu/dl/faces/own/localhost.gif)
localhost
Közösségépítő
Godlike! Bérmunka rulez!
¤ Most már biztos: teljesen normális vagyok! ... ... ... ... ... ... ... ... ... ... ... ... ... ... Mondták itt ezek a hangok is a fejemben. :)) ¤ My IP is: 127.0.0.1
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
F1-be egy képlettel esélytelen?
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Ja, ez jó, csak mehet egy képletbe az egész
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
De, nyilván
=HA((A1-B1)<0;(A1-B1);0)+HA((B1-C1)<0;(B1-C1);0)+HA((C1-D1)<0;(C1-D1);0)+HA((D1-E1)<0;(D1-E1);0)
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
Mert sok sok ilyen sorozatom van egymás alatt
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
Köszi, ezt kipróbálom!
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Ja igen, most látom, te fordítva kérted:
=HA((A1-B1)>0;(A1-B1);0)+HA((B1-C1)>0;(B1-C1);0)+HA((C1-D1)>0;(C1-D1);0)+HA((D1-E1)>0;(D1-E1);0)
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
És aztán megfogod az F1 jobb alsó sarkát, és elkezded húni lefelé.
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
Köszi, most akartam elkámpicsorodni
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
Működik!!!
Mégegyszer nagyon köszönöm, ez nekem nem ment volna.
![](http://cdn.rios.hu/dl/faces/m22.gif)
KovacsUr
addikt
Köszönd bcs-nek, ő gyorsabb volt
So it goes… We stand alone by standing stones and turn them into circles.
![](http://cdn.rios.hu/dl/faces/m36.gif)
szucsi
őstag
Igazad van!
Kösz, bcs!
Mai Hardverapró hirdetések
prémium kategóriában
- ASUS VG259QR - 24.5 inch - 165Hz - FullHD - 2 év garancia
- Xiaomi Redmi Note 9T 4/128GB, Újszerű, Kártyafüggetlen, Töltővel, Dobozzal, 1 Év Garanciával!
- Samsung Galaxy A35 5G 6/128GB, Újszerű, Kártyafüggetlen, Töltővel, 1 Év Garanciával!
- Beszámítás! Apple Macbook PRO 16" 2019 i7 32GB 500GB notebook garanciával hibátlan működéssel
- Beszámítás! MacBook Air 2023 15" M2 8GB 512GB notebook garanciával hibátlan működéssel