< návrat zpět

MS Excel

Téma: MAKRO - náhodná čísla rss

Zaslal/a Honza1991 3.11.2024 18:48

Ahoj, mám takový problém.

Potřebuji vytvořit makro, kdy mám tabulku o několika buňkách, přičemž v některých buňkách mám vzorec na generování náhodných čísel - datum (=DNES()*NÁHČÍSLO()), příchod zaměstnance (=HODNOTA.NA.TEXT(NÁHČÍSLO()*-2/24+9/24;"hh:mm:ss")) a konec pracovní doby (=HODNOTA.NA.TEXT(NÁHČÍSLO()*-2/24+16/24;"hh:mm:ss")). Vzorce fungují bez problémů.

Makro má být takové, že do nové tabulky s docházkou vloží nový řádek a vypíše docházku zaměstnance. Vytvořil jsem makro, které funguje tak jak má, vytvoří první řádek v tabulce s docházkou a dosadí hodnoty. Problém je právě u buněk, kde je vzorec na náhodné generování čísel. Po stisku tlačítka makra vyplní úplně jiné náhodné číslo, než které vidím vygenerované a potřebuji jej zadat do tabulky docházky - jak kdyby jej někde v pozadí znovu náhodně přegenerovalo. Přikládám makro, které funguje, vkládá řádky, akorát s jinýmu náhodně generovanými hodnotami. Předem děkuji za rady a pomoc :-)

Sub addNewRow()
Dim tbl As ListObject
Dim ws As Worksheet
Dim newRow As ListRow

Set ws = ThisWorkbook.Sheets("Docházka")

Set tbl = ws.ListObjects("Tabulka2")

Set newRow = tbl.ListRows.Add(Position:=3)

newRow.Range(1, 1).Value = ws.Range("C20").Value
newRow.Range(1, 2).Value = ws.Range("C21").Value
newRow.Range(1, 3).Value = ws.Range("C22").Value
newRow.Range(1, 4).Value = ws.Range("C23").Value
newRow.Range(1, 5).Value = ws.Range("C24").Value


End Sub

Zaslat odpověď >
honzzicek.1(3.11.2024 18:55)#056940
avatar
Po registraci přikládám soubor, díky :-)

EDIT: koukám, že přidávání souborů nefunguje, zasílám alespoň odkaz

https://autoskoladvorak.cz/Makra.xlsmcitovat
€Ł мσşqμΐτσ(4.11.2024 8:54)#056942
€Ł мσşqμΐτσ
Ahoj,
náhodná čísla, se ti mění proto, že funkce NÁHČÍSLO() se aktualizuje pokaždé, když Excel provede jakýkoli výpočet nebo změnu. Jdi na Formát > Možnosti > Výpočty a vyber Ruční. nebo vlož na začátek makra "addNewRow" tento příkaz:Application.Calculation = xlCalculationManual Takto bude Excel aktualizovat vzorce pouze tehdy, když stiskneš F9. pokud ti to takto nebude vyhovovat tak jediné náhodně generovat makrem, než vzorcem.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