< návrat zpět

MS Excel

Téma: Zjednoduseny kod makra rss

Zaslal/a steinhubl 27.7.2011 23:27

Chcel by som sa spytat na zjednodusenie naprogramovaneho makra. Na liste1 mam v stlpci A 16384 dat z ktorych chcem spravit FFT (Fourierova analyza). Nakolko Excel ponuka tuto moznost v Data Analysis maximalne pre 4096 cisiel, vytvoril som si v Excely makro nahravanim a to tak, ze som najprv zobral zo stlpca A1:A4096 hodnoty, previedol som FFT a vysledok som zapisal do bunky B1:B4096, potom som opat zobral zo stlpca A hodnoty z buniek A4097:A8193 a vysledok zapisal do buniek C1:C4096.... Takto to pokracovalo az po bunku A16384.
V nahranom makre mi vytvorilo zdrojovy kod presne podla mojich kliknuti mysou. Chcem sa spytat, ci by sa toto moje makro dalo zjednodusit, napriklad cez prikaz For Each... alebo len jednoducho cez prikaz For, cize by som vytvoril cyklus. Verim ze pre zdatnych VBA programatorov bude toto jednoducha zalezitost. Dakujem za vsetky typy

Zaslat odpověď >
steinhubl(28.7.2011 9:39)#005611
avatar
Zabudol som prilozit kod makra nahravanim tak ho prikladam. Za Vase odpovede vopred dakujem
Příloha: zip5611_zosit1.zip (102kB, staženo 23x)
citovat
Roman(28.7.2011 12:42)#005613
avatar
Zkus:
Sub Makro1()
For i = 1 To 4
Application.Run "ATPVBAEN.XLAM!Fourier", ActiveSheet.Range.Offset((i - 1) * 4096, 0).Resize(4096, 1) _
, ActiveSheet.Range.Offset(0, i), False, False
Next i
End Subcitovat
steinhubl(28.7.2011 16:30)#005615
avatar
dakujem za typ, vyskusal som to hned ale nefunguje mi to zial. Ked otvorim VBA prostredie a dam spustit makro tak mi vypise chybu Run-time error 450.
Za dalsie typy vopred dakujemcitovat
Roman(29.7.2011 10:22)#005630
avatar
Máš plnou pravdu chybička se vloudila a já to netestoval takže"
Sub test()
For i = 1 To 4
Application.Run "ATPVBAEN.XLAM!Fourier", ActiveSheet.Range("A1").Offset((i - 1) * 4096, 0).Resize(4096, 1) _
, ActiveSheet.Range("A1").Offset(0, i), False, False
Next i
End Subcitovat
steinhubl(29.7.2011 10:55)#005631
avatar
Velmi pekne dakujem Roman, velmi si mi pomohol, je to presne to co potrebujem. Ak by si mal nahodou chut a vedel by si mi odpovedat na moj dalsi dotaz, ktory som poslal 28.07.2011 "medzikroky makra" bol by som ti velmi povdacny.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje