MsgBox

#1
DannyBOHLEN

Posted 14 October 2011 - 21:43

Junior Member

Grup: Members
Posts: 56
Înscris: 16.11.2008

Știu că s-a mai discutat problema asta, însă nu reușesc absolut deloc să-i dau de capăt (în VBA): :cursing:

cum restricționez un textbox să-mi accepte doar seria de caractere de care am nevoie ??? :mellow:

am luat diferite coduri care permit introducerea doar a caracterelor numerice, însă eu am nevoie pe lângă astea și de altele (de ex: caracterul punct ”.”), cum procedez ?

am folosit următorul cod:

Private Sub MyTextBox_Change()
Static Obj As Object

    If Obj Is Nothing Then
        Set Obj = CreateObject("VBScript.RegExp")
        With Obj
            .Global = True
            .Pattern = "[^0-9]"
        End With
    End If

    MyTextBox.Value = Obj.Replace( MyTextBox.Value, vbNullString)
End Sub

Dacă nu se poate modifica codul de mai sus, îmi puteți sugera altul .... pleeease!   :worthy:

Merci!

Back to top

#2
dani.user

Posted 14 October 2011 - 22:40

Guru Member

Grup: Senior Members
Posts: 30,235
Înscris: 24.02.2007

Ce treaba are intrebarea cu titlul?

Back to top

#3
DannyBOHLEN

Posted 16 October 2011 - 17:59

Junior Member

Grup: Members
Posts: 56
Înscris: 16.11.2008

am o problema asemenatoare si cu msgbox, le-am confundat, scuze.

Back to top

#4
MarianG

Posted 22 October 2011 - 23:05

be that as it may

Grup: Moderators
Posts: 31,434
Înscris: 10.08.2005

faci filtru la introducere

Private Sub Text1_KeyPress(KeyAscii As Integer)
	Select Case KeyAscii
		Case 48 To 57, 8
	Case Else
		KeyAscii = 0
	End Select
End Sub

Edited by MarianG, 22 October 2011 - 23:08.

Back to top

#5
DannyBOHLEN

Posted 23 October 2011 - 01:53

Junior Member

Grup: Members
Posts: 56
Înscris: 16.11.2008

multumesc foarte mult
am rezolvat-o intre timp cu o alta functie!

Private Sub txtDataDocument_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = LimitTextInputData(KeyAscii)
End Sub

Function LimitTextInputData(source) As String
    Const Numbers$ = "0123456789."  'aici pot completa caracterele de care am nevoie
    If source <> 8 Then
        If InStr(Numbers, Chr(source)) = 0 Then
            LimitTextInputData = 0
            Exit Function
        End If
    End If
    LimitTextInputData = source
End Function

Back to top

Anunturi

Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

MsgBox

#1 DannyBOHLEN Posted 14 October 2011 - 21:43

#2 dani.user Posted 14 October 2011 - 22:40

#3 DannyBOHLEN Posted 16 October 2011 - 17:59

#4 MarianG Posted 22 October 2011 - 23:05

#5 DannyBOHLEN Posted 23 October 2011 - 01:53

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
DannyBOHLEN

Posted 14 October 2011 - 21:43

#2
dani.user

Posted 14 October 2011 - 22:40

#3
DannyBOHLEN

Posted 16 October 2011 - 17:59

#4
MarianG

Posted 22 October 2011 - 23:05

#5
DannyBOHLEN

Posted 23 October 2011 - 01:53