|
▼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
>
> 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("H3") = Range("C3") - Range("D3")
Range("H4") = Range("D3") - Range("E3")
Range("H5") = Range("H3") / Range("H4")
Range("H5").NumberFormatLocal = "0.00"
もっとシンプルに書けるでしょうが・・・とりあえず4行の処理をこれに置き換えて
後も同じようにされては・・・
|
|