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

MS Excel

Téma: přepis čísla z tabulky do formulare

Zaslal/a rinma 28.2.2014 7:55

jedna se o problem, ktery se resil tady, http://wall.cz/index.php?m=topic&id=18030
vsiml jsem si jeste jedne chyby

do formulare se mi neprepisuje cislo z tabulky, ale dava mi tam automaticky nulu, to kdyz dam znovu vlozit, tak mi to zmeni vysledek. chapu, proc to tam je, ale jak napsat "h:mm:ss.0", aby misto nuly byla zkratka setin, na tu jsem nikde nenarazil.

If UserForm1.TextBox1.Text <> "" Then
i = 4


Do While i < PosledniPlnyRadek

If Cells(i + 1, 2).Value = UserForm1.TextBox1.Text Then
For j = 2 To 4
UserForm1.Controls("TextBox" & j).Text = Cells(i + 1, j + 1).Text
UserForm1.TextBox5.Text = Cells(i + 1, 1).Text
UserForm1.TextBox6.Text = Cells(i + 1, 7).Text
UserForm1.TextBox7.Text = Cells(i + 1, 8).Text
UserForm1.TextBox8.Text = Cells(i + 1, 6).Text
UserForm1.TextBox9.Text = Cells(i + 1, 10).Text
UserForm1.TextBox2.Text = Format(Cells(i + 1, 3), "h:mm:ss.0")
Next j
End If

i = i + 1

Příloha: 18047_stec.jpg (62kB, staženo 28x)

Uzamčeno - nelze přidávat nové příspěvky.

---

eLCHa(28.2.2014 8:10)#018049

Asi jste kvůli tomu nemusel zakládat nové vlákno, ale pokračovat v původním.

Zase jenom nabídnu latu. Pořád totiž úplně nechápu, jak vám to vlastně funguje a z těch obrázků to asi nepochopím ;)).

TextBox2.Text = Replace(Format(Cells(i + 1, 3), "h:mm:ss.0"), ".0", vbNullString)

edit:
aha - tak musel, protože je to zamknuté ;))citovat

rinma(28.2.2014 8:27)#018050

neni proble vam excel zaslat.
jedina chyba je v tom, ze se mi pak neprepisuje cas z tabulky zpet do formulare. v tabulce je treba po prvnim vlozeni 1:12:12,2. kdyz znovu otevtu formular, zadam start. cislo 12, tak mi vyskoci vse, ale cas je napsan 1:12:12.0, ale ma byt 1:12:12.2. kdyz dam vlozit po najake zmene udaju, tak se prepise i ten spatny cascitovat

rinma(28.2.2014 9:53)#018052

jeste me napadlo neco takoveho, ale neznam tu funkci, na ze to tu bunku zobrazi jako text
UserForm1.TextBox2.Text = Replace(Format(Cells(i + 1, 3), HODNOTA.NA.Text), ",", ".")

kde se potom v zmeni carka na tecku

jen, jak definovat, ze to je text, bez toho mi to haze cislo 5.01423611111111E-02 misto 1:12:12,3
UserForm1.TextBox2.Text = Replace(Format(Cells(i + 1, 3)), ",", ".")citovat

rinma(28.2.2014 10:05)#018053

uff, tak jsem na to prisel
UserForm1.TextBox2.Text = Replace(Cells(i + 1, 3).Text, ",", ".")

diky za rady s replacecitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse