Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6 7
přepis čísla z tabulky do formulare (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

podmíněné formatování (28.2.2014 5:43)

zaskrtnul, nefunguje,

otevreni dokumentu do dvou oken (27.2.2014 10:19)

ahoj, tak jeste jednou a snad naposled. chci se zeptat, jestli jde nejak zadat, aby se mi urcity excel dokument vzdy otevrel minilizovany do dvou oken, i kdyz mam excel nastaven na maximalizaci. viz foto.

Tečka, čárka u desetinných míst (27.2.2014 10:08)

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

Tečka, čárka u desetinných míst (27.2.2014 9:40)

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 carka

Tečka, čárka u desetinných míst (27.2.2014 9:09)

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 Sub

Tečka, čárka u desetinných míst (27.2.2014 8:19)

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

podmíněné formatování (26.2.2014 12:14)

Ahoj, všiml jsem si, že když dám v tabulce odstranit nějaký řadek, změní se mi pořadí podmínek v podmíněném formatování a nefunguje to pak, jak má. nevíte, jak to udělat, ať se nemění pořadí?
dík za rady

jak dostat za H cislo posledniho radku (26.2.2014 11:59)

super, diky moc

jak dostat za H cislo posledniho radku (26.2.2014 11:42)

chci za H napsat cislo posledniho radku a tim urcit oblast tisku, ale nevim jak, haze mi to chybu. poradite?
dik

Sub tlačítko3_Kliknutí()

PosledniPlnyRadek = Cells(Rows.Count, "C").End(xlUp).Row ' Ve sloupci C
MsgBox "Poslední obsazený řádek má číslo: " & PosledniPlnyRadek

Sheets("Celkove").PageSetup.PrintArea = "$A$1:$H$ & PosledniPlnyRadek"
Sheets("A").PageSetup.PrintArea = "$A$1:$H$23"
Tisk.Show
End Sub


Strana:  « předchozí  1 2 3 4 5 6 7

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