Поиск максимальных значений в разных книгах

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Поиск максимальных значений в разных книгах (Формулы/Formulas)

tookvk

Дата: Вторник, 10.06.2014, 10:07 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте. Существует 250 книг в одной папке,в каждой из которых 3 листа. Допустим, листы называются: зарплата, транспортные услуги, стоимость деталей. Задача следующая: найти максимальное и минимальное значение в ячейке С15 листа "стоимость деталей" каждой книги.

К сообщению приложен файл: 7964959.xls (27.0 Kb)

Ответить

Pelena

Дата: Вторник, 10.06.2014, 10:17 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19517

Репутация: 4632 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Вы действительно хотите это сделать формулами?
Или перенести тему в раздел ВОПРОСЫ ПО VBA?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

tookvk

Дата: Вторник, 10.06.2014, 10:32 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena.Извиняюсь если не туда занесла. Я думала можно формулой обойтись

Ответить

Hugo

Дата: Вторник, 10.06.2014, 11:09 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3854

Репутация: 814 ±

Замечаний: 0% ±

365

Можно скриптом посмотреть:
[vba]

Код

Dim FSO, TheFolder, TheFiles, AFile
Dim x, mn, mx
mn = empty
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSO.GetFolder("D:\TMP\tookvk\")    'Каталог
Set TheFiles = TheFolder.Files
For Each AFile In TheFiles
      If UCase(FSO.GetExtensionName(AFile.Path)) = "XLS" Then
          With GetObject(AFile.Path)
              x = .Sheets("стоимость деталей").Range("E15")
              If mn = empty Then mn = x
              If mn > x Then mn = x
              If mx < x Then mx = x
          End With
      End If
Next

MsgBox "MIN=" & mn
MsgBox "MAX=" & mx

[/vba]
сохраняете этот текст как *.vbs, выполняете даблкликом. Путь к каталогу конечно сперва пропишите свой.
Но довольно долго будет незаметно работать - неинформативно.
Если код использовать как макрос - то можно добавить индикацию процесса в статусбаре.

Переносим тему в VBA? Формулами будет очень тяжело, если вообще будет...

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Поиск максимальных значений в разных книгах (Формулы/Formulas)

Страница 1 из 1
1