５倍速！メールマガジン
このメールマガジンは既に登録済です
受講生の声
新着の講座投稿
新着の講座コメント
新着のノート投稿
新着のノートコメント
表示できる投稿はありません。
サイト運営者紹介
小川 慶一講師/教材/システム開発者紹介
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
レッスン-投稿一覧
sports-car2691さんの投稿
(投稿ID: 4865)
先程、この質問ホームから送信しました松本です。
もう一度以下の通り行いましたら、エラーにはなりませんでしたが、小数点以下が表示されました。
このような場合は、どのようにしたらよいのでしょうか。
合わせて教えていただければ幸いです。
Sub renshu2()
Dim zeikin2
zeikin2 = Range("b1").Value / 100 + 1
Range("C4") = Range("b4") / zeikin2
End Sub
よろしくお願いいたします。
小川慶一さんのコメント
(コメントID: 6821)
こんばんは。
11:00-13:00にかけてのワークの件でしょうか。
であれば、立てた式が動画内のものと異なるので、結果が変わってしまうのは当然です。
Sub renshu2()
Dim zeikin2
zeikin2 = Range("b1").Value / 100 + 1 '5 / 100 + 1 -> 1.05
Range("C4") = Range("b4") / zeikin2 '1000 / 1.05 -> 952.381
End Sub
ご質問の趣旨と異なるようでしたら、以下について記載のうえ改めてご質問ください。
[1] 動画内のどのワークについての質問か
[2] どのシートを使ってのワークの質問か
[3] 期待する出力結果は何か