Страницы: 1
RSS
[ Закрыто ] if/else, msgbox и Round
 
Коллеги, привет.

Суть макроса проста: Макрос сверяет две ячейки из двух файлов, а затем выводит сообщение в зависимости от результата.
Value ячеек округляется до 1 знака после запятой. Почему-то все время выходит сообщение о том, что результат не сходится. Код повторяется несколько раз. Прошу помочь

Apllicantion.Workbook("Daily.xlsm").Worksheet("Daily Letter").Cell("C8").Value = a
Apllicantion.Workbook("Отчет.xlsx").Worksheet("NewFormat").Cell("AJ26").Value = b
Result = ""
c = Round(a, 1)
d = Round(b, 1)

If c = d Then

   Result = "Net sales сошлись"

       Else
       
           Result = "Net sales не сошлись"
               
               End If
       
                   MsgBox (Result)
 
1. Название темы ни о чем, тема кандидат на удаление или закрытие. Предложите название, отвечающее правилам форума, модераторы приду и изменят.
2. Ищите причину в a, b, c и d. Что-то из них явно расходится, несмотря на Ваше желание обратного. Возможно, там где-то текст, а не число.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Дополнения к замечаниям:
- оформление кода в сообщениях - кнопка <...>
- незачем столько пустых строк
Страницы: 1
Наверх