MS Excel

ahoj, mam jeste jeden problem, kdyz zadavam cas pres formular, tak musim zadat u setin tecku, at se to spravne zobrazi, tak jak chci. u vysledku se skrytymi setinami. ale po obnove mi to tam automaticky hodi carku a pak se to chova spatne, i u vysledku mam videt carku a setiny. jde nejak nastavit, aby formular bral jako hlavni oddelovac destetinnych mist carku? a zobrazovalo se to tak, jako bych pouzil tecku? nechci to resit nastavenim excelu, tam to jde vypnout, ale kdyby to pouzival nekdo jiny, tak nevi, ze si to ma prepnout, ci pouzivat pri psani setin ve formulari tecku

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

eLCHa(27.2.2014 8:54)#018031

V tom formuláři máte textbox a ten pracuje s textem.
Takže abychom správně poradili, museli bychom vidět kód, kterým se ta hodnota načítá a kód, kterým se přenáší do listu.citovat

rinma(27.2.2014 9:09)#018032

ano s textem, jinak mi to tam hodilo misto casu dlouhe cislo..treba 5.01388888888889E-02 misto 1:12:12,0.
v excelu je zadan format bunek na h:mm:ss,0

kod toho formulare je takovy:
Option Explicit

Dim id As Integer, i As Integer, j As Integer, PosledniPlnyRadek As Long

Sub GetData()

PosledniPlnyRadek = Cells(Rows.Count, "C").End(xlUp).Row + 1

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
Next j
End If

i = i + 1

Loop
Else
ClearForm
End If

End Sub

Sub ClearForm()

For j = 1 To 9
UserForm1.Controls("TextBox" & j).Text = ""
Next j

End Sub

Sub EditAdd()

Dim emptyRow As Long, flag As Boolean, PosledniPlnyRadek As Long

emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

If UserForm1.TextBox1.Text <> "" Then

flag = False
i = 4
PosledniPlnyRadek = Cells(Rows.Count, "C").End(xlUp).Row + 1

Do While i < PosledniPlnyRadek

If Cells(i + 1, 2).Value = UserForm1.TextBox1.Text Then
flag = True
For j = 2 To 4
Cells(i + 1, j + 1).Value = UserForm1.Controls("TextBox" & j).Text
Cells(i + 1, 1).Value = UserForm1.TextBox5.Text
Cells(i + 1, 7).Value = UserForm1.TextBox6.Text
Cells(i + 1, 8).Value = UserForm1.TextBox7.Text
Cells(i + 1, 6).Value = UserForm1.TextBox8.Text

Next j
End If

i = i + 1

Loop

Windows(Range("L1").Text & ":2").Activate
ActiveSheet.PivotTables("absolutni").PivotCache.Refresh
Windows(Range("L1").Text & ":1").Activate
Else

End If

If flag = False Then

MsgBox "Startovní číslo neexistuje"

End If

End Subcitovat

eLCHa(27.2.2014 9:37)#018033

tak to nepomohlo - nepodařilo se mi nasimulovat tu tečku ;)))
pořád tam mám čárku

tak musim zadat u setin tecku, at se to spravne zobrazi, tak jak chci. u vysledku se skrytymi setinami
tomuhle nerozumím - tu tečku tam dáváte vy ručně nebo se tam dostane jak?citovat

rinma(27.2.2014 9:40)#018034

tu tecku tam zadavam pri vstupu z formulare, pri vlozit se to vlozi do tabulky, kde je jiz pak carka, ale ve formulari se mi pak uz objevi taky carka. a to kdyz dam znovu vlozit, tak mi to udela tu neplechu v tech vysledcich. nevim, jak aspon docilit toho, at ve formulari je vzdy tecka, i kdyz to bere data z tabulky, kde je carkacitovat

eLCHa(27.2.2014 9:47)#018035

Dobře - nebudu se zamotávat a zkusím nabídnout - vyzkoušejte Format, jestli to nepomůže

Me.TextBox1.Text = Format(ActiveCell.Value, "h:mm:ss.0")citovat

rinma(27.2.2014 10:08)#018036

dekuji, tak to bohate staci, nejak jsem to tam dal, upravil a funguje to, ve formulari to mam ve formatu s teckou.
jeste jednou dikcitovat

Téma: Tečka, čárka u desetinných míst

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje