Страницы: 1
RSS
Брать в textbox только первые 2 цифры до символа ":"
 
Как программно показать в textbox только первые 2 цифры до символа ":" из данных в определенной ячейке?
Например: 111:00 и тогда надо чтобы в textbox выходил 11

Заранее благодарна!
 
А если в ячейке до ":" нет никаких цифр то выходило сообщение "Нет цифр"
Например     :45
Это выполнимо или надо это делать в excel?
 
А если одна? (4:00)
...и если нет двоеточия?
Изменено: Михаил С. - 27.02.2015 19:16:13
 
попробутйе так

Код
Private Sub UserForm_initialize()
Select Case InStr(Range("A1").Text, ":")
    Case 0
        textbox1 = "нет """":"""""""
    Case 1
        textbox1 = "нет цифр"
    Case 2
        textbox1 = Left(Range("A1").Text, 1)
    Case Is > 2
        textbox1 = Left(Range("A1").Text, 2)
End Select
End Sub
 
Замечательно Михаил! Все работает как надо! Спасибо огромное!
Страницы: 1
Наверх