Excel VBA質問箱 IV

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

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


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

40167 / 76732

←次へ　｜　前へ→


	【41666】金利計算について

ToShiYo - 06/8/18(金) 20:54 -


	引用なし

	パスワード

金利負担を計算しております。

このコードでは、Application.Inputboxを
キャンセルした場合→
金利が０になり全て無金利扱いになってしまいます。
金利の数字を入れずにOKを押した場合→
エラーが発生します。
キャンセルないしは数字を入れない場合は、Exitさせ、更に
｢金利を入力してください」と表示させる方法を教えてください。

また金利の入力した場合、「その金利で間違い無いですか」を付け加える
方法も別途明示するコードを教えてください。

また、シート１以外に金利計算が出来るようにさせたいのです。
そのためにFor i= 2 To Sheets.Count にしていますがもっと
確実な方法(コード)を表現する方法がありましたら、教えてください。

一度に多くの質問をしましたが、全てでなくても良いですので
アドバイスお願いします。

Sub 台帳の金利変更()

　Dim i As Integer
　Dim Kinri As Single

　Kinri = Application.InputBox("金利を変更します" & Chr(13) & "新金利を入力してください" & Chr(13) & _
　"例:「0．02」入力は…2%を示します ", "金利変更")
　
　　For i = 2 To Sheets.Count
　　　Sheets(i).Range("H3") = Kinri
　　Next

End Sub

1 hits

▼

【41666】金利計算について ToShiYo 06/8/18(金) 20:54

≪