Добрый день!
подскажите, может кто сталкивался с проблемой: есть массив данных в одном столбце содержтатся данные в формате дата/время, мне нужен свод этих данных в котором я увижу разницу между макс. временем и минимальным временем в эту дату, пример : у меня есть лог звонков сотрудников за месяц, и мне нужно в сводной таблице получить время их работы как разницу времени последнего звонка и первого.
В сводной таблице можно вывести макимум и минимум по полю. но как их вычесть, вот в чем вопрос.
Спасибо!

Добрый день!
подскажите плз. в VBA не силен, а задачу необх. решить

Суть вопроса- необходимо сделать форму, которая подставлят в шаблоны таблиц данные из БД и приводит все это это в читаемый вид, в файле несолько листов, для заполнения каждого свой sql запрос.
Сейчас для каждого запроса я использую код :


Set cnnConnect = New ADODB.Connection
Set rstRecordset = New ADODB.Recordset
cnnConnect.Open "Provider=XXX.1;Password=XXX;Persist Security Info=True;User ID=XXX;Data Source=XXX"
rstRecordset.Open Source:=SQLStrALL, ActiveConnection:=cnnConnect, CursorType:=adOpenDynamic, LockType:=adLockReadOnly, Options:=adCmdText
With Sheets("Лист1").QueryTables.Add( _
       Connection:=rstRecordset, _
       Destination:=Sheets("Лист1").Range("A3"))
       .Name = "Запрос из базы данных"
       .FieldNames = False
       .RowNumbers = False
       .FillAdjacentFormulas = False
       .PreserveFormatting = False
       .RefreshOnFileOpen = False
       .BackgroundQuery = True
       .RefreshStyle = xlOverwriteCells
       .SavePassword = False
       .SaveData = True
       .AdjustColumnWidth = False
       .RefreshPeriod = 0
       
       .PreserveColumnInfo = True
       
       .Refresh BackgroundQuery:=False
End With

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

Прошу помощи,    
есть поименованный диапазон "СОЗДАНО" в нем содержатся даты, но в текстовом виде (01.06.2012), мне необходимо в автоматическом режиме преобразовать их в формат даты, чтобы далее с ним работать.  
 
пробовал в ручном режиме умножить весь столбец на 1, все ок, работает.  
если эти действия делать автоматичести то данные остаются в текстовом формате  
 
Sub преобраз_даты  
'  
'    
   Sheets("Лист 1").Select    
   Range("E21").Select        "здесь постоянно записана 1 для умножения на весь столбец"  
   Selection.Copy  
   Application.Goto Reference:="создано"  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _  
       SkipBlanks:=False, Transpose:=False  
   Application.CutCopyMode = False  
   Selection.NumberFormat = "m/d/yyyy"  
End Sub  
 
также пробовал использовать фунцию Cdate в цикле For each    in selection, тоже не помогает.  
 
Подскажите как решить эту задачу.  
Спасибо.

Здравствуйте!  
Помогите пожалуйста решить задачку:  
есть N-е количество файлов, они постоянно обнвляются, таблицы ведутся в одном формате.  
Периодически необходимо анализировать эти данные, как мне свести всё в одну таблицу (из разных файлов) чтобы  в ней в дальнейшем эти данные можно было сортировать по определенным параметрам (дата, результат....), и чтобы данные можно было обновлять.  
Спасибо!  
ниже упрощенный вариант файлов которые ведутся

Доброго времени суток!  
помогите решить задачку: есть столбец в ячейках которого содержится информация в виде дд.мм. чч.мм.сс  мне необходимо посчитать сколько ячеек нахадится в определенном интервале времени  
напр. сколько ячеек будет между 01.05  09:00:00 и 01.05 10:00:00  
Спасибо!