Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak zmusić do wpisania liczby w TextBoxie na UserForms w Excelu?
anonim




Typ: Nie zarejestrowany
Jak zmusić do wpisania liczby w TextBoxie na UserForms w Excelu?

Chciałbym za pomocą TextBoxa wprowadzać do arkusza w excelu godziny. Jak ustawić (gdzie???) TextBoxa aby użytkownik nie mógł wpisywać liter a jedynie liczby.
Chyba że istnieje lepszy pomysł na szybkie i łatwe wprowadzanie godzin za pomocą TextBoxa.
Dziękuję.
Przemek

27-06-2004 10:04
  
Piotr T




Typ: neutral
Postów: 176
Zarejestrowany: May 2004

Dim A as String
If IsNumeric(Textbox1.value)= True then
cells(1,1)=textbox1.value
else
A=MsgBox( "Wpisałeś niewłaściwą wartość w Textbox1",vbCritical,"" )
Textbox1=""
Textbox1.SetFocus
end if


_____________________________________________
Visual Basic.NET - Mercedes dla programistów

27-06-2004 10:46
Pokaż profil Piotr T  Wyślij email do Piotr T   Odwiedź stronę Piotr T  
anonim




Typ: Nie zarejestrowany

Dzięki Piotr. T
A czy można jakoś zmusić żeby użytkownik wpisał godzinę (gg:mm)

27-06-2004 12:56
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
Można...

Private Sub TextGodziny_Change()

On Error Resume Next

Select Case Len(Me.TextGodziny)
    Case 0
        Exit Sub
    Case 1
        If CInt(Mid(Me.TextGodziny, 1, 1)) > 2 Then Me.TextGodziny = ""
    Case 2
        If CInt(Mid(Me.TextGodziny, 1, 2)) > 24 Then
            Me.TextGodziny = Left(Me.TextGodziny, 1)
        Else
            Me.TextGodziny = Me.TextGodziny & ":"
        End If
    Case 3 'nie rób nic
    Case 4
        If CInt(Mid(Me.TextGodziny, 4, 1)) > 5 Then Me.TextGodziny = Left(Me.TextGodziny, 3)
    Case 5
        If CInt(Mid(Me.TextGodziny, 4, 2)) > 59 Then Me.TextGodziny = Left(Me.TextGodziny, 4)
    Case Is > 5
        Me.TextGodziny = Left(Me.TextGodziny, 5)
End Select
End Sub

Private Sub TextGodziny_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case 44, 48 To 57
        'OK - przecinek i liczby 0-9
    Case Else
        KeyAscii = 0
End Select
End Sub

Private Sub TextLiczby_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case 44, 48 To 57
        'OK - przecinek i liczby 0-9
    Case Else
        KeyAscii = 0
End Select
End Sub

[Post edytowany dnia 27-06-2004 21:10 przez losmac]


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

27-06-2004 20:45
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1