Excel VBA質問箱 IV

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

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


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

37410 / 76732

←次へ　｜　前へ→


	【44489】Re:小数点以下を二桁に

minarai - 06/11/18(土) 21:33 -


	引用なし

	パスワード

Excel VBAは素人ですので四行の改変は理解できませんでしたが
教えていただいたRange("H6").NumberFormatLocal = "0.00"
を挿入しましたら見事小数点以下が二桁に計算されるように
なりました。有難うございました。

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("H6").NumberFormatLocal = "0.00"
　　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