レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

エクセルマクロ・VBA基礎編

基礎講座第１章１２ - ドリル

シドニーさんの投稿

(投稿ID: 4178)

基礎編第１章が終わりました！
身に付けるのにまだまだ時間がかかりそうです汗

小川先生に質問です。
daihon[4]_kaitoで、税率の値の設定を
　zei = Range("B1").Value
として、最後にzei/100としています。
※問題の指示通り50、100…と記入するのでしたら、zei/10でしょうか？ファイルが古いものでしたら、失礼いたしました。

自分で書いたときは、
　zei = Range("B1").Value/100
として、マクロを実行しましたら、先生の解答と同じ値が記入されました。
結果は同じでしたが、先生から見て書き方等修正した方が良い点などありますか。とんちんかんな質問で、申し訳ございませんが、よろしくお願い致します。

2018/09/24 21:34

小川慶一さんのコメント

(コメントID: 5738)

シドニーさん:

ご質問は、11:02くらいからの件でしょうか。

税率5%ですから、0.05ですね。
5を100で割ると0.05になります。

1000 * 0.05 = 50
2000 * 0.05 = 100
3000 * 0.05 = 150
4000 * 0.05 = 200
5000 * 0.05 = 250

という説明でどうでしょうか？

> 基礎編第１章が終わりました！
> 身に付けるのにまだまだ時間がかかりそうです汗
>
> 小川先生に質問です。
> daihon[4]_kaitoで、税率の値の設定を
> 　zei = Range("B1").Value
> として、最後にzei/100としています。
> ※問題の指示通り50、100…と記入するのでしたら、zei/10でしょうか？ファイルが古いものでしたら、失礼いたしました。
>
> 自分で書いたときは、
> 　zei = Range("B1").Value/100
> として、マクロを実行しましたら、先生の解答と同じ値が記入されました。
> 結果は同じでしたが、先生から見て書き方等修正した方が良い点などありますか。とんちんかんな質問で、申し訳ございませんが、よろしくお願い致します。

2018/09/25 19:39

シドニーさんのコメント

(コメントID: 5740)

返信ありがとうございます。

質問は、ForNext構文問題で、daihon0020_kaitoの［４］で、zei=Range("B1").Valueのあとに÷100を入れて実行しても問題無いか、ということでした。0020が抜けており、言葉足らずで大変失礼しました。

Sub ForNext4()
Dim gyo
Dim zei
zei = Range("B1").Value/100←ここに÷100でもよいのでしょうか
For gyo = 4 To 13
Range("C" & gyo).Value = Range("B" & gyo).Value * zei
Next
End Sub

マクロを書く時は、どちらのほうが良いのでしょうか。
何度も申し訳ありませんが、よろしくお願いします。

2018/09/26 05:32

小川慶一さんのコメント

(コメントID: 5741)

シドニーさん:

Sub ForNext4()
    Dim gyo
    Dim zei
    zei = Range("B1").Value/100←ここに÷100でもよいのでしょうか
    For gyo = 4 To 13
        Range("C" & gyo).Value = Range("B" & gyo).Value * zei 
    Next
End Sub

↑
もちろんこれでもOKです。
というより、むしろこの方がすぐれていますね。なぜなら、この方は計算が少ないからです。

今回のように、ご質問の際は、ご自身で書いたプログラムをご提示ください。
それが一番話が早いです。

> 返信ありがとうございます。
>
> 質問は、ForNext構文問題で、daihon0020_kaitoの［４］で、zei=Range("B1").Valueのあとに÷100を入れて実行しても問題無いか、ということでした。0020が抜けており、言葉足らずで大変失礼しました。

Sub ForNext4()
    Dim gyo
    Dim zei
    zei = Range("B1").Value/100←ここに÷100でもよいのでしょうか
    For gyo = 4 To 13
        Range("C" & gyo).Value = Range("B" & gyo).Value * zei 
    Next
End Sub

> マクロを書く時は、どちらのほうが良いのでしょうか。
> 何度も申し訳ありませんが、よろしくお願いします。
>

2018/09/27 12:21