Столкнулся с такой задачей. В ячейки вводятся числа, типа: 1235. И далее они должны преобразоваться в формат времени: 12:45. Так сказать для ускоренного ввода.
Попробовал использовать функцию Mid. Если ввести числа и нажать на кнопку, то макрос работает. А вот через worksheet_change не хочет. Да и по нажатию энтера тоже все ломается. Ячейка автоматически переводится в формат времени и показывает 0:00. Подскажите, что убрать, что добавить или другие функции использовать?
Попробовал использовать функцию 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 |