Otter
Дата: Суббота, 18.04.2015, 01:13 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация:
0
±
Замечаний:
0% ±
Excel 2019, Word 2019
Доброго времени суток. Есть два столбца в один надо вводить быстро четыре цифры и получать мин и секунды. Второй столбец из данных минут и секунд должен показывать минуты с десятыми долями минуты Для первого столбца надо подправить макрос, а для второго сделать формулу.
Доброго времени суток. Есть два столбца в один надо вводить быстро четыре цифры и получать мин и секунды. Второй столбец из данных минут и секунд должен показывать минуты с десятыми долями минуты Для первого столбца надо подправить макрос, а для второго сделать формулу. Otter
Ответить
Сообщение Доброго времени суток. Есть два столбца в один надо вводить быстро четыре цифры и получать мин и секунды. Второй столбец из данных минут и секунд должен показывать минуты с десятыми долями минуты Для первого столбца надо подправить макрос, а для второго сделать формулу. Автор - Otter Дата добавления - 18.04.2015 в 01:13
KSV
Дата: Суббота, 18.04.2015, 03:10 |
Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация:
255
±
Замечаний:
0% ±
Excel 2013
см. вложенный файл. [p.s.]без перевода в строку - чистая математика, так гораздо быстрее :)[/p.s.]
см. вложенный файл. [p.s.]без перевода в строку - чистая математика, так гораздо быстрее :)[/p.s.] KSV
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 , Просто класс. Спасибо. То что нужно и. быстро Вы сделали одного человека счастливым. P.S. Посмотрел вашу работу и обалдел. Там целых три варианта с пояснениями. Я в шоке и надолго.
KSV , Просто класс. Спасибо. То что нужно и. быстро Вы сделали одного человека счастливым. P.S. Посмотрел вашу работу и обалдел. Там целых три варианта с пояснениями. Я в шоке и надолго.Otter
Сообщение отредактировал Otter - Суббота, 18.04.2015, 08:54
Ответить
Сообщение KSV , Просто класс. Спасибо. То что нужно и. быстро Вы сделали одного человека счастливым. 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. Да так и есть. Убрал полностью код, что выше и стало все работать. Как подружить два кода?
Вот появился еще вопрос. На страницу куда поместил макрос есть такой код [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
Сообщение отредактировал 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]
Цитата
Как подружить два кода?
Разместите один код под другим и удалите на стыке кодов эти строки [vba]Код
End Sub Private Sub Worksheet_Change(ByVal Target As Range)
[/vba]gling
ЯД-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
Ответить
Сообщение 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]
еще вариант с проверкой на минуты и секунд, если больше 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
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