чч:мм:сс

[OlegkA]

есть столбец с такими значениями надо надо ссумировать общее
значение всех ячеек. т.е если идет 00:01:10 и 00:02:00
то должно получиться 00:03:10.
Вроде так все элементарно но у меня нифига неполучается,
прошу помочь.

[uhm]

Тут без VB проще. Используй экселевскую функцию СУММ. Все должно работать правильно.

[OlegkA]

да в текст. формате идут ячейки я вроде через функцию элементарную делаю которая на панели автосумма,так вроде она называется
но все равно выводит 00:00:00
как быть?

[alibek]

Сотри значение, впиши формат времени (чч:мм:сс) и введи значения заново.
Другой вариант - в новом листе впиши 1, скопируй в буфер, сделай специальную вставку на своем листе, выбери "Умножить".

[uhm]

О, со специальной вставкой - это классный способ, не знал о таком!
Еще можно поставить столбик рядом, сделать ему нужный формат и написать формулу "=A1+0" (если в столбике A стоят числа в текстовом формате).

[OlegkA]

вообщем у меня 25 листов, в каждом листе 6000
строк в столбце с такими значения мне надо их подсчитать с койкаким условием но это отдельная тема, мне пока нужно узнать как с таким форматом бороться

[OlegkA]

если они не содержат формул (ссылок), то решить Вашу проблему можно.

нет не содержат.
как будем решать?

[uhm]

Ага, а еще два решения предложили alibek и одно - я. Выбирай - не хочу

Наверное, проще всего сделать с умножением на единицу: делаешь ячейку с единичкой, выделяешь ее и запускаешь примерно такой макрос:

Код: Выделить всё

For each i in Sheets
    i.Range(нужный_Range).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
Next i


Вместо "нужный_Range" подставляешь место, где нужно заменить текст на числа. Если этот Range разный на каждом листе, придется еще слегка помучиться, чтобы сделать PasteSpecial именно на нем.

[SergeySV2]

Мне обычно проще написать такой код:

Код: Выделить всё

Public Sub Aa3b()

  Dim r As Range
  Dim d As Date
  Dim lCount As Long, i As Long
 
  ' отключаем обновление экрана
  Application.DisplayAlerts = False
 
  lCount = Selection.Cells.Count
  i = 0
   
  For Each r In Selection
    ' обновляем информацию в StatusBar'е
    Application.StatusBar = "Преобразовано - " & Round((i * 100) / lCount, 0)
   
    If Len(r.Value) > 0 Then
        d = Format(r.Value, "hh:mm:ss")
        If d > 0 Then
          r.NumberFormat = "h:mm:ss;@"
          r.Value = d
        End If
    End If
       
    i = i + 1
  Next r
 
  Application.DisplayAlerts = True
  Application.StatusBar = False
 
End Sub

Потом выдели нужные ячейки и запусти этот макрос.
Если много ячеек на разных листов, можешь написать свой макрос, который будет сам выделять ячейки на разных листах и запускать потом Macros1


[OlegkA]

SergeySV2,Пасип