Legfrissebb anyagok
LOGOUT témák
- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- M0ng00se: Hardvert áruhitelre?
- eBay-es kütyük kis pénzért
- ricshard444: Fényképező ? Telefon helyett
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- amanoba: Zakuszkarecept Puskás Csabától, a Borkonyha Étterem head séfjétől
- bitpork: MOD Júni 28- Augusztus 2- szombat jelen állás szerint.
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
- AI-aranykort jósolnak, tarol az NVIDIA
- Crypto Trade
- A Windows 11 lett az úr az asztali PC-k piacán
- Bambu Lab 3D nyomtatók
- Nyaralás topik
- Steam Deck
- Debrecen és környéke adok-veszek-beszélgetek
- Otthoni hálózat és internet megosztás
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Alakul a Visa és a Mastercard európai ellenfele
- További aktív témák...
Új fizetett hirdetések
- Garancia! GAMER PC! Ryzen 5600X / RTX 3070 / B550 / 32GB 3200MHz /1Tb + 512Gb NVMe / 600w!
- iPhone SE2 64GB fekete, gyönyörű újszerű állapotban, 3db van, 85% 92% és 100% akkuval
- iPhone SE2 64GB 82% piros, saját dobozzal
- Apple iPhone 13 Pro Max 128GB, Kártyafüggetlen, 1 Év Garanciával
- iPhone 12 128GB, fekete vagy fehér színben, újszerű állapotban
Üzleti előfizetők hirdetései
- Lenovo 13 Core i3-7100 Cpu laptop eladó
- Csere-Beszámítás! Számítógép PC Játékra! I5 14400F / RTX 4060ti 16GB / 32GB DDR5 / 1TB SSD
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Azonnali A320 B350 X370 B450 X470 A520 B550 X570 chipset alaplap felvásárlás személyes/csomagküldés
- Samsung Galaxy A32 4G 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest