-
Fototrend
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- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Milyen egeret válasszak?
- exHWSW - Értünk mindenhez IS
- Anglia - élmények, tapasztalatok
- Wise (ex-TransferWise)
- Revolut
- Hegesztés topic
- AMD vs. INTEL vs. NVIDIA
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- The Elder Scrolls Online Imperial Collector s Edition
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- 8Gb DDR3L 1,35V 12800u 1600Mhz RAM-ok, több db
- HP EliteBook 640 G11 Core Ultra 5 125U 16GB 512GB FHD 1 év gar
- HP EliteOne 800 G6 All-in-One i5-10500 16GB 512GB 24" Érintőkijelző!! 1 év garancia
- ÁRGARANCIA!Épített KomPhone i5 12400F 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- AKCIÓ! Sapphire B650M R7 8700F 32GB DDR5 512GB SSD RX 9070 XT 16GB CM MasterBox 5 fehér 750W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest