< návrat zpět

MS Excel


Téma: Zadani vyzvy pri zaznamenani makra rss

Zaslal/a 3.9.2013 20:39

Chtěly bych si vytvořit automatické makro s tím že nektere bunky nejsou jenom vzorecky ale i text ktery se meni nasel jsem na webu tento napad ale tlacitko pri zaznamu pridani vyzvy jsem opravdu nenasel :-( excel 2010

Chcete-li přidat výzvu automaticky během záznamu makra, postupujte takto:

Spusťte záznam pomocí správce maker.
Když dospějete k místu, kde je třeba zadat informace, klepněte na ikonu Přidání výzvy.
Vyplňte pole v okně Přidání výzvy. Další informace naleznete v tématu Přidání výzvy během záznamu makra.
Klepněte na tlačítko OK. Budete vyzváni k zadání potřebných informací. Musíte zadat všechny údaje potřebné k obvyklému pokračování v práci hostitelské aplikace.
Po ukončení úprav klepněte na tlačítko OK.

Děkuji za odpovědi

Zaslat odpověď >

Strana:  1 2   další »
icon #015015
avatar
No, Kuba, asi to bude tým, že to nie je návod pre Excel, a pravdepodobne ani pre VBA 1citovat
#015016
avatar
Jsu vul. omlouvam se. A nevis jak by to slo jednoduse? makro mi funguje ale jsou tam texty ktere pri tom nahravani napisu to je logicke,potreboval bych to co jsem napsal nahradil nejakym zadavacim boxem kde bych vepisoval ten text. Rozumis mi? 1citovat
icon #015018
avatar
Makro si nahraj a potom tú časť, kde si pri nahrávaní makra vpisoval texty, nahraď inputboxom. Jeho výstup ulož do premennej a tú potom použi v kóde.citovat
#015019
avatar
Cesky prosim jsem laik (zacatecnik) co cim nahradit nemohl bys te mi to prosim napsat tam je to Activ.... atd ja uz topotom pochopim, Dekujicitovat
icon #015020
avatar
Tak to by som musel najprv ja pochopiť, čo myslíš týmto:
nemohl bys te mi to prosim napsat tam je to Activ

Tu máš príklad, ako pracovať s InputboxomSub PouzitInputbox()
'priklad, ako v kode pracovat s Inputboxom
Dim MyInput As String
MyInput = InputBox("Vlozte text")
MsgBox ("Vlozili ste text:" & vbNewLine & MyInput) 'toto vyhod a miesto toho pouzi premennu MyInput v tom
'Tvojom kode na mieste, kde si pri zazname makra pisal rucne text
End Sub
citovat
#015021
avatar
Ja ti sem za chvilku hodim ukazku aji s tim makrem.citovat
#015022
avatar
pokus Makro
'

'
ActiveCell.Select
ActiveCell.FormulaR1C1 = "Pokus"
ActiveCell.Range("A1:B1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "malé"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "velké"
ActiveCell.Offset(9, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
ActiveCell.Offset(1, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = "10"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "20"
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.Style = "Currency"
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Style = "Currency"
ActiveCell.Offset(2, -1).Range("A1").Select
End Subcitovat
#015023
avatar
pokus Makro
'

'
ActiveCell.Select
ActiveCell.FormulaR1C1 = "Pokus"
ActiveCell.Range("A1:B1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "malé"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "velké"
ActiveCell.Offset(9, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
ActiveCell.Offset(1, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = "10"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "20"
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.Style = "Currency"
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Style = "Currency"
ActiveCell.Offset(2, -1).Range("A1").Select
End Sub

To co je tucne potrebuju zadatcitovat
icon #015025
avatar
No jednoducho, na začiatku kódu (hneď za riadok sub) vložíš riadok:

Dim MyInput vlastne ani nemusíš, pokiaľ nemáš nastavenú povinnú deklaráciu premenných, a keď vidím ten kód, tak som si skoro istý, že nemáš 1

A potom, miesto tých tučných riadkov (uvediem príklad toho prvého tučného) napíšeš:

MyInput = InputBox("Vloz pozadovanu hodnotu/text")
ActiveCell.FormulaR1C1 = MyInput


toto napíšeš miesto každého vytučneného riadku.

Ten Tvoj kód vznikol záznamníkom makra, chcelo by to trochu prečistiť 1citovat
#015026
avatar
Ja vím vidim, snazim se to pochopit z for a googlu a zkousením no, zadny uceny z nebe nespadl doufam ze to jednou pro me taky nekdy bude jednoduchá zálezitost. Zkusím to a kdyby mi to nefungovalo tak se jeste ozvu. Nevadi?citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09