|
minarai さん、こんにちわ。
>自動記録してmarikoさんに教えてもらいましたRange("H5").NumberFormatLocal = "0.00"を付け加えましたら思い通りの計算結果になりました。
これは表示上2桁(セルの書式設定で下2桁に設定)になっているだけで、数値としてはそれ以下の桁があります。
>りん さんのシンプルにしていただいたコードではコンパイルエラーになったり
コンパイルエラー?
Sub 株価オシロレータ自動計算()
With Application.ActiveSheet
.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 With
End Sub
どこでエラーになりますか?
>EXCELVBAコードが他人が開けないようにできますか。
エディタの画面で、ツール→VBAProjectのプロパティ
保護のところでパスワードを設定するといいです。
|
|