-
Fototrend
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
-
Cuci3
tag
válasz
Alfonzka77
#9445
üzenetére
Ez kevésbé Excel probléma, inkább statisztika, annak is az ökonometria ága. Elsőként ajánlanék egy kevésbé macerás programot (Eviews), de ha ragaszkodsz az Excelhez:
-ha elcsúsztatod, akkor J oszlopból is kevesebb értéket kell venned: A10:A333 mellé J1:J324 kell, mivel így meg lesz az azonos elemszám. És én valami indirektes szépséggel oldanám meg a K1 cellától kezdve kb így:
+LIN.ILL(INDIREKT("J1:J"&(333-SOR()+1));INDIREKT("A"&SOR()&":A333"))Viszont a statisztikának vannak egyéb szépségei meg feltételei (pl.: sztenderd normális eloszlás a maradéktagra, továbbá heteroszkedaszticitás), melyeket Excelben annyira nem lehet megfigyelni.
-
Delila_1
veterán
válasz
Alfonzka77
#8857
üzenetére
Ímé:
Sub Átlag()
Dim sor As Integer, oszlop As Integer
Dim k_sor As Integer, összeg As Double
Dim usor As Integer, uoszlop As Integer
usor = ActiveSheet.UsedRange.Rows.Count
uoszlop = ActiveSheet.UsedRange.Columns.Count
sor = 1: k_sor = 1
For oszlop = 1 To uoszlop
Do While sor <= usor
összeg = Cells(sor, oszlop) + Cells(sor + 1, oszlop) + Cells(sor + 2, oszlop)
Cells(k_sor, oszlop + 10) = összeg / 3
k_sor = k_sor + 1: sor = sor + 3
Loop
k_sor = 1: sor = 1
Next
End Sub -
Delila_1
veterán
válasz
Alfonzka77
#8855
üzenetére
Nemsokára írok rá makrót, csak most van egy kis más dolgom.
-
Delila_1
veterán
válasz
Alfonzka77
#8853
üzenetére
Akkor nem kell makró.
K1-be: =ÁTLAG(A1:A3)
A K2 és K3 üresen marad.
A K1
3 tartományt együtt kijelölöd, és lemásolod az utolsó sorodig.Ezután kijelölöd a K1 cellától a K oszlop utolsó képletéig a tartományt, és jobbra másolod addig, ameddig kell.
-
Delila_1
veterán
válasz
Alfonzka77
#8851
üzenetére
Új hozzászólás Aktív témák
- EAFC 26
- GoodSpeed: Mutasd magad topic!
- A Razer új klaviatúra-zászlóshajóját meglátva biztos félrenyeled a teát
- Ilyen olcsó sem volt még egy Apple notebook
- Kezdő fotósok digitális fényképei
- Pofonegyszerű beugrót kínál HBM4E-hez a Rambus
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Intel Dual Core 2000 felhasználók barátságos offolós topikja
- Kínai és egyéb olcsó órák topikja
- VR topik
- További aktív témák...
- Samsung Galaxy S23 Ultra 5G 12/512GB zöld használt, megkímélt 6 hónap garancia
- Samsung Galaxy A56 5G / 8/256GB / Kártyafüggetlen / 12Hó Garancia / Akku:100%
- í kilenc! AKCIÓS PRECÍZIÓS KÉSZÜLÉK! 7560 i9-11950H 32GB RAM 1TB SSD Nvidia RTX A3000 6GB 1 év gar
- Xiaomi 14T 12/256GB - Kártyafüggetlen, Fekete, ÚJSZERŰ - 1 Év garanciával
- HIBÁTLAN iPhone 12 256GB Blue-1 ÉV GARANCIA - Kártyafüggetlen, MS4462
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
3 tartományt együtt kijelölöd, és lemásolod az utolsó sorodig.
Fferi50