Rychle, kvalitně a levně

Diskuze

Datum: 20.02.2012

Vložil: vbaprogramovani@gmail.com

Titulek: Re: Chci prgramovat

Dobrý den,
doporučuji začít nahrávat makra přes Excel a Word, studovat zaznamenaný kód a zkoušet jej upravovat
Předpokladám, že základy programování a algoritmů máte ze školy :-)

Literatury jsou mraky, ale doporučuji např. knihu
Microsoft Excel 2000 a 2002 + CD ROM od John Walkenbach.

Experimentujte a zkoušejte nové věci. A potom experimentujte ještě více. Také čtěte Excel nápovědu.

Přeji hodně zdaru

Datum: 22.02.2012

Vložil: Petr

Titulek: Re: Re: Chci prgramovat

Ne, žádné základy programování nemám...

Datum: 06.02.2013

Vložil: Jakprogramovat.cz

Titulek: Re: Re: Re: Chci prgramovat

Pak zkuste zde https://www.jakprogramovat.cz/ berou tam VBA od začátuo pro naprosté laiky

Datum: 03.12.2011

Vložil: Honza

Titulek: aktulizace buněk ve VBA

Dobrý den.
Mám naprogramovaných několik funkcí ve VBA. Tyto funkce analyzují výsledky zápasů. Když ale přidám další zápasy, políčka s těmito funkcemi se mi automaticky neaktualizují. Musím na ně vždy kliknout a pak se hodnota přepočítá...
Problém je v tom, že mám takových políček v souboru 150...
Nevíte prosím jak to zautomatizovat?
Děkuji za odpověď :)

Datum: 05.12.2011

Vložil: vbaprogramovani@gmail.com

Titulek: Re: aktulizace buněk ve VBA

Zkuste volat proceduru, která obsahuje přikaz: application.CalculateFull např. na základě zmáčknutí tlačítka, anebo při změně listu (přechodě na jiný list) - prostě natvrdo volat aktualizaci Excel. Hodně zdaru

Datum: 20.11.2011

Vložil: mirah

Titulek: Proč mi nejde smazat menu v MS Excel 2010 ?

Option Explicit 'Specifikuje, že proměnné se musí deklarovat
Public Menu As CommandBar
Public NazevMenu As CommandBarControl
Public Položka As CommandBarButton

Sub Pokus4()
Set Menu = CommandBars.ActiveMenuBar
Set NazevMenu = Menu.Controls.Add(Type:=msoControlPopup, Temporary:=True)
NazevMenu.Caption = "Menu 1"

Set Položka = NazevMenu.CommandBar.Controls.Add(Type:=msoControlButton, ID:=1)
With Položka
.Caption = "Menu 1 Položka 1"
.Style = msoButtonCaption
.OnAction = "M1del"
End With
Set Položka = NazevMenu.CommandBar.Controls.Add(Type:=msoControlButton, ID:=1)
With Položka
.Caption = "Konec"
.Style = msoButtonCaption
.OnAction = "Konec4"
End With
End Sub
Sub M1del()
MsgBox "M1del chci smazat", 0
Menu.Delete
End Sub
Sub Konec4()
End
End Sub



Datum: 24.11.2011

Vložil: vbaprogramovani@gmail.com

Titulek: Re: Proč mi nejde smazat menu v MS Excel 2010 ?

nepouživej prikaz end, který definitivne vše ukončí a vymaže paměť. ale příkaz exit sub Sub Konec4() Exit Sub End Sub

Datum: 06.12.2011

Vložil: mirah

Titulek: Re: Re: Proč mi nejde smazat menu v MS Excel 2010 ?

V tom Sub Konec4() chci skončit úplně. To co mi nefunguje je příkaz "Menu.Delete", na který mi to zastaví a hlásí: "Run-time error '-2147467259 (80004005)': Method 'Delete' of object 'CommandBar' failed."

A nevím proč? Metoda Reset zafunguje, ale zlikviduje všechny založená menu, když jich mám založeno víc. Chtěl jsem smazat jen jedno konkrétní.

Předem díky za radu, Mirek Hubka

Datum: 08.12.2011

Vložil: vbaprogramovani@gmail.com

Titulek: Re: Re: Re: Proč mi nejde smazat menu v MS Excel 2010 ?

No ja znova opakuji, jestli se ukonci běh kodu VBA příkazem END tak se vymaže paměť. Tudíž není možno volat příikaz : Menu.Delete protože program neví co je v proměnné Menu. Tj 2 možnosti řešení problému: 1. nepouzivat END 2. pouzivat END, ale pred samotným mazanim menu, je potreba znova nacíst do prommene Menu to konkrétní menu (CommandBar), které chcete mazat - aby program vedel = mel v pameti Váš commandbar

Datum: 25.05.2011

Vložil: Lex

Titulek: Pro Jancu

Sub program()

Dim cisel
Dim kroku
Dim celkem
cisel = Cells(1, 5).Value

For kroku = 1 To cisel

Cells(kroku, 1).Value = kroku
Cells(kroku, 2).Value = Rnd()
celkem = celkem + Cells(kroku, 2).Value

Next
Cells(2, 5).Value = celkem / cisel

End Sub

Vyhledávání

Proč platit peníze za drahé a licencované programy?

 

Kancelářské produkty MS office obsahují prostředí VBA (vývoj. nástroje pro programátory) za pomoci kterého lze napsat koplexní automatizovaný podnikový software.