ThisWorkbooks.Sheets.Formula = 2个单元格和一个数字之间的加法

时间:2019-05-26 19:33:02

标签: excel vba

在Sheet1中,L13是其他2个单元格(I10-H85)之间的差。第一次,这种差异大于零(例如1470000.43)

在Sheet1中,H85是某些单元格的附加单元。这种细胞之一是H82。 H82 ='Sheet2'!C14 +'Sheet2!'G14。

现在,第二次,我必须在H82中添加差异(L13值),例如L13变为0。H82上的公式必须如下:'Sheet2'!C14 +'Sheet2!'G14 + 1470000.43 < / p>

单元格的格式为标准(带有两位小数)。 警告:我的MS-Excel是法语!!

为此,我尝试了:

  • 仅对ecart和每个加法项转换为Double(CDbl)或十进制(CDec);

  • 格式化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且不考虑小数点)

我真的不知道该如何解决。

0 个答案:

没有答案