- Asustor NAS
- Anyagi katasztrófára figyelmezteti az Apple-t a brit média
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Aliexpress tapasztalatok
- Malwarebytes Anti-Malware
- Facebook és Messenger
- Ausztrália lecsap a kriptós adócsalókra
- Videó stream letöltése
- Már nem hisz a nagy európai EV-forradalomban a Ford
- MinDig TV
-
IT café
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
-
lapa
veterán
nem ismerem pontosan a célt, ha egyszeri akcióról van szó, akkor:
1. sor másolása
2. új fül A2 cellájában jobb gomb --> irányított beill --> értéket + transzponálás pipa
3. A1 cellába tetszőleges oszlopnév
4. A1 kijelölve --> adatok --> kimutatás v diagramm --> befejezés
5. a jobb oldali kis ablakból áthúzod az imént elnevezett oszlop szövegét a bal oldali kék téglalapba
6. az eredményt kimásol (elvileg itt már egyszer szerepel csak minden)
7. eredeti tábla eredeti sor alatti cella kijelöl (mondjuk A2)
8. jobb gomb --> irányított beill --> értéket
9. adatok --> sorba rendezés --> csökkenő
10. kimásol, majd A2-t kijelölve jobb gomb --> irányított beill --> értéket + transzponálás -
lapa
veterán
huh, ezzel kardoztam egy kört, de sok jót tanultam közben.
ha a listád az 1. sorban van és A oszloptól kezdődik, akkor A2-be ezt kéne beillesztened:
=IF(COLUMN()=1;LARGE(1:1;1);IF(OR(ISERROR(LARGE(1:1;COUNTIF(1:1;''>=''&OFFSET(A2;0;-1))+1));OFFSET(A2;0;-1)='''';OFFSET(A2;0;-1)=0);'''';IF(LARGE(1:1;COUNTIF(1:1;''>=''&OFFSET(A2;0;-1))+1)=0;LARGE(1:1;COUNTIF(1:1;''>=''&OFFSET(A2;0;-1))+2);LARGE(1:1;COUNTIF(1:1;''>=''&OFFSET(A2;0;-1))+1))))
két aposztróf = macskaköröm.
ha pedig magyar exceled van, akkor az imént kiloptam a magyar-angol függvényszótárat innen:
c:\program files\microsoft office\officexx\1038\funcs.xls
[link] -
lapa
veterán
az 1:1-et kicseréleted pl. A1:A30-ra. esetleg A130-ra is, de azt nem próbáltam.
a büdös picsába előbb leírtam vagy fél oldalon hogyan műx, erre egy véletlen ESC miatt elment a kukába. hogy lehet már ilyen elb@szott hülye egy böngésző? mindegy, eszerint maradjon ez az én titkom. -
-
Fehér Mancs
tag
Szia,
Nem akarok kontárkodni, a másik megoldás is biztosan helyes, de van egy egyszerűbb és könnyebben érthető is.
A legelső cella képlete: (C1) =LARGE($a$1:$a$30;1) ->A legnagyobb számot adja meg
Az alatta lévő cellába: (C2) =LARGE($A$1:$A$30;COUNTIF($A$1:$A$30;''>=''&C1)+1) ->megnézi, hogy mennyi, az előző számtól nemkisebb szám van, és ez+1-edik legnagyobb számot keresi meg. Ezt pedig le lehet már húzni.
Ha a sor végét is le szeretnénk kezelni, akkor a futó cellákba a (C2) =IF(OR(SMALL($A$1:$A$13;1)=C1;C1='''');'''';LARGE($A$1:$A$13;COUNTIF($A$1:$A$13;''>=''&C1)+1)) kell beérni (ha az előző a legutolsó, vagy már ott sem volt semmi kitöltve, akkor nem tölti ki, amúgy pedig az előző képletet használja).
Üdv -
Delila_1
Topikgazda
Munka2 lapra C1-be
=Ha(Munka1!C1>0;Munka1!C1;0).
Az utolsó 0 helyett írhatsz dupla idézőjelet is, akkor üresnek látszik a cella.
Ezt a képletet le-, és oldalra is húzhatod.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
A lapfülön jobb klikk, Kód megjelenítése. A megjelenő Visual Basic szerkesztőn a jobb oldalon lévő nagy üres lapra bemásolod az alábbi makrót:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column = 1) Then
Cells(Target.Row, 5) = Cells(Target.Row, 2) + Cells(Target.Row, 3) _
+ Cells(Target.Row, 4)
End If
End SubEz, ha az A oszlopba írsz valamit, az E oszlopba beírja az azonos sorban lévő B+C+D értéket.
Ha nem az E-be kell, a Cells(Target.Row,5)-nél írd át az 5-öt annyira, amennyi a kívánt oszlop sorszáma az angol ABC-ben (F-nél 6, G-nél 7, T-nél 20, stb).
Amennyiben másik lapnál is kell ez a funkció, ugyenezt a makrót a másik lap kódlapjára is másold be.[ 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
Azon a lapon, ahol az összegek szerepelnek, a V oszlopba be kell vinned egy SZUM-ot:
V2–> =SZUM(B22)
ezt másold végigA másik lapodon:
B2–> =fkeres(A2;Munka2!A:V;22;HAMIS)
A Munka2-t írd át az összegeket tartalmazó lapod nevére, ezután másold végig.[ 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
Függvény nincs rá, itt van viszont egy kis makró, ami, ha a B2 háttere piros, a D2-be beírja a B2 és C2 összegét.
A Cells(x,y) kifejezésben az x a sor, az y az oszlop.Sub Piros()
If Cells(2, 2).Interior.ColorIndex = 3 Then
Cells(2, 4) = Cells(2, 2) + Cells(2, 3)
End If
End SubA PC World folyóirat egyik számában Weisz Tamás írt egy xla-t. Két függvényt tartalmaz. Az egyik megszámolja, hogy a kijelölt tartományban hány darab adott színű cella van, a másik pedig összeadja az ezekben található értékeket.
Function CountColor(Mintacella As Range, Tartomany As Range)
Dim rngCell As Range
nColor = Mintacella.Interior.Color
nResult = 0
For Each rngCell In Tartomany
If rngCell.Interior.Color = nColor Then
nResult = nResult + 1
End If
Next rngCell
CountColor = nResult
End FunctionFunction SumColor(Mintacella As Range, Tartomany As Range)
Dim rngCell As Range
nColor = Mintacella.Interior.Color
nResult = 0
For Each rngCell In Tartomany
If rngCell.Interior.Color = nColor Then
nResult = nResult + WorksheetFunction.Sum(rngCell)
End If
Next rngCell
SumColor = nResult
End FunctionKözreadom, hátha valakit érdekel.
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
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs