ThisWorkbooks.Sheets.Formula = сложение между 2 ячейками и числом - PullRequest
1 голос
/ 26 мая 2019

На Листе 1 L13 - это разница между 2 другими ячейками (I10 - H85). В первый раз эта разница больше нуля (например, 1470000,43)

В Sheet1 H85 является дополнительным элементом некоторых ячеек. Одна из этих ячеек - H82. H82 = «Лист2»! C14 + «Лист2!» G14.

Теперь, во второй раз, я должен добавить разницу (значение L13) в H82, например, L13 становится 0. Формула на H82 должна выглядеть так: 'Sheet2'! C14 + 'Sheet2!' G14 + 1470000.43

Формат ячеек Стандартный (с 2 десятичными знаками). Внимание: мой MS-Excel - французский !!!

Для этого я попробовал:

  • приведение к Double (CDbl) или десятичному (CDec) только для ecart и для каждого срока добавления;

  • для форматирования ecart как ecart = Format(ecart, "#,##")

, но не работает: ошибка 1004: Ошибка определения приложения или приложения.

Для этого только то, что работает, это:

Dim ecart As Double
ecart = Sheets("Sheet1").Range("L13").Value
Sheets("Sheet1").Range("H82").Formula = _
                    "='Sheet2'!C14 + 'Sheet2!G14 + " & int(ecart)

но, L13 становится 0,43 (потому что ecart приводится к int и десятичные дроби не учитываются)

Я действительно не знаю, как это исправить.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...