|
minarai さん、こんにちわ。
>コード場所に記入しました部分を小数点以下二桁にする方法を知りたいですが
>宜しくお願いします
>
> B3 C3 D3 E3
>銘柄名 20日間の高値 当日の終値 20日間の高値 20日間の安値
>新日鉱HD 883 806 883 803
>
>F5 H3 H4 H5 H6
>100% 77 80 0.9625 96.25
>
>
表示上ではなくて、計算結果を四捨五入したいならこんな感じ。
Sub 株価オシロレータ自動計算()
'
' 株価オシロレータ自動計算 Macro
' マクロ記録日 : 2006/11/15 ユーザー名 :
'
Range("H3").Formula = "=B3-C3"
Range("H4").Formula = "=D3-E3"
Range("H5").Formula = "=ROUND(H3/H4,2)" 'ROUNDワークシート関数で四捨五入
Range("H6").Formula = "=ROUND(H5*F5,2)" 'ROUNDワークシート関数で四捨五入
'オートフィル
Range("H3:H6").AutoFill Destination:=Range("H3:H34"), Type:=xlFillDefault
End Sub
|
|