Суммирование данных ячеек с игнорированием

Старая форма входа

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

Суммирование данных ячеек с игнорированием (Макросы/Sub)

cmivadwot

Дата: Вторник, 27.06.2023, 13:58 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 531

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

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

365

День добрый.
Имеется макрос суммирующий данные из ячеек нескольких файлов в один общий. Что необходимо прописать для игнорирования присутствующих в суммируемых ячейках прочерков - "-". или иным образом решить возникающие ошибки суммирования ячеек с присутствующими в них "-"
[vba]

Код

Sub сумма()
Dim r As Range, cel As Range, wb As Workbook, awb As Workbook, s$, i&
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(ThisWorkbook.Path & "\files")
s = "Обработано:"
Set r = Range("B10:AG40,B42:AG47,B48:B50") 'задание диапазона суммирования
Set awb = ThisWorkbook
r.ClearContents
'проход по всем файлам в папке "\files"
For Each objFile In objFolder.Files
    Set wb = Workbooks.Open(objFile)
    i = i + 1
    s = s & vbCr & i & "." & objFile
    'проход по ячейкам
        For Each cel In r
        cel.Value = cel.Value + wb.Sheets("Табличная форма").Range(cel.Address)
        Next
    wb.Close False
Next
MsgBox s
End Sub

[/vba]