|
コード場所に記入しました部分を小数点以下二桁にする方法を知りたいですが
宜しくお願いします
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").Select
ActiveCell.FormulaR1C1 = "=RC[-6]-RC[-5]"
Range("H4").Select
ActiveCell.FormulaR1C1 = "=R[-1]C[-4]-R[-1]C[-3]"
Range("H5").Select
ActiveCell.FormulaR1C1 = "=R[-2]C/R[-1]C"←ここの計算結果を小数点以下二桁に四捨五入は
Range("H6").Select
ActiveCell.FormulaR1C1 = "=R[-1]C*R[-1]C[-2]"←ここの計算結果を小数点以下二桁に四捨五入は
Range("H3:H6").Select
Selection.Copy
Range("H7:H10").Select
ActiveSheet.Paste
Range("H11:H14").Select
ActiveSheet.Paste
Range("H15:H18").Select
ActiveSheet.Paste
Range("H19:H22").Select
ActiveSheet.Paste
Range("H23:H26").Select
ActiveSheet.Paste
Range("H27:H30").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=3
Range("H31:H34").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-9
End Sub
|
|