- Egyre közelebb a Poco F6 startja
- Xiaomi Mi 9T - a túl jó Redmi
- Bivalyerős lett a Poco F6 és F6 Pro
- Poco X6 Pro - ötös alá
- Azonnali mobilos kérdések órája
- Tovább csiszolja a Nothing a Phone (2a) kameráját
- OnePlus 7T Pro - árban is a csúcson
- Vodafone mobilszolgáltatások
- Közönségkedvenc Galaxy vált One UI 6.1-re
- Huawei Watch GT 3 Pro - korlátolt szépség
Hirdetés
-
Közönségkedvenc Galaxy vált One UI 6.1-re
ma Ezen a héten sem tétlenkedett a Samsung szoftverfejlesztő csapata.
-
Retro Kocka Kuckó 2024
lo Megint eltelt egy esztendő, ezért mögyünk retrokockulni Vásárhelyre! Gyere velünk gyereknapon!
-
Warhammer 40k: Space Marine 2 - Középpontban az egyjátékos és a multi mód
gp A készítők a minap két új előzetessel jelentkeztek a sokak által várt programhoz.
-
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
-
Fehér Mancs
tag
válasz Gabcsika #4442 üzenetére
Az excel 2007-es verziójában képlettel is ki lehet ezt számolni ezt:
=SZUM(HA(értékek=vizsg_érték;HA(tartomány<>"";1/DARABHATÖBB(értékek;vizsg_érték;tartomány;tartomány);0);0))
(Tömbképlet, vagyis shift+ctrl+enter-et kell használni)Az értékekben keressük meg a vizsg_értéket, és csak ezeket vesszük figyelembe a darabszámlálásnál (tartományban a különbözők kiszedése).
Ha nem lehet érteni, ne aggódj, én sem igazán értem, de működik
[ Szerkesztve ]
-
Fehér Mancs
tag
válasz Gabcsika #4442 üzenetére
Még egy észrevétel, ha macroval számoltatjuk ki ezt, akkor saját függvényt érdemes használni, mivel az nem módosítja az adataidat, változásnál újra is számol, másolható, stb.
Erre egy megoldás:
Function CountDistinct(Ertekek As range, Tartomany As range, Vizsg_ertek) As Variant
Dim Taroltak()
Dim i, j, Talalat
Dim VanMar As Boolean
Talalat = 0
For i = 1 To Ertekek.Rows.Count
If Ertekek(i) = Vizsg_ertek Then
If Talalat = 0 Then
ReDim Taroltak(1)
Taroltak(1) = Tartomany(i)
Talalat = 1
Else
VanMar = False
For j = 1 To Talalat
If Taroltak(j) = Tartomany(i) Then
VanMar = True
Exit For
End If
Next j
If Not (VanMar) Then
ReDim Preserve Taroltak(Talalat + 1)
Taroltak(Talalat + 1) = Tartomany(i)
Talalat = Talalat + 1
End If
End If
End If
Next i
CountDistinct = Talalat
End Function
Új hozzászólás Aktív témák
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- A fociról könnyedén, egy baráti társaságban
- Futás, futópályák
- Milyen program, ami...?
- Aliexpress tapasztalatok
- Max
- Egyre közelebb a Poco F6 startja
- Xiaomi Mi 9T - a túl jó Redmi
- Bivalyerős lett a Poco F6 és F6 Pro
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs