Количество и общий размер?

[Rik3D]

НА литсе 1 в столбе А названия файлов с расширениями, а в толбе В размер файла в байтах. Как создать процедуру, чтобы он находил все файлы с расширением jpg (*.jpg), то есть выводил на лист в одну ячейку их общее количество в другую их общий объём?!
Помогите пожалуйста.

[RayShade]

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

for i = 1 to 65535
if lcase(activesheet.range("A"&cstr(i)).cells(1,1).value)="jpg" then
j=j+1
sz=sz+activesheet.range("B"&cstr(i)).cells(1,1).value
end if
next i
msgbox "Всего файлов " & j & " общим размером " & sz


[Igor_123]

for i = 1 to 65535

Это супер!!! Но каков вопрос, таков ответ

[uhm]

Блииииин, люди, почему вы не хотите пользоваться стандартными экселевскими функциями?! СУММЕСЛИ, СЧЁТЕСЛИ...

[Igor_123]

Потому, что не учат матчасть.
И не хотят учить