MS Excel

Téma: Po spuštění automaticky nulovat buňky

Zaslal/a Pee 8.7.2014 7:28

Ahoj všem,
potřeboval bych poradit, jak nastavit automatické nulování ruzně rozmístěních buněk po spuštění Excelu.
Díky moc P.

Zaslat odpověď >

Pavlus(8.7.2014 8:58)#020412

Je k tomu třeba využít VBA.
Konkrétně jde o událost "Workbook_Open", která se umístí do "ThisWorkbook".
P.

Př.:
Private Sub Workbook_Open()
Sheets("List1").Range("A1").Value = 0
Sheets("List2").Range("A1").Value = 0
End Subcitovat

Pee(8.7.2014 9:28)#020418

Díky moc za odpověď,
pro jednu buňku to funguje, ale potřebuji jich nulovat více (viz níže), vše na stejném listu, ale někde je asi zádrhel :/, tedy samozřejmě u mě :D
Nevím jak zadat rozsah.
Díky moc P.

"B2", "B3", "C8", "D8", "E8", "F8", "C14", "D14", "E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14"citovat

eLCHa(8.7.2014 9:33)#020419

Označte si všechny buňky určené k nulování.
Pojmenujte si oblast - např. K_NulovaniPrivate Sub Workbook_Open()
Thisworkbook.Names("K_Nulovani").Referstorange.Clearcontents
End Subnebo pokud tam chcete ty 0Private Sub Workbook_Open()
Thisworkbook.Names("K_Nulovani").Referstorange.value=0
End SubBudete to mít 1 krokem, tedy 1x přepočítánocitovat

Pee(8.7.2014 9:41)#020420

to eLCHa

jako vždy máte nejluxusnější řešení, bohužel jsem ve VBA začátečník a tak bohužel ani jednoduchá věc jako nadefinování oblasti ...
"Označte si všechny buňky určené k nulování.
Pojmenujte si oblast - např. K_Nulovani"
... je pro mě nepřekonatelný problém!

citovat

eLCHa(8.7.2014 9:46)#020421

OK ;))

Range("B2, B3, C8, D8, E8, F8, C14, D14, E14, F14, G14, H14, I14, J14, K14, L14, M14, N14").ClearContents
Pojmenovaná oblast slouží nejen pro VBA, takže si něco najděte a prostudujte. Doporučuji ;)citovat

Pee(8.7.2014 10:02)#020423

... určitě nastuduji, jelikož jak tak koukám bez VBA se v Excelu moc nehnu!

Asi si budete myslet, že jsem naprostý negramot,ale nějak mi to nechce spolupracovat ... po spuštění to označilo oblast a vymazalo hodnotu (nenastavilo "0")

Jak tedy vlastně má vypadat celý kód vložený v "ThisWokrbook"?citovat

eLCHa(8.7.2014 10:16)#020425

Nejste negramot - jenom pořádně nečtete ;)
Je to ale taky trochu moje chyba - já považuji nulování a vymazání za skoro to samé. Takže v mém prvním příspěvku bylo napsáno
nebo pokud tam chcete ty 0...

Private Sub Workbook_Open()
Range("B2, B3, C8, D8, E8, F8, C14, D14, E14, F14, G14, H14, I14, J14, K14, L14, M14, N14").value=0
End Subcitovat

Pee(8.7.2014 10:46)#020426

Díky moc,
funguje to skvěle.
Slibuji, že se polepším (se čtením)!!!
Mějte se a ještě jednou veliké díky!
P.citovat

Uživatelské menu

Nejste přihlášen(a)

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.