MS Excel

Téma: Pevné nakopírování čísel z generátoru čísel

Zaslal/a Ondry 24.7.2018 21:30

Ahoj,

pokud byste někdo měl chuť pomoci. Tak budu moc vděčný.

Mám tři, třídimenzionální vektory (A,B,C) generované náhodným generátorem čísel. Pod nimi je podmínka, že vektor s nejvyšším součtem všech hodnot (x1+x2+x3) má hodnotu 1 a zbylé dva 0.

Šlo by vytvořit makro, které po stisknutím tlačítka přepíše hodnoty z vektoru, s hodnocením 1, do sloupce, s tím, že jak se dále budou generovat další čísla tak hodnoty v této tabulce zůstanou zachovány?

S excelcem v příloze, to snad bude jasnější.

Díky
Ondra

Příloha: rar

40973_prepsani_0.rar (13kB, staženo 16x)

Zaslat odpověď >

Stalker(24.7.2018 23:59)#040974

Jedno z možných řešení. Někdo jistě přijde se sofistikovanější variantou.

Příloha: zip

40974_prepsani_0.zip (16kB, staženo 19x)

citovat

Ondry(25.7.2018 7:44)#040976

@Stalker

Díky, trochu jsem to upravil k obrazu svému, chtěl jsem aby se přepisovali 3 hodnoty pořád v jedné stejné tabulce.

Na to stačilo přepsat definici řádku

Property Get radek() As Long
radek = List1.Cells(Rows.Count, 1).End(xlUp).Row

A aby šlo zvlášť generovat, tak jsem dal
.EnableCalculation = True
aby jakoukoliv změnou buňky se změnily hodnoty

To jsou přímo amatérské zásahy do kódu, ale funguje to.

Příloha: rar