Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- Luck Dragon: MárkaLánc
- MasterDeeJay: ASRock B250M Pro4 coffeetime mod! (DDR4)
- sziku69: Szólánc.
- btz: Internet fejlesztés országosan!
- ricsi99: 6. Genes alaplap tündöklése kontra MS/Zintel korlátozásai
- Elektromos rásegítésű kerékpárok
-
LOGOUT
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
-
Delila_1
veterán
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.
-
-
Delila_1
veterán
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. -
#2434
Fehér Mancs
tag
Kvázi
#2408
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 -
lapa
veterán
az 1:1-et kicseréleted pl. A1:A30-ra. esetleg A1
30-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. -
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
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
2)
30-ra is, de azt nem próbáltam.
![[kép]](http://www.kepfeltolto.hu/2007/8/18/4aan.jpg "[kép]")
![[kép]](http://www.kepfeltolto.hu/2007/8/18/4a43.jpg "[kép]")
Új hozzászólás Aktív témák
Hirdetés
Fferi50- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- HP. Laptop. i5. Model: 15-da1002nq
- PC Game Pass előfizetés
- 27% - ÚJ - GIGABYTE RTX 5080 AORUS MASTER 16GB GDDR7 Videokártya! BeszámítOK
- AKCIÓ! Microsoft XBOX Series X 1TB SSD fekete játékkonzol extra kontrollerrel garanciával
- Szép állapotban Lenovo ThinkPad T14s Gen 4 i5-1335u/16 GB/256 SSD/FHD+/IPS/Garancia 2027
- DELL PowerEdge R630 rack szerver - 2xE5-2650v3 (20 mag / 40 szál, 2.3/3.0GHz), 32GB RAM, 66921Ft+ÁFA
- Samsung Galaxy S23 Ultra 512GB,Újszerű,Dobozaval,12 hónap garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest