Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

37418 / 76738

←次へ　｜　前へ→


	【44487】小数点以下を二桁に

minarai - 06/11/18(土) 16:13 -


	引用なし

	パスワード

コード場所に記入しました部分を小数点以下二桁にする方法を知りたいですが
宜しくお願いします

　　　　　　　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

0 hits

▼

【44487】小数点以下を二桁に minarai 06/11/18(土) 16:13

≪