MS Excel

Téma: Textové funkce

Zaslal/a husita 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ěď >

elninoslov(19.7.2021 21:11)#051020

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

husita(19.7.2021 22:03)#051021

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: rar

51021_urazy.rar (366kB, staženo 15x)

citovat

elninoslov(20.7.2021 0:07)#051022

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

husita(20.7.2021 12:02)#051023

Zkusím, díky za raducitovat

husita(20.7.2021 12:58)#051024

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)

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.