• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Automatická tvorba formulářů z tabulky

Zaslal/a WiXoo 25.1.2018 15:47

Ahoj potřeboval bych poradit. Toto je už nad moje vnímání.

V souboru je tabulka se zdrojovými daty (s názvem zdrojova data.xls) a formulář (runrate template.XLS).

Potřeboval bych na první pohled jednoduchou věc.

Automatické vytvoření runrate template doplněním ze zdrojových dat hodnoty.

Čili vzít ze zdrojové tabulky P/N a doplnit do runrate template hodnotu do Part Number, totéž pro Part Description a Annual capacity do PASCZ Annual CAPACITY.

Poté vzít nově vytvořený runrate template a uložit ho automaticky s názvem generovaných (z runrate template P/N_Part Description.xls)

Pro každý řádek ze zdrojové tabulky vytvořit a samostatně uložit runrate template.

Příklad je ve zdrojova data - list příklad

Děkuji Mnohokrát

Příloha: 39219_zdrojova-data.xlsx (37kB, staženo 67x)

Zaslat odpověď >

---

WiXoo(25.1.2018 15:48)#039220

ještě příloha CIS

Příloha: 39220_runrate-template.xls (332kB, staženo 77x)

citovat

elninoslov(29.1.2018 12:49)#039267

Príklad

Příloha: 39267_automaticka-tvorba-formularu-z-tabulky.zip (152kB, staženo 177x)

citovat

WiXoo(8.2.2018 13:47)#039392

elninoslov napsal/a:

PríkladPříloha: 39267_automaticka-tvorba-formularu-z-tabulky.zip (152kB, staženo 23x)

Hele díky moc. Super. Akorád, když si to zkouším, tak mě to doplňuje špatnou hodnotu v annual value do formuláře. Zkouším koukat na zdrojový kód, ale je to na mě moc složitý.citovat

elninoslov(8.2.2018 14:30)#039397

Samozrejme, lebo tam máte ďalšie 2 skryté stĺpce. Čo som si ani ja nevšimol. Tak len zmente číslo 3 v týchto dvoch riadkoch kódu na číslo 5.
arrData = .Cells(2, 1).Resize(lngRows, 3).Value2
.Cells(6, 5).Value2 = arrData(i, 3)citovat

WiXoo(20.2.2018 12:26)#039612

SUper díky moc. A ještě poprosím o jednu úpravu. Šlo by přidělat to, že nedle P/N a Part name by přibyly ještě dvě další a sice Supplier name a Supplier location, které by se automaticky doplnily do R@R form? V případě, že tam nebudou tak se do R@R nedoplní,. D9ky

elninoslov napsal/a:

Samozrejme, lebo tam máte ďalšie 2 skryté stĺpce. Čo som si ani ja nevšimol. Tak len zmente číslo 3 v týchto dvoch riadkoch kódu na číslo 5.
arrData = .Cells(2, 1).Resize(lngRows, 3).Value2
.Cells(6, 5).Value2 = arrData(i, 3)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse