Hirdetés

2017. szeptember 21., csütörtök

Útvonal

Fórumok  »  OS, alkalmazások  »  Microsoft Excel topic (kiemelt téma)

Téma összefoglaló

Téma összefoglaló

  • Utoljára frissítve: 2017-04-30 14:31:44

PROHARDVER!

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.

Összefoglaló kinyitása ▼

Hozzászólások

(#1) airyca


airyca
(újonc)

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

(#2) KovacsUr válasza airyca (#1) üzenetére


KovacsUr
(PH! addikt)

=HA(A1;MA();HA(B1;MA();))

So it goes… We stand alone by standing stones and turn them into circles.

(#3) airyca válasza KovacsUr (#2) üzenetére


airyca
(újonc)

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

(#4) pacalperkelt válasza airyca (#3) üzenetére


pacalperkelt
(újonc)

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!

(#5) KovacsUr válasza airyca (#3) üzenetére


KovacsUr
(PH! 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.

(#6) KovacsUr válasza KovacsUr (#5) üzenetére


KovacsUr
(PH! addikt)

Bocs... v1.1 :DD

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.

(#7) KovacsUr


KovacsUr
(PH! 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.

(#8) airyca válasza KovacsUr (#7) üzenetére


airyca
(újonc)

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...

(#9) KovacsUr válasza airyca (#8) üzenetére


KovacsUr
(PH! 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.

(#10) KovacsUr


KovacsUr
(PH! 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.

(#11) KovacsUr válasza KovacsUr (#10) üzenetére


KovacsUr
(PH! addikt)

OK, így működnie kell. :)

So it goes… We stand alone by standing stones and turn them into circles.

(#12) KovacsUr válasza KovacsUr (#11) üzenetére


KovacsUr
(PH! 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.

(#13) KovacsUr


KovacsUr
(PH! 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.

(#14) airyca válasza KovacsUr (#13) üzenetére


airyca
(újonc)

Müködik, köszönöm szépen, hogy segítettél!

(#15) airyca válasza KovacsUr (#13) üzenetére


airyca
(újonc)

:DD:DD:DD:DD

(#16) KovacsUr válasza airyca (#15) üzenetére


KovacsUr
(PH! 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.

(#17) airyca válasza KovacsUr (#16) üzenetére


airyca
(újonc)

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 :D

(#18) KovacsUr válasza airyca (#17) üzenetére


KovacsUr
(PH! 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.

(#19) airyca válasza KovacsUr (#18) üzenetére


airyca
(újonc)

nem is vártam szerelmes verset :))

Számíthatok később is a segítségedre, ha gondom akad?

(#20) KovacsUr válasza airyca (#19) üzenetére


KovacsUr
(PH! addikt)

Nem.
:D
Persze :) És mindenki máséra is, szerintem.

So it goes… We stand alone by standing stones and turn them into circles.

(#21) szucsi


szucsi
(őstag)

Kedves Excelben Excellálók! (nylvszk kmljtk) :DD

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.

(#22) KovacsUr válasza szucsi (#21) üzenetére


KovacsUr
(PH! 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.

(#23) szucsi válasza KovacsUr (#22) üzenetére


szucsi
(őstag)

Hurrá, sikerült!

Köszönöm! :))

(#24) szucsi


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

(#25) KovacsUr válasza szucsi (#24) üzenetére


KovacsUr
(PH! 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.

(#26) szucsi válasza KovacsUr (#25) üzenetére


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)

(#27) KovacsUr válasza szucsi (#26) üzenetére


KovacsUr
(PH! addikt)

Hát akkor ez stimmel. Azt hittem, valami bonyolultabb :)

So it goes… We stand alone by standing stones and turn them into circles.

(#28) szucsi válasza szucsi (#26) üzenetére


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.

(#29) szucsi válasza szucsi (#28) üzenetére


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

(#30) szucsi válasza szucsi (#29) üzenetére


szucsi
(őstag)

Pl:

10/11/13/15/16 =0
16/10/10/10/10=6

(#31) KovacsUr válasza szucsi (#30) üzenetére


KovacsUr
(PH! 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.

(#32) KovacsUr válasza szucsi (#30) üzenetére


KovacsUr
(PH! 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.

(#33) szucsi válasza KovacsUr (#32) üzenetére


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.

(#34) bcs válasza szucsi (#30) üzenetére


bcs
(fanatikus tag)

az, hogy hány adat van, az fix?

(#35) szucsi válasza bcs (#34) üzenetére


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

(#36) KovacsUr válasza szucsi (#33) üzenetére


KovacsUr
(PH! addikt)

OK, már értem, csinálom, kis türelem :)

So it goes… We stand alone by standing stones and turn them into circles.

(#37) bcs válasza szucsi (#33) üzenetére


bcs
(fanatikus 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.

(#38) localhost válasza KovacsUr (#36) üzenetére


localhost
(Közösségépítő)

Godlike! Bérmunka rulez! :DD

¤ Most már biztos: teljesen normális vagyok! ... ... ... ... ... ... ... ... ... ... ... ... ... ... Mondták itt ezek a hangok is a fejemben. :)) ¤ My IP is: 127.0.0.1

(#39) szucsi válasza bcs (#37) üzenetére


szucsi
(őstag)

F1-be egy képlettel esélytelen?

(#40) KovacsUr válasza bcs (#37) üzenetére


KovacsUr
(PH! addikt)

Ja, ez jó, csak mehet egy képletbe az egész :D

So it goes… We stand alone by standing stones and turn them into circles.

(#41) KovacsUr válasza szucsi (#39) üzenetére


KovacsUr
(PH! 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.

(#42) szucsi válasza szucsi (#39) üzenetére


szucsi
(őstag)

Mert sok sok ilyen sorozatom van egymás alatt :(

(#43) szucsi válasza KovacsUr (#41) üzenetére


szucsi
(őstag)

Köszi, ezt kipróbálom! :)

(#44) KovacsUr válasza szucsi (#43) üzenetére


KovacsUr
(PH! 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.

(#45) KovacsUr válasza KovacsUr (#44) üzenetére


KovacsUr
(PH! 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.

(#46) szucsi válasza KovacsUr (#44) üzenetére


szucsi
(őstag)

Köszi, most akartam elkámpicsorodni :))

(#47) szucsi válasza KovacsUr (#45) üzenetére


szucsi
(őstag)

Működik!!! :DD

Mégegyszer nagyon köszönöm, ez nekem nem ment volna.

(#48) KovacsUr válasza szucsi (#47) üzenetére


KovacsUr
(PH! addikt)

Köszönd bcs-nek, ő gyorsabb volt ;)

So it goes… We stand alone by standing stones and turn them into circles.

(#49) szucsi válasza KovacsUr (#48) üzenetére


szucsi
(őstag)

Igazad van!

Kösz, bcs! :D

(#50) bcs válasza szucsi (#49) üzenetére


bcs
(fanatikus tag)

nincs mit :)

Útvonal

Fórumok  »  OS, alkalmazások  »  Microsoft Excel topic (kiemelt téma)
Copyright © 2000-2017 PROHARDVER Informatikai Kft.