Legfrissebb anyagok
LOGOUT témák
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- laskr99: Újrakezdem a processzor és videókártya szilícium magok fotózását
- gban: Ingyen kellene, de tegnapra
- VoidXs: Tényleg minden játék optimalizálatlan?
- Steven: Sokat utazó kávéfüggők ide!
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- droidic: Így beszélhetsz élő emberrel EA supportban
- Magga: PLEX: multimédia az egész lakásban
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
- MIUI / HyperOS topik
- PlayStation 5
- Luck Dragon: Asszociációs játék. :)
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Reklámblokkolók topikja
- Formula-1
- Anime filmek és sorozatok
- Győr és környéke adok-veszek-beszélgetek
- Építő/felújító topik
- TCL LCD és LED TV-k
- További aktív témák...
Új fizetett hirdetések
- Xiaomi Redmi 14 PRO 5 G 8/256 DUAL garanciával
- Dell Precision 7670 FHD+ i9-12950HX 16C / 64G D5 / 1T G4 / Quadro RTX A4500 16GB / HU vb Pro tervező
- LG OLED55G42LW LG Gyári garancia 3 év
- HP EliteBook 840G6 ! AKCIÓ!!! a készlet erejéig!
- Kobo Aura Edition 2 (N236) 6" háttérvilágításos kijelzővel, 4 GB-os tárhellyel - jó állapotban
Üzleti előfizetők hirdetései
- Samsung SyncMaster 205BW Monitor
- BESZÁMÍTÁS! Acer Predator Helios 300 Gamer notebook - i7 10750H 16GB DDR4 1TB SSD RTX 2060 6GB WIN10
- Beszámítás! Sony PlayStation 5 825GB SSD lemezeskonzol extra játékokkal garanciával hibátlan működés
- Bomba ár! MacBook PRO 13" Early 2015 - i7 I 16GB I 1TBSSD I 13,3" Retina I OS X Monterey I Cam I Gar
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest