• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

aha, uz tomu rozumim - to si misto klasicky procedury udelej funkci, kterou pak budes volat!
neco jako tohle: Public Function Heslo(password As String)
If password = "mojeheslo" Then
Heslo = True
Else
Heslo = False
End If
End Function
A pak si tu funkci zavolas v normalni procedure:Sub volani()
Dim p As String
p = "mojeheslo"
If Heslo(p) = True Then
MsgBox "TRUE"
Else
MsgBox "FALSE"
End If
End Sub

Zdravim, nejsem zadnej programator, takze mozna moje odpoved bude nepresna, ale myslim, ze jedinou moznosti je ulozit to do promenne...

Obavam se, ze je nutne zkopirovat list a pote odstranit vsechna tlacitka (at uz rucne nebo nejakym makrem)

Napada me pouzit globalni promennou, ktera bude schopna kontrolovat, jestli k aktivaci dojde z procedury vkladajici list Tisk. Musel bys deklarovat globalni promennou Aktivace:Public Aktivace As Boolean

Sub Vloz_list()
Dim List As String
List = ActiveSheet.Name
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Tisk"
Aktivace = False
Sheets(List).Activate
End Sub
a upravit proceduru, ktera se spousti pri aktivaci listu:
Private Sub Worksheet_Activate()
If Aktivace = False Then GoTo konec
MsgBox "tady je kod, co probehne pri aktivaci listu, kdyz se tak nestane z procedury vlozeni listu Tisk"
konec:
Aktivace = True
End Sub

co takhle: Sub Vloz_list()
Dim List As String
List = ActiveSheet.Name
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Tisk"
Sheets(List).Activate
End Sub

Zdravim,
otazka je, jak se combobox naplnujes, ale jde to vyresit pomoci funkce Format:
UserForm1.ComboBox1.AddItem Format("15.9.2010", "dd.mm.yyyy")
Pri zapisovani do listu je pak ale nutne tuto hodnotu prevest na datum - takto: CDate(ComboBox1.Value)

Jen doplnim, ze stejnou proceduru lze vyuzit i k ziskani urciteho radku ze souboru CVS (samozrejme k nalezitym nazvem souboru v kodu)

Neco jsem dal dohromady, ale ne cele, jen vyber pozadovanych oblasti - zbytek nechavam na tobe...

No, jestli mate cislo 40409,67656, tak jeho zformatovani na 'datum' ziskate klasicke datum 19.8.2010, nesmite davat format 'cas'

Tady se asi bude muset testovat, jestli je radek/sloupec skryty nebo ne a podle toho slozit vyber po bunkach...zatim me nic jineho nenapadlo - chtelo by to tedy znas vychozi bunku, odkud se bude vyber 'nacitat'...

nemam to vyzkousene, ale co takto:
ActiveSheet.Range("Tabulka_Denni.accdb5").AutoFilter Field:=5, Criteria1:=">" & Datum

tak to asi neni cislo, ale text, tak jen tyto bunky prevedte na hodnoty (treba funkci HODNOTA()) a nastavte format 'datum'

myslim, ze spravne je to takto:
ActiveSheet.unprotect Password:= "mojeheslo"

Zdravim,
melo by stacit, kdyz bunku naformatujete jako "datum"... (v soucasnosti je zrejme jako 'cas')

Jestli to dobre chapu, tak naopak potrebujes zavilost vyberu na tom, jestli je sloupec ci radek skryty nebo neni...je to tak?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje