Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Помогите преобразовать числа в часы и минуты
 
Столкнулся с такой задачей. В ячейки вводятся числа, типа: 1235. И далее они должны преобразоваться в формат времени: 12:45. Так сказать для ускоренного ввода.
Попробовал использовать функцию Mid. Если ввести числа и нажать на кнопку, то макрос работает. А вот через worksheet_change не хочет. Да и по нажатию энтера тоже все ломается. Ячейка автоматически переводится в формат времени и показывает 0:00. Подскажите, что убрать, что добавить или другие функции использовать?
Код
Private Sub CommandButton1_Click()

Dim Chislo, Chasy, Minuty

If Not Cells(1, 1) = "" Then

Chislo = Cells(1, 1)
Chasy = Mid(Chislo, 1, 2)
Minuty = Mid(Chislo, 3, 2)
Cells(1, 1) = ""
Cells(1, 1) = Chasy & ":" & Minuty
Else
Cells(1, 1) = ""
End If

End Sub
 
Тут посмотрите
 
Здорово. Буду разбираться.  
Страницы: 1
Читают тему (гостей: 1)