VBA粘贴计算值作为date或货币

我正在使用以下vba代码来计算另一个单元格中的数字，但是当结果发布在单元格B4中时，它不显示美元符号货币。 我无法设置范围，因为这是设置在下一个可用的行。 我也有一个类似的计算，我需要显示一个date，但它显示为一个数值。

Sheet2.Range（“B4”）= Sheet2.Range（“B3”）* 12

Answer 1

 Sub FormatDate() Selection.NumberFormat = "dd/mm/yyyy" End sub 

Answer 2

使用复制然后粘贴一次用于乘法，再用于格式化。

 With Sheet2 .Range("B4") = 12 .Range("B3").Copy .Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply .Range("B4").PasteSpecial Paste:=xlPasteFormats End With