Добрый вечер форумчане! Сегодня обкатал программу, всё прошло хорошо! При вводе временных показателей много времени тратится на вставку разделителя :. Можно написать макрос,чтобы вводить только цифры без разделителя? Мне как то krosav4ig делал такой макрос, но он был для мм;сс;мс. Большое спасибо!!!
Добрый вечер форумчане! Сегодня обкатал программу, всё прошло хорошо! При вводе временных показателей много времени тратится на вставку разделителя :. Можно написать макрос,чтобы вводить только цифры без разделителя? Мне как то krosav4ig делал такой макрос, но он был для мм;сс;мс. Большое спасибо!!! Valeron
Здравствуйте Можно как-то так В модуль ЭтаКнига [vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) With Target If .NumberFormat = "[h]:mm:ss" And Int(.Value) = .Value Then Application.EnableEvents = False .Formula = Format(.Formula, "00:00:00") .NumberFormat = "[h]:mm:ss" Application.EnableEvents = True End If End With End Sub
[/vba]
Здравствуйте Можно как-то так В модуль ЭтаКнига [vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) With Target If .NumberFormat = "[h]:mm:ss" And Int(.Value) = .Value Then Application.EnableEvents = False .Formula = Format(.Formula, "00:00:00") .NumberFormat = "[h]:mm:ss" Application.EnableEvents = True End If End With End Sub
Приветствую вас krosav4ig, !!! Вы в очередной раз мне здорово помогли Скажите где вы учились программированию? Да, если изменить формат на ч:мм:сс без [ч], то и в коде [h]:mm:ss" без квадратных скобок? Ещё раз огромное спасибо за уделённое мне время и помощь российскому образованию!!!
Приветствую вас krosav4ig, !!! Вы в очередной раз мне здорово помогли Скажите где вы учились программированию? Да, если изменить формат на ч:мм:сс без [ч], то и в коде [h]:mm:ss" без квадратных скобок? Ещё раз огромное спасибо за уделённое мне время и помощь российскому образованию!!!Valeron
Приветствую krosav4ig, помогите пожалуйста. Я в макросе изменил формулу времени на 00:00-00:00 и мне нужно чтобы при вводе например 1:20-1:30 не вводить нули спереди. Какой код нужно дописать чтобы не вылезала ошибка "Run-time error '13' Type mismatch"?
Приветствую krosav4ig, помогите пожалуйста. Я в макросе изменил формулу времени на 00:00-00:00 и мне нужно чтобы при вводе например 1:20-1:30 не вводить нули спереди. Какой код нужно дописать чтобы не вылезала ошибка "Run-time error '13' Type mismatch"?Aleksey1
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
