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
- Bemutató A használt VGA piac kincsei - Július I
- Bemutató Bakancslista: Route 66 Chicagotól Los Angelesig
- Tudástár AMD Radeon undervolt/overclock
- Tudástár RTX3070 16 GB VRAM-mal?
- Bemutató Toyota Corolla Touring Sport 2.0 teszt és az autóipar
Általános témák
LOGOUT.hu témák
- [Re:] [parandroid:] KerékPH!áros 2024 tavaszi balatoni megmozdulás
- [Re:] [t72killer:] Számítógép a harctérről: barátkozás egy Toughbook CF-20-al
- [Re:] [sziku69:] Fűzzük össze a szavakat :)
- [Re:] [enginev3.0:] FRISSÍTVE!!! Xpenology DSM 6.1 Telepítése
- [Re:] Real Racing 3 - Freemium csoda
- [Re:] [Luck Dragon:] Asszociációs játék. :)
- [Re:] [sziku69:] Szólánc.
- [Re:] [D1Rect:] Nagy "hülyétkapokazapróktól" topik
- [Re:] [elektrotank:] Ti mit sportoltok? - Egy egészségesebb életmód!
- [Re:] [Algieba:] Egy szép tavaszi séta képei
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
LOGOUT.hu
Hozzászólások
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
KovacsUr
addikt
=HA(A1;MA();HA(B1;MA();))
So it goes… We stand alone by standing stones and turn them into circles.
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
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!
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.
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.
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.
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...
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.
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.
KovacsUr
addikt
OK, így működnie kell.
So it goes… We stand alone by standing stones and turn them into circles.
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.
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.
airyca
csendes tag
Müködik, köszönöm szépen, hogy segítettél!
airyca
csendes tag
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.
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
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.
airyca
csendes tag
nem is vártam szerelmes verset
Számíthatok később is a segítségedre, ha gondom akad?
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.
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.
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.
szucsi
őstag
Hurrá, sikerült!
Köszönöm!
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
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.
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)
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.
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.
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
szucsi
őstag
Pl:
10/11/13/15/16 =0
16/10/10/10/10=6
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.
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.
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.
bcs
aktív tag
az, hogy hány adat van, az fix?
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
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.
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.
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
szucsi
őstag
F1-be egy képlettel esélytelen?
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.
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.
szucsi
őstag
Mert sok sok ilyen sorozatom van egymás alatt
szucsi
őstag
Köszi, ezt kipróbálom!
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.
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.
szucsi
őstag
Köszi, most akartam elkámpicsorodni
szucsi
őstag
Működik!!!
Mégegyszer nagyon köszönöm, ez nekem nem ment volna.
KovacsUr
addikt
Köszönd bcs-nek, ő gyorsabb volt
So it goes… We stand alone by standing stones and turn them into circles.
szucsi
őstag
Igazad van!
Kösz, bcs!
Mai Hardverapró hirdetések
prémium kategóriában
- Eladó egy komplett PC (RTX 3070, Ryzen 5 3600, 32GB RAM)
- !! AKCIÓ !! 1 ÉV GARANCIA !! Független Apple Iphone 12 Mini 128GB.
- Samsung Galaxy S23 Ultra 512GB 5G Dual Sim + fólia, Spigen Rugged Armor tok
- Dolby Atmos / DTS:X hangprojektor HT-G700
- Bomba ár! Lenovo Miix 700-12ISK : m7-6G I 8GB I 256GB SSD I 12" QHD Touch I Cam I W10 I Garancia!