< návrat zpět

MS Excel


Téma: Textové funkce rss

Zaslal/a 19.7.2021 20:36

Ahoj všichni, chtěl bych požádat o pomoc s jedním makrem.
Přešel jsem na excel 2019 a při spuštění excelovského sešitu, který byl vytvořen v některé z nižších verzí mi to při aktivaci formuláře hlásí u funkce Right a mid chybu, že nebyla nalezena v knihovně nebo projektu.
níže je makro, které hlásí chybu a nemůžu přijít na to, co je špatně. Může mi někdo poradit?
Děkuji za případnou radu či pomoc

Private Sub datum_Change()
Dim Char As String
Dim x As Date
Dim y As Date
Char = Right(datum.Text, 1)
Select Case Len(datum.Text)
Case 1 To 2, 4 To 5, 7 To 10
If Char Like "#" Then
If Len(datum) = 10 Then
On Error Resume Next
x = DateValue(datum.Text)
y = DateSerial(Right(datum, 4), Mid(datum, 4, 2), Left(datum, 2))
If Err = 0 And x = y Then
On Error GoTo 0
Exit Sub
Else
Err.Clear
On Error GoTo 0
datum.SelStart = 0
datum.SelLength = Len(datum.Text)
MsgBox "Please enter a valid date in the form dd/mm/yyyy", vbCritical + vbOKOnly, "Error"
Exit Sub
End If
Else
Exit Sub
End If
End If
Case 3, 6
If Char Like "/" Then Exit Sub
End Select
Beep
On Error Resume Next
datum.Text = Left(datum.Text, Len(datum.Text) - 1)
datum.SelStart = Len(datum.Text)

End Sub

Zaslat odpověď >

#051020
elninoslov
O čo má tomu textboxu ísť? O to aby tam bol zadaný iba dátum? Aby nedovolilo napísať iné znaky ako 0-9 a / ?citovat
#051021
avatar
Ahoj jedná se o evidenci úrazů. Je to inicializační makro ve formuláři. Připojuji i soubor, aby bylo patrné kde to hází chybu.
Děkuji za pomoc
Příloha: rar51021_urazy.rar (366kB, staženo 15x)
citovat
#051022
elninoslov
Mne to na E2019 funguje. Skúste to, čo sa spomína tu. Pozrieť chýbajúce referencie, skontrolovať správne deklarácie všetkých premenných, zmeniť to Right na VBA.Right. Je to iba pár vecí, Chrome Vám to preloží.citovat
#051023
avatar
Zkusím, díky za raducitovat
#051024
avatar
Ahoj, příkaz VBA.Right, zafungoval bezvadně, přečelt jsem si i článek, kde tento problém řešili.
Mockrát děkuji za raducitovat

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