< návrat zpět

MS Excel


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

Zaslal/a 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: xlsx39219_zdrojova-data.xlsx (37kB, staženo 67x)
Zaslat odpověď >

#039220
avatar
ještě příloha CIS
Příloha: xls39220_runrate-template.xls (332kB, staženo 77x)
citovat
#039267
elninoslov
Príklad
Příloha: zip39267_automaticka-tvorba-formularu-z-tabulky.zip (152kB, staženo 177x)
citovat
#039392
avatar

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
#039397
elninoslov
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
#039612
avatar
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)
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