[已解决]如何用VB在单元格内显示公式

coolxp2003

如何用VB在单元格内显示公式。

我将公式写入VB中，但是执行VB后，公式却不能正常使用。要不就只是当文字显示，不进行运算，要不就直接报错。

请各位帮忙

公式如下：

=NOW()+(参数!B4-SUM('T01'!H:H))*参数!B2/60/60/24

我需要将公式写入VB，执行后自动将这个公式写入单元格（例如A1），并且写入后应可以进行实际计算。

 

 

[em06][em06]

最佳答案

月排行榜 / 总排行榜

雨狐

2009-11-28 23:17

VBA写公式基本语法如下：结合你的公式改下蓝色部份

Range("A1").Formula = "=$A$4+$A$10"

跳转到最佳答案楼层

wsfsy

这叫什么代码？我比你还晕[em06]，你这样发上来谁也不明白，最好传上文件，注明要实现什么功能，别人才好帮你。

雨狐

VBA写公式基本语法如下：结合你的公式改下蓝色部份

Range("A1").Formula = "=$A$4+$A$10"

coolxp2003

大哥大姐，我的意思很清楚呀，[em04]（我自己认为）

其实很简单的，我“=NOW()+(参数!B4-SUM('!H:H))*B2/60/60/24”这一句就是我要写到单元格中的公式，不过我想用VB来实现自动在单元格中写入这个公式或者这个公式运行后的计算结果（例如A1中），但是我自己写的VB都达不到这个效果，请各位帮忙！

coolxp2003

谢谢老师！

如果只在A1中显示这个公式的计算结果，如何实现？

 

[em02][em02]

雨狐

QUOTE:

以下是引用coolxp2003在2009-11-28 23:30:00的发言：

谢谢老师！

如果只在A1中显示这个公式的计算结果，如何实现？

 

[em02][em02]

没有实例不好乱说，但有一个变通的方法，如果引用工作表函数是有效的可以这样：

Sub a()
Range("a1").Formula = "=NOW()+(参数!B4-SUM(参数!H:H))*B2/60/60/24"
[a1] = [a1].Value
End Sub

wsfsy

哈哈这个意思，可以这样：[a1] = Application.Evaluate("=NOW()+(参数!B4-SUM('T01'!H:H))*参数!B2/60/60/24")[em01]