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
Microsoft Excel topic - OS, alkalmazások fórum
hozzászólások
airyca
(csendes tag)
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
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
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
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...
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
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
KovacsUr
(addikt)
Ment egy mail is, de most már az felesleges akkor...
Szívesen.
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.
airyca
(csendes tag)
nem is vártam szerelmes verset
Számíthatok később is a segítségedre, ha gondom akad?
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)
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
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
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
KovacsUr
(addikt)
Ja értem, OK. Azt lehet tudni előre, hogy HÁNY szám lesz? Hány oszlop
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
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.
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
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.
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)
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)
KovacsUr
(addikt)
És aztán megfogod az F1 jobb alsó sarkát, és elkezded húni lefelé.
szucsi
(őstag)
Működik!!!
Mégegyszer nagyon köszönöm, ez nekem nem ment volna.