-
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
- valakiyt: Az Iobit programok - el kéne engedni
- iPhone topik
- gban: Ingyen kellene, de tegnapra
- Fogyjunk le!
- Sorozatok
- valakiyt: Mit gondoltok erről a Neonity gyerekről?
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- Milyen billentyűzetet vegyek?
- Autós topik
- Építő/felújító topik
- További aktív témák...
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Microsoft és egyéb dobozos retro szoftverek
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
Á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