по вводу времени формат в СЕГОДНЯ - формат или формула?

Автор edmar07, 20.03.2013, 21:58

« назад - далее »

edmar07


А разве я это не сделал?
[/quote]
с точкой работает! с запятой - в минуты переводит, например ввожу 12,00 переводит в 00:12

_Boroda_

Если Вы хотите вводить текст с произвольным разделителем, то непременным условием для этого является предварительная установка в столбцах А и В формата "Текстовый". Иначе запятая уберет 2 символа, слеш вообще поставит все нули, ну и тп
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

edmar07

Цитата: _Boroda_ от 27.03.2013, 15:10
Если Вы хотите вводить текст с произвольным разделителем, то непременным условием для этого является предварительная установка в столбцах А и В формата "Текстовый". Иначе запятая уберет 2 символа, слеш вообще поставит все нули, ну и тп

т.е. мне проще внести команду изменения форматов столбцов в макрос и он будет перед изменением разделителя менять формат или лучше отдельный вставить?

edmar07

Цитата: _Boroda_ от 27.03.2013, 15:10
Если Вы хотите вводить текст с произвольным разделителем, то непременным условием для этого является предварительная установка в столбцах А и В формата "Текстовый". Иначе запятая уберет 2 символа, слеш вообще поставит все нули, ну и тп

Помоги еще плиз!!!
тут нуно теперь переделать чтоб меняло не по вводу, а при выполнении по диапазонам (ну например C2:C100, L2:L100)
таблица будет заполнятся не поточно, а путем вставки целой таблицы!


Private Sub Worksheet_Change(ByVal Target As Range)
Dim vVal
Dim StrVal As String
Dim dDate As Date
On Error Resume Next
   
     
Application.EnableEvents = False
If Target.Count > 1 Then Exit Sub
If [A1] = 1111 Then Exit Sub
Application.ScreenUpdating = 0
If Target < 1 And Target > 0 Then
    If Target.Column > 1 Then
        If Target.Offset(, -1) > Target + Date Then s_ = 1
    End If
    Target = Target + Date + s_
    Target.NumberFormat = "h:mm;@"
End If
Application.ScreenUpdating = 1
Application.EnableEvents = True
End Sub