Tak ešte raz. Čože Vám to nejde ?
Příloha: 
41800_cb-rozsah-casu.zip (20kB, staženo 23x)
citovat41800_cb-rozsah-casu.zip (20kB, staženo 23x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: nalnění combobox časem
MS Excel
Téma: nalnění combobox časem 
Zaslal/a 3.11.2018 20:18
Ahoj, v listu mám v jednom řádku časové údaje po půl hodině 0:00 0:30 1:00 1:30 ...23:00 když to načtu do comboboxu tak tam jsou samé 1. Poradíte mi někdo jak do comboboxu dostat časové údaje?
(4.11.2018 19:36)#041808
Děkuji. Jedná se o combo ve formuláři.Ještě jeden problém když položku vyberu tak v comboboxu se objeví číslo místo času zkoušel jsem podle netu formát
Private Sub ComboBox1_Change()
With ComboBox1
.Value = Format(.Value, "hh:mm")
End With
End Sub
ale to nepomáhá.citovat
Private Sub ComboBox1_Change()
With ComboBox1
.Value = Format(.Value, "hh:mm")
End With
End Sub
ale to nepomáhá.citovat
Dim DisableEvents As Boolean
Private Sub ComboBox1_Change()
If Not DisableEvents Then
DisableEvents = True
With ComboBox1
.Value = Format(Val(Replace(.Value, ",", ".")), "hh:mm")
End With
DisableEvents = False
End If
End Subcitovat
Private Sub ComboBox1_Change()
If Not DisableEvents Then
DisableEvents = True
With ComboBox1
.Value = Format(Val(Replace(.Value, ",", ".")), "hh:mm")
End With
DisableEvents = False
End If
End Subcitovat
Ahoj, už opravdu nevím, kde dělám chybu. Když v combo vyberu určitý čas, potřebuji, aby vedle do bunky se zapsal text. Udělal jsem cyklus který jsem dal do form initialize. Vypíše to text pouze k některým časům.
Příloha: 41847_sesit1.zip (19kB, staženo 14x)
citovat41847_sesit1.zip (19kB, staženo 14x)Lenže Vy máte problém s tým, že ten Váš čas nieje taký ako vyzerá (na X-tom desatinnom mieste). Tu som Vám pripravil nejaké úryvky kódu. Niečo si z toho vyzobte. Na čas treba dávať vždy pozor, nielen vo VBA ale aj v Exceli, lebo sú to dlhé desatinné čísla, ktoré vznikajú delením s neustálym zvyškom. Niekde sa to zaokrúhliť nakoniec musí.
Jednotka času je číslo 1 - jeden deň teda 24 hodín
hodinu získame 1/24=0,0416666666666667
a to zase na minúty 1/24/60=0,000694444444444444
a sekundy 1/24/60/60=0,0000115740740740741
No uznajte, že občas sa to zaokrúhľovanie nemusí trafiť. Rovnako ako napr. zaokrúhľovanie halierov/centov pri mikrocenách za ks, spätne sa často nedopočítate k rovnakému číslu, preto máme halierové vyrovnania.
Časovú radu si vytvorte napr. natiahnutím vzorca:
=TIME(0;30*(ROW(A1)-1);0)
=ČAS(0;30*(ŘÁDEK(A1)-1);0)
Jednotka času je číslo 1 - jeden deň teda 24 hodín
hodinu získame 1/24=0,0416666666666667
a to zase na minúty 1/24/60=0,000694444444444444
a sekundy 1/24/60/60=0,0000115740740740741
No uznajte, že občas sa to zaokrúhľovanie nemusí trafiť. Rovnako ako napr. zaokrúhľovanie halierov/centov pri mikrocenách za ks, spätne sa často nedopočítate k rovnakému číslu, preto máme halierové vyrovnania.
Časovú radu si vytvorte napr. natiahnutím vzorca:
=TIME(0;30*(ROW(A1)-1);0)
=ČAS(0;30*(ŘÁDEK(A1)-1);0)
Příloha: 41848_spravny-cas.zip (22kB, staženo 27x)
citovat41848_spravny-cas.zip (22kB, staženo 27x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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
Vynásobit hodnoty kurzem - Power Query
Alfan • 24.4. 16:32
Relativní cesta - zdroje Power Query
Alfan • 24.4. 15:44
Relativní cesta - zdroje Power Query
elninoslov • 24.4. 14:26
Jak odstraním duplicitní údaje
Mirek8 • 24.4. 12:13
Jak odstraním duplicitní údaje
elninoslov • 24.4. 8:57
Vyhledej
PavDD • 24.4. 8:56
Vyhledej
elninoslov • 24.4. 8:47
RSS nejnovější články