-
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
-
Mutt
senior tag
válasz
Sanyuc
#17508
üzenetére
Hello,
Azt szeretném hogy megadja hogy melyik számok hányszor fordulnak elő a megadott cellákban. 1-30-ig szerepelnek a számok.
Erre is jöttek makrós megoldások, pedig erre van bépített függvény is. A SZORZATÖSSZEG (SUMPRODUCT) ezt is tudja. Vhogy így kell használnod:
=SZORZATÖSSZEG(--(tartomány=keresendő szám))
üdv.
-
m.zmrzlina
senior tag
válasz
Sanyuc
#17508
üzenetére
Első körben csak a módszer miatt aztán ha kell módosítani még lehet faragni:
Sub szamol()
For i = 1 To 30
For Each cella In Selection.Cells
If cella.Value = i Then
mennyi = mennyi + 1
End If
Next
Debug.Print "Összesen " & mennyi & " db " & i & " szám található a kijelölt tartományban."
mennyi = 0
Next
End SubEz a kód az Immediate ablakba írja ki az eredményt, és ki kell jelölnöd azt a tartományt amiben számolni akarsz.
Új hozzászólás Aktív témák
- Vezetékes FÜLhallgatók
- A fociról könnyedén, egy baráti társaságban
- PlayStation 5
- Gyúrósok ide!
- Anglia - élmények, tapasztalatok
- Google Pixel topik
- Mikrotik routerek
- Amlogic S905, S912 processzoros készülékek
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Kerékpárosok, bringások ide!
- További aktív témák...
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Fallout 4 Pip-Boy Edition eladó
- Intel Xeon E5-2600v4 processzorok készleten 2680v4,2683v4,2697v4,2697Av4(áfás számla, 2 év garancia)
- Bomba ár! Dell Precision 7750 - i7-10750H I 64GB I 1TBSSD I RTX3000 I 17,3" FHD I Cam I W11 I Gar!
- BESZÁMÍTÁS! 1TB Samsung 870 QVO 2,5" SATA SSD meghajtó garanciával hibátlan működéssel
- AKCIÓ! ASRock Formula OC RX 6900 XT 16GB videokártya garanciával hibátlan működéssel
- Azonnali készpénzes GAMER / üzleti notebook felvásárlás személyesen / csomagküldéssel korrekt áron
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50