MS Excel

Dobrý den,
s VBA v Excelu teprve začínám, tak bych se chtěla zeptat, jak vypočítám směrodatnou odchylku pro buňky např. A2 až A20. Pro tyto konkrétní buňky mám zápis:

Sub SměrodatnáOdchylka_Klepnutí()
Range("P2") = Application.WorksheetFunction.StDev(Sheets(2).Range(Cells(2, 1), Cells(20, 1)))
End Sub

nebo také funguje:
Range("P2") = Application.WorksheetFunction.StDev(Sheets(2).Range("A2","A20"))

Chtěla bych ale, aby se směrodatná odchylka vypočítala pro buňky A2 až A(2+18), kde číslo 18 je uvedeno v buňce B2.

Snad je můj dotaz srozumitelný

Děkuji

Zaslat odpověď >

Anonym(18.3.2017 16:26)#035627

Ahoj, např:Range(Cells(2, 1), Cells(2 + Cells(2, 2), 1))
'nebo
Range("A2", "A" & (2 + Range("B2")))
'nebo
Range("A2").Resize(Range("B2") + 1, 1)
citovat

v24(18.3.2017 16:35)#035628

Mockrát děkuju!

citovat

Jan-Mach(4.4.2017 21:58)#035927

To je všechno zbytečně složité:

[P2] = WorksheetFunction.StDev(Sheets(2).[A2].Resize([B2] + 1))

Navíc 2. list má zaručeně nějaké CodeName, nejspíš 'List2' (v anglické verzi Office to bude 'Sheet2'), takže mnohem lepší je

[P2] = WorksheetFunction.StDev(List2.[A2].Resize([B2] + 1))

Normální program pracuje s pojmenovanými buňkami a bloky, aby nemusel být předěláván při změnách v listech (vkládání či rušení řádků či sloupců). Tedy P2 pojmenuj třeba stDv, A2 na listu 2 třeba dat1 a B2 třeba lenD, takže mj. odkaz na list 2 bude zbytečný:

[stDv] = WorksheetFunction.StDev([dat1].Resize([lenD] + 1))

Takhle vypadá korektní kód.citovat

Anonym(4.4.2017 23:20)#035928

Machu a ty nevíš, že "[A1]" je ta nejpomalejší notace?citovat

Jan-Mach(27.4.2017 16:21)#036183

Jasně že to vím, ale je nejstručnější a proto také nejpřehlednější. Navíc zde jde o jednorázový výpočet, není to kalkulace v těle cyklu s velkou diferencí mezí, tak je mi fuk, jestli se to bude počítat 0,5 tisíciny nebo 5 tisícin vteřiny.citovat

Téma: Zápis buněk

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje