- Motorola Edge 50 Fusion - jó fogás
- iPhone topik
- Samsung Galaxy Watch7 - kötelező kör
- Bemutatkozott a Poco X7 és X7 Pro
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Android alkalmazások - szoftver kibeszélő topik
- Redmi Note 10S - egy a sok közül
- Itt egy pár fotó az iPhone 17 sorozatról
- Több újítással támad a Xiaomi Redmi 3s
- Garmin Venu X1 - vékony, virtuóz, váltságíjas
Hirdetés
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
-
Mobilarena
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
Fferi50
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- BESZÁMÍTÁS! Asrock B365M i5 9600KF 16GB DDR4 250GB SSD 1TB HDD RX 5700XT 8GB Zalman N5 FSP 700W
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- Windows 10 / 11 Pro Retail aktiváló kulcs Azonnal szállítással, számlával, garanciával!
- HIBÁTLAN iPhone 11 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS2132
- Xiaomi Redmi Note 13 256GB Kártyafüggetlen 1 év Garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest