< návrat zpět

MS Excel


Téma: Datum v Comboboxu rss

Zaslal/a 16.9.2010 9:16

Přeji hezký den,

Mám userform a v něm combobox a v něm nastavený seznam datumů.

Combobox má formát datumu typu: měsíc/den/rok.

Já bych potřeboval toto formátování: den.měsíc.rok

Jde to nějak nastavit? Zatím tápám, díki 4

Zaslat odpověď >

icon #002449
Poki
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)citovat
#002450
avatar
Díki vyzkouším. :o)

Prosím tě, ted řeším ješte: potřebuji do sešitu vložit nový list ale tak aby se mi zachovalo původní okno listu. Myslím tím, zmáčknu čudl a on se mi přidá list, pojmenuje se třeba na "tisk" ale zůstanu pořad v tom aktivním okně, nepřejde mi do nového vytvořeného listu. Co myslíš? :)citovat
icon #002451
Poki
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
citovat
#002452
avatar
Takhle jednoduše to právě nejde :o)

List na kterém spustím makro se nesmí znova aktivovat, vybrat. Protože při aktivaci tohotu listu, mi běhají jiné makra a to mi skočí uplně jinam v listu.

Šlo by to aby se nový list vložil v pozadí. Aby se nemuselaktivovat? Nebo zkusit zakázat všechny makra, když znova se aktivuje list?citovat
icon #002453
Poki
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
citovat
#002454
avatar
Vyzkoušeno, faká to :o)

Kdybych mohl pro tebe něco udělat jen se na mě obrať :o)citovat

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