» Poradna » Programy

EXCEL makro pro zápis do aktuální buňky?

 |   | 

Prosím o radu/pomoc , potřeboval bych vytvořit makro , které by po jeho spustění
vypsalo předem definovaný text na aktuálním místě kde je zrovna kursor???
předem děkuji.

Odpovědi na otázku

 |   | 

pokud je text ulozen v makru, pak takto:
Dim TextStr$
Sub VlozText()
TextStr = ".....text....."
ActiveCell.Value = TextStr
End Sub

volani makra nastav v nastroje>makro>makra

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Vytvořil jsem si Makro1 a do něj vložil co je zde výše popsáno , pak přiřadol Makro1 k tlačítku a nic... jaximi to nefunguje??? sekne se mi to hned na Dim???
Co s tím ???
Dík.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

otevri Excel, spust si editor VBE (levy Alt + F11), vloz modul, do modulu vloz:

Sub VlozText()
Dim TextStr$
TextStr = ".....text....." ' zde je text ke vlozeni
ActiveCell.Value = TextStr
End Sub


vrat se do sesitu exelu, nastroje>makro>makra (nebo Alt+F8), vyber makro 'VlozText' , dale moznosti a zvol klavesu, napr.: Ctrl [+Shift]+ V

pokud mas na mysli pouziti ovladaciho prvku 'CommandButton' z 'Ovladacich prvku', pak vyber zobrazit>panely nastroju>ovladaci prvky, vyber ovladaci prvek 'prikazove tlacitko' (CommandButton), v horni casti panelu 'ovladaci prvky' vyber 'zobrazit kod', zobrazi se kod pro prikazove tlacitko a vloz mezi jiz vlozene

Private Sub CommandButton1_Click()

End Sub

tento kod

Dim TextStr$
TextStr = ".....text....." ' zde je text ke vlozeni
ActiveCell.Value = TextStr

takze budes mit:

Private Sub CommandButton1_Click()
Dim TextStr$
TextStr = ".....text....."
ActiveCell.Value = TextStr
End Sub

vrat se do sesitu a klik na tlacitko 'CommandButton1' (muzes prejmenovat) vlozi text do vybrane bunky

prijemne svatky vanocni

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Děkuji mooc za vyčerpávající popis ........... již funguje.
Taky přeji pěkné svátky

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

To v cem je napsan ten kod je Visual Basic? Jde tam pouzit i neco jineho, myslim jiny jazyk?
Dekuju

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

To v cem je napsan ten kod je Visual Basic? Jde tam pouzit i neco jineho, myslim jiny jazyk?
Dekuju

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

cituji z http://www.officir.ic.cz/chipex05/01/excel_vba_uvo... :
"VBA (Visual Basic for Applications, česky Visual Basic pro aplikace) je programovacím jazykem, jehož základy jsou společné hned několika aplikacím balíku MS Office...., bude vcelku snadné připravit si vlastní pomůcky například ve Wordu, Outlooku či PowerPointu.... VBA přitom není jediným jazykem, ve kterém můžete programovat své nadstavby aplikací MS Office. Vedle něj se nabízí ještě VBScript (Visual Basic Script) a případně JavaScript...."

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Buňky, Zápis, Makro




Určitě si přečtěte

Rekordy počasí: V Česku to ještě jde, skutečné extrémy zažívají jinde

Rekordy počasí: V Česku to ještě jde, skutečné extrémy zažívají jinde

** Teplotní extrémy dokážou překvapit. Seznamte se s rekordy v Česku i ve světě ** Rekordní hodnoty jsou mnohdy až k neuvěření ** Zjistěte, kdy ke bylo největší horko, zima, déšť či vítr

Karel Kilián | 7

Šéf amerického Red Hatu: Odpojte Brno od internetu a zhroutíme se

Šéf amerického Red Hatu: Odpojte Brno od internetu a zhroutíme se

** V Česku najdete hromadu skvělých vývojářů ** Mnozí z nich přispívají do open-source ** Třeba v brněnském Red Hatu

Jakub Čížek | 51

15 věcí, které umí Windows 10, ale možná o nich vůbec nevíte

15 věcí, které umí Windows 10, ale možná o nich vůbec nevíte

** Systém Windows 10 umí spoustu užitečných drobností ** O mnoha praktických funkcích pravděpodobně ani nevíte ** Poznejte užitečné tipy, které se vám mohou hodit každý den

Vladislav Kluska | 33

Alan Turing: Genius, který matematicky stvořil počítač

Alan Turing: Genius, který matematicky stvořil počítač

Řešením matematického problému se dostal k modelu teoretického stroje, který nese jeho jméno a je základem logiky univerzálních počítačů.

Pavel Tronner | 56

Našli jsme 22 schopných internetových prohlížečů: Vyberte si, který vám nejvíc sedne

Našli jsme 22 schopných internetových prohlížečů: Vyberte si, který vám nejvíc sedne

** Není jen Chrome, Firefox, Edge či Opera. Na výběr máte mnohem více! ** Internetové prohlížeče se liší funkcemi, zaměřením i designem. Našli jsme 22 použitelných prohlížečů pro Windows ** Vyberte si prohlížeč, který vám bude nejvíce vyhovovat

Karel Kilián | 32


Aktuální číslo časopisu Computer

Kdy necháme řídit chytrá auta?

6 Wi-Fi Mesh systémů ve velkém testu

Srovnali jsme 7 sportovních kamer

Znáte pravidla pro létání s drony?