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

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

受講生さんの投稿

(投稿ID: 5439)

初め動画をみずに自力でマクロを書いた際は、下記のようなマクロを書きました。うまくいった！と喜びましたが、小川先生の動画を見て、goukeiだけの変数でいけるんだと目から鱗でした。よりシンプルなマクロを作成できるよう精進していきます。

Sub hituyousuu()
    Dim goukei
    Dim goukei01
    Dim goukei02
    
    goukei = 0
    goukei01 = 0
    goukei02 = 0
    
    Dim gyo
    For gyo = 4 To 18
        If Range("C" & gyo).Value = "しそ巻き無料" Then
            goukei = goukei + 1
        ElseIf Range("C" & gyo).Value = "飲みもの無料" Then
            goukei01 = goukei01 + 1
        ElseIf Range("C" & gyo).Value = "かんぴょう巻き無料" Then
            goukei02 = goukei02 + 1
         
        End If
    Next
    Range("F4").Value = goukei
    Range("F5").Value = goukei01
    Range("F6").Value = goukei02

End Sub

2023/01/05 16:53

小川慶一さんのコメント

(コメントID: 8044)

お返事、遅れました...。
その後いかがでしょうか。

まずは、解けたのが良いことです (^^*

いただいたプログラムだと、調査対象の商品が増えるごとに変数をひとつ作る必要がありますね。
たとえば、右の表が1,000件あったら大変そうです。

お手本のやり方だと、変数はひとつで済みます。

一方で、いただいたプログラムだと、ループ内処理の実行回数は1回で済みます。
お手本のやり方だと、右の表が1,000件あったら、似たような処理を1,000回くり返すことになります。

両方のいいとこどりなやり方(調査対象の数が増えても変数は増えない、調査のための処理も1回で済む)もありますが、それはまた先の講座で扱います (^^*

ひきつづき、よろしくお願いいたします。

2023/01/08 04:17