- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
- Geri Bátyó: Agglegénykonyha 1 – rizseshús másképp
- bambano: Bambanő háza tája
- Kalacskepu: Elrontott Radeon X1950 Pro megjavítása
- sziku69: Fűzzük össze a szavakat :)
- GoodSpeed: Bye PET Palack, hello SodaStream
- talmida: Változások
- 25
-
LOGOUT
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
-
Delila_1
veterán
válasz
elmouse #17852 üzenetére
Igaza Van Muttnak a hibakezelést illetően a 17853-as hozzászólásban. Pótoltam a hiányt.
Sub atlag_50()
Dim sor As Long, usor As Long, oszlop%, uoszlop%, atlag!
Dim WF As WorksheetFunction
Set WF = WorksheetFunction
uoszlop% = Cells(1, Columns.Count).End(xlToLeft).Column
For oszlop% = 1 To uoszlop%
usor = Cells(1, oszlop%).End(xlDown).Row
If usor - 49 > 2 Then
atlag! = WF.Average(Range(Cells(usor - 49, oszlop%), Cells(usor, oszlop%)))
Cells(usor + 2, oszlop%) = atlag!
Else
Cells(usor + 2, oszlop%) = "Kevesebb, mint 50 tétel"
End If
Cells(usor + 2, oszlop%).Font.ColorIndex = 3
Next
End Sub
Új hozzászólás Aktív témák
- EAFC 25
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Autós topik látogatók beszélgetős, offolós topikja
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Autós topik
- Revolut
- Luck Dragon: Asszociációs játék. :)
- PlayStation 5
- Projektor topic
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- PC Game Pass előfizetés
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- BESZÁMÍTÁS! Cooler Master Masterliquid 360L CORE vízhűtés garanciával hibátlan működéssel
- LG 65" C1 OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready!
- Apple MacBook Air 13 2017 A1466 512Gb SSD / i7 / 8GB RAM / 12 hó jótállás
- Samsung Galaxy S23 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Új, csak kipróbált Philips 41,5" / 105.5cm 4K OLED 138Hz 98% DCI-P3 0.1ms
Állásajánlatok
Cég: FOTC
Város: Budapest