< návrat zpět

MS Excel

Téma: Zadani vyzvy pri zaznamenani makra rss

Zaslal/a Kuba_82 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 AL(3.9.2013 21:23)#015015
avatar
No, Kuba, asi to bude tým, že to nie je návod pre Excel, a pravdepodobne ani pre VBA 1citovat
Kuba_82(3.9.2013 21:37)#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 AL(3.9.2013 21:47)#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
Kuba_82(3.9.2013 21:51)#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 AL(3.9.2013 22:03)#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 Subcitovat
Kuba_82(3.9.2013 22:23)#015021
avatar
Ja ti sem za chvilku hodim ukazku aji s tim makrem.citovat
Kuba_82(3.9.2013 22:37)#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
Kuba_82(3.9.2013 22:39)#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 AL(3.9.2013 22:57)#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
Kuba_82(3.9.2013 23:03)#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

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