VBA日付または通貨として計算された値を貼り付けます。

Question

次のvbaコードを使用して別のセルから数値を計算していますが、結果がセルB4に転記されてもドル記号の通貨は表示されません。範囲を設定することはできません。これは、次に使用できる行に設定されているためです。私は日付として表示する必要がある同様の計算もありますが、数値として表示されます。

Sheet2.Range（ "B4"）= Sheet2.Range（ "B3"）* 12

Answer 1

Sub FormatDate() 

Selection.NumberFormat = "dd/mm/yyyy" 

End sub 

Answer 2

の書式設定のための乗算と、再び、次いでPasteSpecial一度コピーを使用してください。

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