Vytvorenie úvodnej tabuľky pri spustení Excelu

Zdravím vospolok.

Rád by som sa opýtal, či niekto nevie, ako by som mohol vytvoriť nejakú uvodnú hlašku (resp. upozornenie) v štandardnom súbore Excelu.

Jedná sa mi o to, že keď si niekto spustí moju kalkulačku, kt. som vytvoril, tak aby mu ešte pred tým vyhodilo nejake okno s textom (nejaké upozornenie a legendu). Až po odkliknutí by mohol pracovať.

Za každú inšpiráciu a odpoveď vopreď ďakujem.

S pozdravom Jožo.

PS: Používam MS Excel 2007 plus SK

Na to existuje jednoduchý příkaz Alert v Basicu.

Super, toto ma vobec nenapadlo. Nevieš mi prosím poradiť, ako ho potom dostanem do toho mojho dokumentu ??? (V tychto veciach som naozaj laik )

Neviete mi prosím niekto poradiť, ako mám v Basicu napísať úplne jednoduché dialógové okno ???

Stačí text s názvom napr. "Vytvoril pre interné účely .... ". podmienkou je, aby toto okno vyskočilo vždy prispustení Excelovského súboru a po odkliknutí na O.K. by sa zavrelo a normálne by som pokračoval....

Ďakujem.

Takže jednoduše, možná je to začátek pro tvoji tvorbu maker, má sice Office 2002, ale to bude stejné:
1. klepni na Nástroje -> Makro -> Editor jazyka Visual Basic
2. levým tlačítkem klikni do levého sloupce na Tento_sešit a vyber Wiew Code
3. v nově otevřeném okně Bys měl mít už napůl vytvořenou proceduru, tak jí doplň asi takto:

Private Sub Workbook_Open()

MsgBox "Ahoj"

End Sub

Místo Ahoj si napiš co chceš.

Strašne ďakujem za odpoveď. Funguje to veľmi dobre. Akurát by som chcel pridať ďalší riadok toho okna a neviem akým príkazom sa to zadáva (zrejme "line" alebo niečo podobné).

Tak potom tedy takto:

Private Sub Workbook_Open()

MsgBox "První řádek" & vbNewLine & "Druhý řádek" & vbNewLine & "Třetí řádek"

End Sub

PERFEKTNÉ. Naozaj som ti veľmi vďačný. Si super. Už mi to vyhodí bez problémov.

Bohužiaľ sa mi to ale pri otvorení súboru vôbec nespustí. Neviem prečo., nakoľko by som to mal mať správne. Vyzerá to takto:

Private Sub Workbook_Open()

MsgBox "Výhradne pre interné účely ...... "
MsgBox "UPOZORNENIE: Software pri výpočte zhodnotenia ...... "

End Sub

Možno to má niečo s nastaveniami zabezpečenia hárku. Mám to zaheslované. Ale skúšal som aj zrušiť heslo a stále nič. Skús ešte toto poradiť.... PROSÍM

Veľká vďaka.

To první se spouštělo?

Nie, ani to. Iba ked to dám spustiť cez nejaké zelené tlačítko v Basicu (zrejme PLAY na odskúšanie) - pokiaľ je to dobré napísané, tak mi to vyhodí dve tabuľky po sebe. Úplne super.

Ale nevyhodí mi to pri spustený súboru - nechápem prečo.

PS: Nahodou nevieš, akým príkazom by som mohol VYCENTROVAŤ text v tom okne ???

Ešte raz veľká vďaka za každú tvoju odpoveď. Vážim si to.

Asi vím, kde je problém. Zřejmě ta procedura bude pro jiný objekt. V tom okně, do kterého píšeš ten kód, by nahoře měly být dvě vysouvací menu. V tom prvním by mělo být Workbook a v tom druhém Open. Je to tam?

EDIT//: k tomu vycentrování textu:

O takové možnosti nevím, jedině snad přidat na začátek pár mezer. MsgBox jako takový, nemá takovou možnost, tu mají až formuláře.

Mám tam 2 polia. V je (General) a v druhom si mozem rolovat.
Začína to s (Declarations), potom tam mám 4 svoje makrá, ktoré mi fungujú a posledné je položka WorkBook_Open.

Neviem to asi riadne popisať. Ak by si bol ochotný, múžem ti CELÝý ZOŠIT ZASLAŤNA MAIL.

To nebude třeba. Tu proceduru musíš mít napsanou v tom WorkBook_Open. To by mělo být vše.

Skúsim

Bohuzial nič. Vôbec tomu nerozumiem. Ako to mám napísať do Workbook_Open - ono totiž vyzerá, že je to tam už teraz.

Už sa mi to podarilo. mal si pravdu, bol som v zlom okne. Musel som si cez ponuku View zvolit "explorer" a tam som sa prepol do WorkBook. Stacilo to tam vloziť a bolo

Nevieš mi ešte náhodou poradiť, ako možem vycentrovať text v tej tabuľke ???

PS: Veľmi ďakujem za pomoc. Sám by som to nezvládol.

Tak to si asi nerozumíme. Začínal jsi, tak, jak jsem psal? Já jsem tam zapoměl napsat (i když jsi nepsal, že tam ta napůl vytvořená procedura není), že potom, co klikneš pravým tlačítkem na Tento_sešit, v tom levém sloupci a otevře se ti to okno, do kterého se píše, že musíš v tom levém vysouvacím menu toho okna, vybrat Workbook místo (General). Až potom se totiž vytvoří ta procedura.

Ospravedlňujem sa za svoj amaterizmus ... Už som to mohol mať dávno hotové. Ďakujem za Tvoju trpezlivosť

Nevieš ešte náhodou to centrovanie - nech to trošku lepšie vyzerá ....

Na to jsem odpovídal v nějakém předchozím příspěvku. Jedině přidat mezery na začátek. V MsgBox to nejde. To umí až formuláře. Tady by šlo udělat ještě tak akorát tlačítko na vyhození z Excelu nebo tlačítko k nápovědě.


Když se s tím Basicem naučíš, tak není problém udělat třeba Malování nebo i složitější věci. Už jsem dělal i program, že samotný Excel fungoval jen jako tabulka pro výpočty a tisk. Ani se neotvíral. Vše se zadávalo jen do formulářů. Dokonce se i ukládaly data a podle první zadané položky (to bylo ID) se buď doplnil zbytek a hned se přešlo k tisku nebo se otevřelo okno pro vytvoření nového záznamu, takže pokud se už daná věc jednou dělala, nebylo třeba už vyplňovat zbytek.

To znie naozaj husto. Máš pravdu, že keď sa človek niečo raz naučí, potom to je veľmi ľahké až triviálne. Ešte raz vďaka za pomoc. Idem off, lebo ráno idem pracovať

Ďakujem.

Já už to skoro zapoměl. Musel jsem si zmáčknout F1 pro přesný syntaxe.

Jinak nemáš zač.