Ten prvý problém asi bude treba ošetriť nejakým kódom.
Ten druhý (preklikávanie atď.): Pre formulár musíš nastaviť vlastnosť ShowModal na FALSEcitovat
Ten druhý (preklikávanie atď.): Pre formulár musíš nastaviť vlastnosť ShowModal na FALSEcitovat
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: Formát vstupního pole ve VBA
Jen tak z legrace a taky ukázka využití static proměnné
Private Sub TextBox1_Change()
Const SUFFIX As String = " Kč"
Static bCallingItself As Boolean
If Not bCallingItself Then
bCallingItself = True
With TextBox1
.Value = Format(Replace(.Value, SUFFIX, vbNullString) / 1, Format:="#,###") & SUFFIX
.SelStart = Len(.Value) - Len(SUFFIX)
End With 'TextBox1
End If
bCallingItself = False
End Sub
Při vkládání do buňky to pak zase nesmíte zapomenout dát pryč ;)citovat
MS Excel
Téma: Formát vstupního pole ve VBA 
Zaslal/a Jirka32 20.10.2013 17:37
Zdravím,
potřeboval bych poradit a to jak ve vstupním poli ve formuláři excelu (VBA) naformátovat číslo, aby mi oddělovalo např tisíce, nebo třeba přidalo %, pokud se odkazuji na pole v excelu, kde to tak je. Nejde mi to ve vlastnostech ovládacího prvku nastavit :-(
Plus ještě jeden dotaz, když mám otevřené okno formuláře (chci do něj do vstupních polí zapisovat), tak mi nejde překlikávat mezi jinými soubory v excelu, je na to nějaký fígl, jak tomu zamezit, spíše přeskakování povolit?
Moc děkuji za případné nápady a rady.
Jirka
Ahoj,
to asi nebude ono, zkusil jsem to, ale pak mi to hází chybu makra...přikldádám model, kde bych to potřeboval nastavit, jak formáty, tak to překlikávání mezi sešity excelu.
Díky moc
to asi nebude ono, zkusil jsem to, ale pak mi to hází chybu makra...přikldádám model, kde bych to potřeboval nastavit, jak formáty, tak to překlikávání mezi sešity excelu.
Díky moc
Příloha: 
15760_business-case_secured_v3.zip (35kB, staženo 16x)
citovat15760_business-case_secured_v3.zip (35kB, staženo 16x)Jirko: to asi nebude ono, zkusil jsem to, ale pak mi to hází chybu makra.
Ale je to ono, nastav ShowModal na FALSE u všetkých formulárov (máš ich 7) a uvidíš.
Tie formáty neviem, na to by som sa musel pozrieť a priznám sa, moc sa mi nechce, to asi nevyriešim za pár minút..citovat
Ale je to ono, nastav ShowModal na FALSE u všetkých formulárov (máš ich 7) a uvidíš.
Tie formáty neviem, na to by som sa musel pozrieť a priznám sa, moc sa mi nechce, to asi nevyriešim za pár minút..citovat
Dospěl jsem ke stejnému závěru jako AL a vyzkoušel.
Jen používám u formulářů zápis "Show 0" (Show nula)citovat
Jen používám u formulářů zápis "Show 0" (Show nula)citovat
K tým formátom v textboxoch - nejako takto, je to len návod, budeš si musieť dotvoriť:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1 = Format(CDbl(Me.TextBox1.Value), "#,##0.00")
Me.TextBox1.Font.Bold = True
End Subcitovat
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1 = Format(CDbl(Me.TextBox1.Value), "#,##0.00")
Me.TextBox1.Font.Bold = True
End Subcitovat
podobný způsob, který číslo formátuje ihned, je přehlednější při zápisu, ale netuším jak tam dostat měnu (Kč)
Příloha: 15774_format-textboxu.zip (13kB, staženo 16x)
citovat15774_format-textboxu.zip (13kB, staženo 16x)Opičák napsal/a:
...ale netuším jak tam dostat měnu (Kč)
Jen tak z legrace a taky ukázka využití static proměnné
Private Sub TextBox1_Change()
Const SUFFIX As String = " Kč"
Static bCallingItself As Boolean
If Not bCallingItself Then
bCallingItself = True
With TextBox1
.Value = Format(Replace(.Value, SUFFIX, vbNullString) / 1, Format:="#,###") & SUFFIX
.SelStart = Len(.Value) - Len(SUFFIX)
End With 'TextBox1
End If
bCallingItself = False
End Sub
Při vkládání do buňky to pak zase nesmíte zapomenout dát pryč ;)citovat
@ eLCHA
i já děkuji za ukázku, ale mám k tomu ještě dotaz.
příklad: omylem zapíšu číslo, třeba jedna, ale chci zapsat něco jiného, dám backspace a error. Já jsem to tam řešil "on error resume next". Je na to nějaký lepší LÉK ?
Jinak samozřejmě perfektní,.....no...jako vždy.
citovat
i já děkuji za ukázku, ale mám k tomu ještě dotaz.
příklad: omylem zapíšu číslo, třeba jedna, ale chci zapsat něco jiného, dám backspace a error. Já jsem to tam řešil "on error resume next". Je na to nějaký lepší LÉK ?
Jinak samozřejmě perfektní,.....no...jako vždy.
citovatAsi takhle - vy jste tam sice dal On Error, ale zbytečně. Váš kód žádnou chybu nevyvolá.
U mne tu chybu vyvolává to / 1
Replace(.Value, SUFFIX, vbNullString) / 1, protože jsem mu dovolil textový řetězec (tedy nejen po stisku BckSp) dělit 1.
On ten kód není dokonalý ani náhodou - stiskněte si např. klávesu Del ;)
V podstatě bychom mu měli zakázat, aby pracoval s jinou, než číselnou hodnotou a k tomu můžeme využít další Static proměnné ;)
Private Sub TextBox1_Change()
Const SUFFIX As String = " Kč"
Static bCallingItself As Boolean
Static sPreviousValue As String
Dim iNewValue As Long
If Not bCallingItself Then
bCallingItself = True
With TextBox1
If Not .Value = SUFFIX Then
On Error Resume Next
iNewValue = Replace(.Value, SUFFIX, vbNullString) / 1
Dim bError As Boolean
bError = Not Err.Number = 0
On Error GoTo 0
If Not bError Then
.Value = Format(iNewValue, Format:="#,##0") & SUFFIX
sPreviousValue = .Value
Else
.Value = sPreviousValue
End If
.SelStart = Len(.Value) - Len(SUFFIX)
Else
.Value = vbNullString
End If
End With 'TextBox1
End If
bCallingItself = False
End Sub
Teď už by to mělo být správně ;)citovat
U mne tu chybu vyvolává to / 1
Replace(.Value, SUFFIX, vbNullString) / 1, protože jsem mu dovolil textový řetězec (tedy nejen po stisku BckSp) dělit 1.
On ten kód není dokonalý ani náhodou - stiskněte si např. klávesu Del ;)
V podstatě bychom mu měli zakázat, aby pracoval s jinou, než číselnou hodnotou a k tomu můžeme využít další Static proměnné ;)
Private Sub TextBox1_Change()
Const SUFFIX As String = " Kč"
Static bCallingItself As Boolean
Static sPreviousValue As String
Dim iNewValue As Long
If Not bCallingItself Then
bCallingItself = True
With TextBox1
If Not .Value = SUFFIX Then
On Error Resume Next
iNewValue = Replace(.Value, SUFFIX, vbNullString) / 1
Dim bError As Boolean
bError = Not Err.Number = 0
On Error GoTo 0
If Not bError Then
.Value = Format(iNewValue, Format:="#,##0") & SUFFIX
sPreviousValue = .Value
Else
.Value = sPreviousValue
End If
.SelStart = Len(.Value) - Len(SUFFIX)
Else
.Value = vbNullString
End If
End With 'TextBox1
End If
bCallingItself = False
End Sub
Teď už by to mělo být správně ;)citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články