Legfrissebb anyagok
LOGOUT témák
- sziku69: Fűzzük össze a szavakat :)
- eBay-es kütyük kis pénzért
- bambano: Bambanő háza tája
- bitpork: MOD Júni 28- Augusztus 2- szombat jelen állás szerint.
- Yutani: Yutani Retró Hangkártyái: OAK Mozart Wavetable
- btz: Internet fejlesztés országosan!
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- laskr99: Újrakezdem a processzor és videókártya szilícium magok fotózását
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- ricshard444: Fényképező ? Telefon helyett
PROHARDVER! témák
Mobilarena témák
IT café témák
Keresés
-
LOGOUT
Új hozzászólás Aktív témák
-
shev7
veterán
válasz
Dufresne #2151 üzenetére
ha a szamok az A1:A10-ben vannak:
Sub Dufresne()
Dim osszeg, db As Integer
osszeg = 0
darab = 0
For i = 1 To 10
If (Cells(i, 1) Mod 2 = 0) Then
osszeg = osszeg + Cells(i, 1)
darab = darab + 1
Cells(3, 3 + darab) = Cells(i, 1)
End If
Next i
Cells(1, 4) = osszeg / darab
Cells(2, 4) = darab
End Sub
Akkor a d1-ben lesz az atlag, d2-ben a darabszam d3-tol kezdve pedig sorban a paros szamok.
Új hozzászólás Aktív témák
Téma tudnivalók
● olvasd el a téma összefoglalót!
Aktív témák
- Revolut
- EAFC 25
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Parkside szerszám kibeszélő
- Háztartási gépek
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Építő/felújító topik
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- Goddess of Victory: Nikke
- Milyen TV-t vegyek?
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- 100 - Lenovo Yoga Pro 9 (16IRP8) - Intel Core i9-13905H, RTX 4070 (ELKELT)
- BESZÁMÍTÁS! Gigabyte G5 KC Gamer notebook - i5 10500H 16GB DDR4 512GB SSD RTX 3060 6GB WIN10
- ÁRGARANCIA!Épített KomPhone i5 14600KF 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- ÁRGARANCIA! Épített KomPhone Ryzen 5 5500 16/32/64GB RAM RTX 4060 8GB GAMER PC termékbeszámítással
- Ritkaság! Csere-Beszámítás! Intel I9 13900KS Processzor!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest