Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Настроить быстрый ввод минут и секунд - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Настроить быстрый ввод минут и секунд (Макросы/Sub)
Настроить быстрый ввод минут и секунд
Otter Дата: Суббота, 18.04.2015, 01:13 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
Доброго времени суток.
Есть два столбца в один надо вводить быстро четыре цифры и получать мин и секунды.
Второй столбец из данных минут и секунд должен показывать минуты с десятыми долями минуты
Для первого столбца надо подправить макрос, а для второго сделать формулу.
К сообщению приложен файл: 4694729.jpg (46.8 Kb) · 2484925.rar (13.5 Kb)
 
Ответить
СообщениеДоброго времени суток.
Есть два столбца в один надо вводить быстро четыре цифры и получать мин и секунды.
Второй столбец из данных минут и секунд должен показывать минуты с десятыми долями минуты
Для первого столбца надо подправить макрос, а для второго сделать формулу.
Автор - Otter
Дата добавления - 18.04.2015 в 01:13
KSV Дата: Суббота, 18.04.2015, 03:10 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
см. вложенный файл.
[p.s.]без перевода в строку - чистая математика, так гораздо быстрее :)[/p.s.]
К сообщению приложен файл: 8024024.xlsm (19.4 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщениесм. вложенный файл.
[p.s.]без перевода в строку - чистая математика, так гораздо быстрее :)[/p.s.]
Автор - KSV
Дата добавления - 18.04.2015 в 03:10
Otter Дата: Суббота, 18.04.2015, 08:40 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
KSV, Просто класс. Спасибо. То что нужно и. быстро Вы сделали одного человека счастливым. hands

P.S. Посмотрел вашу работу и обалдел. Там целых три варианта с пояснениями.
Я в шоке и надолго.


Сообщение отредактировал Otter - Суббота, 18.04.2015, 08:54
 
Ответить
СообщениеKSV, Просто класс. Спасибо. То что нужно и. быстро Вы сделали одного человека счастливым. hands

P.S. Посмотрел вашу работу и обалдел. Там целых три варианта с пояснениями.
Я в шоке и надолго.
Автор - Otter
Дата добавления - 18.04.2015 в 08:40
Otter Дата: Суббота, 18.04.2015, 09:02 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
Вот появился еще вопрос. На страницу куда поместил макрос есть такой код
[vba]
Код

Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Cells.Count > 1 Then Exit Sub
          If Not Intersect(Target, Range("A2:A146")) Is Nothing Then
              With Target(1, 2)
                  .Value = Now
                  .EntireColumn.AutoFit
              End With
          End If
End Sub
[/vba]

Поэтому они наверно конфликтуют. что надо подправить например для первого варианта.

P.S. Да так и есть. Убрал полностью код, что выше и стало все работать. Как подружить два кода?


Сообщение отредактировал Otter - Суббота, 18.04.2015, 09:18
 
Ответить
СообщениеВот появился еще вопрос. На страницу куда поместил макрос есть такой код
[vba]
Код

Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Cells.Count > 1 Then Exit Sub
          If Not Intersect(Target, Range("A2:A146")) Is Nothing Then
              With Target(1, 2)
                  .Value = Now
                  .EntireColumn.AutoFit
              End With
          End If
End Sub
[/vba]

Поэтому они наверно конфликтуют. что надо подправить например для первого варианта.

P.S. Да так и есть. Убрал полностью код, что выше и стало все работать. Как подружить два кода?
Автор - Otter
Дата добавления - 18.04.2015 в 09:02
gling Дата: Суббота, 18.04.2015, 11:55 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
Цитата
Как подружить два кода?
Разместите один код под другим и удалите на стыке кодов эти строки [vba]
Код
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
[/vba]

ЯД-41001506838083

Сообщение отредактировал gling - Суббота, 18.04.2015, 11:56
 
Ответить
Сообщение
Цитата
Как подружить два кода?
Разместите один код под другим и удалите на стыке кодов эти строки [vba]
Код
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
[/vba]
Автор - gling
Дата добавления - 18.04.2015 в 11:55
Otter Дата: Суббота, 18.04.2015, 12:19 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
gling, Да, так все заработало. Спасибо. Вопрос полностью решен.
 
Ответить
Сообщениеgling, Да, так все заработало. Спасибо. Вопрос полностью решен.
Автор - Otter
Дата добавления - 18.04.2015 в 12:19
krosav4ig Дата: Суббота, 18.04.2015, 18:38 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант с проверкой на минуты и секунд, если больше 59, то число в время не переведется
для 6 цифр, с часами
[vba]
Код
v=Val(Target)
     Target = IIf(Target \ 100 Mod 100 < 60 And v Mod 100 < 60, _
     TimeSerial(v \ 10000, v \ 100 Mod 100, v Mod 100), v)
[/vba]
для 4 цифр, без часов
[vba]
Код
v=Val(Target)
     Target = IIf(v \ 100 < 60 And v Mod 100 < 60, _
     TimeSerial(0, v \ 100, v Mod 100), v)
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант с проверкой на минуты и секунд, если больше 59, то число в время не переведется
для 6 цифр, с часами
[vba]
Код
v=Val(Target)
     Target = IIf(Target \ 100 Mod 100 < 60 And v Mod 100 < 60, _
     TimeSerial(v \ 10000, v \ 100 Mod 100, v Mod 100), v)
[/vba]
для 4 цифр, без часов
[vba]
Код
v=Val(Target)
     Target = IIf(v \ 100 < 60 And v Mod 100 < 60, _
     TimeSerial(0, v \ 100, v Mod 100), v)
[/vba]
Автор - krosav4ig
Дата добавления - 18.04.2015 в 18:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Настроить быстрый ввод минут и секунд (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!