< návrat zpět

MS Excel


Téma: nalnění combobox časem rss

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?

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#041800
elninoslov
Tak ešte raz. Čože Vám to nejde ?
Příloha: zip41800_cb-rozsah-casu.zip (20kB, staženo 8x)
citovat
#041808
avatar
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
#041810
elninoslov
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 Sub
citovat
#041847
avatar
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: zip41847_sesit1.zip (19kB, staženo 2x)
citovat
#041848
elninoslov
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)
Příloha: zip41848_spravny-cas.zip (22kB, staženo 7x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Kopírovanie textu do neprázdnej bunky

elninoslov • 13.11. 1:22

WebBrowser

Palooo • 12.11. 14:00

WebBrowser

jardik • 11.11. 16:20

Kopírovanie textu do neprázdnej bunky

kabaka • 11.11. 16:07

Kopírovanie textu do neprázdnej bunky

elninoslov • 11.11. 15:56

Podmíněné formátování - formáty buněk

marjankaj • 11.11. 11:29

Kopírovanie textu do neprázdnej bunky

kabaka • 11.11. 10:24