< návrat zpět

MS Excel

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

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: rar40973_prepsani_0.rar (13kB, staženo 17x)
Zaslat odpověď >
Stalker(24.7.2018 23:59)#040974
Stalker
Jedno z možných řešení. Někdo jistě přijde se sofistikovanější variantou.
Příloha: zip40974_prepsani_0.zip (16kB, staženo 20x)
citovat
Ondry(25.7.2018 7:44)#040976
avatar
@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: rar40976_prepsani_01.rar (18kB, staženo 19x)
citovat
Stalker(25.7.2018 20:48)#040985
Stalker
Evidentně né zcela chápu funkci Tvého řešení, ale v tom případě funkce radek není potřeba viz soubor.
Příloha: zip40985_prepsani_01.zip (17kB, staženo 18x)
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