Макрос для поиска ошибок в почтовом сборе

Пользователь

Сообщений: 4 Регистрация: 09.11.2019

09.11.2019 14:24:59

Программа формирует файл, в котором иногда "вылазиют" ошибки по почтовому сбору из-за округления. Почта их не принимает. В файле несколько листов. Необходимо смотреть только листы "УЗЕЛ 1_list****". Правильное округление на листе "Расчет".

Может кто-нибудь подскажет как макросом найти ошибочный расчет почтового сбора? :cry:

Прикрепленные файлы

cbor.xlsx (161.39 КБ)

БМВ

Модератор

Сообщений: 23295 Регистрация: 28.12.2016

Excel 2013, 2016

09.11.2019 15:03:31

Код

Sub check()
For Each sh In Sheets
    If sh.Name Like "УЗЕЛ 1_list*" Then
     For Each cell In Range(Range("c12"), Range("c12").End(xlDown).Offset(-1))
        If cell.Offset(, 1) <> Round(Round(cell * 1.7 / 100, 3) + Round(Round(cell * 1.7 / 100, 3) * 20 / 100, 2), 2) Then
        ' Тут что-то помечаем или  заменяем , а можно и просто заменить все, включая итог.
        End If
    Next
    End If
Next
End Sub

Изменено: БМВ - 09.11.2019 15:14:05

По вопросам из тем форума, личку не читаю.

kipol Пользователь Сообщений: 4 Регистрация: 09.11.2019	#3 09.11.2019 15:16:20 Спасибо, попробую

kipol

Пользователь

Сообщений: 4 Регистрация: 09.11.2019

11.11.2019 15:53:44

Макрос со снятием пароля для файла получился. А вот на строке

' Тут что-то помечаем или заменяем , а можно и просто заменить все, включая итог. застряла.

Как в колонку Е поставить сумму, в случае отличия рассчитанной суммы от колонки D???

БМВ

Модератор

Сообщений: 23295 Регистрация: 28.12.2016

Excel 2013, 2016

12.11.2019 12:29:24

Проще все пересчитать заново.

Код

Sub check()
For Each sh In Sheets
    If sh.Name Like "ÓÇÅË 1_list*" Then
    For Each cell In Range(Range("c12"), Range("c12").End(xlDown).Offset(-1))
        cell.Offset(, 1) = Round(Round(cell * 1.7 / 100, 3) + Round(Round(cell * 1.7 / 100, 3) * 20 / 100, 2), 2)
        s = s + cell.Offset(, 1)
    Next
    Range("c12").End(xlDown).Offset(, 1) = s
    End If
Next
End Sub

По вопросам из тем форума, личку не читаю.

kipol Пользователь Сообщений: 4 Регистрация: 09.11.2019	#6 12.11.2019 16:51:58 Огромное спасибо! Я в этом полный чайник. Но задачу надо выполнить. Теперь вроде понятно. До ума доведу !