Автоматическая сортировка при вводе нового значения

[taxion]

Уважаемые программисты,
помогите с макросом или формулой, что бы при вводе нового значения в столбец "Время" эта строка, со всеми данными в столбцах расположенных слева, занимала место по ранжиру от меньшего к большему. Пробовал через формулу=РАНГ(G6;$G$2:$G$200;1) в столбце "место". Это самое место проставляется, но как еще "1место" поднять сразу на первую строчку?

[IgorGO]

в модуль листа2 добавьте такую процедуру

Sub RangTbl()
  Dim r As Long
  r = Cells(Rows.Count, 2).End(xlUp).Row
  With Me.Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("G3:G" & r), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SetRange Range("B2:H" & r): .Header = xlYes: .MatchCase = False: .Orientation = xlTopToBottom: .SortMethod = xlPinYin
    .Apply
  End With
End Sub

там же, в этот фрагмент кода

    If Not Intersect(Target, Range("G2:G100")) Is Nothing Then
        With Target
            vVal = Format(.Value, "000000")
            If IsNumeric(vVal) And Len(vVal) = 6 Then
                Application.EnableEvents = False
                .Value = Left(vVal, 2) & ":" & Mid(vVal, 3, 2) & ":" & Right(vVal, 2)
                .NumberFormat = "[h]:mm:ss"
            End If
        End With
     End If

добавьте 1 строку

    If Not Intersect(Target, Range("G2:G100")) Is Nothing Then
        With Target
            vVal = Format(.Value, "000000")
            If IsNumeric(vVal) And Len(vVal) = 6 Then
                Application.EnableEvents = False
                .Value = Left(vVal, 2) & ":" & Mid(vVal, 3, 2) & ":" & Right(vVal, 2)
                .NumberFormat = "[h]:mm:ss"
            End If
        End With
        RangTbl
     End If

[taxion]

Спасибо!
Все замечательно работает, единственное поправил в Вашем модуле

Sub RangTbl()
Dim r As Long
r = Cells(Rows.Count, 2).End(xlUp).Row
With Me.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("G3:G" & r), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("C2:G" & r): .Header = xlYes: .MatchCase = False: .Orientation = xlTopToBottom: .SortMethod = xlPinYin
.Apply
End With
End Sub

диапазон (В2:H) на (С2:G) т.к. сортировка цепляла и столбец "место", а столбец H нет смысла трогать там формула без относительно строки...
Еще раз спасибо.

[taxion]

ОНО конечно не в тему, но.....
Вы наверное видели в модуле процедуру для быстрого ввода времени, без нажатия клавиш разделителей. В фрагменте для столбца G все отлично, но вот в других вариантах формата я пытался в:
.Value = Left(vVal, 2) & ", " & Right(vVal, 3) & """"
вместо двоеточия поставить апостроф и кавычки, что бы представить в ячейках данные как минуты, секунды в привычном виде. Все реализуется великолепно, в плане визуализации, но видимо в этом случае, формат уже получается не "время" т.к. складывать эти данные не получается.... Хотя формат же вроде задается здесь:
.NumberFormat = "ss,ssss"
Может это не корректный пример, с секундами, но я и тут
.Value = Left(vVal, 2) & ":" & Right(vVal, 2)
.NumberFormat = "[h]:mm"
тоже пытался аналогично поменять двоеточие... Итог тот же например суммировать данные не получается, а очень нужно.

[IgorGO]

из рассказа я не понял в чем проблема, а вот во вложенном файле небольшая иллюстрация обмана в екселе. см. формулы в колонке М

видите 1+2 = 5
потому что в ячейке К2 на самом деле 3, а форматом показано 1, но в сумму-то приходит то, что лежит в ячейке, а не не то, что показано форматом

[taxion]

Все, понял... на примере
Можно ли сделать что бы представление было как в столбце "К", а данные "время". Для данного примера "ss,sss" т.е 14,333 сек. В других случаях: hh:mm'ss" = 22:12:33?