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

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

rozario980さんの投稿

(投稿ID: 4264)

小川先生
こんにちわ
[2]の回答を作ったのですが、このような形でもいいのでしょうか?
Sub mondai2()
Dim siso
Dim kanpyo
Dim nomimono
Dim gyo
For gyo = 4 To 18
If Range("C" & gyo).Value = "しそ巻き無料" Then
siso = siso + 1
ElseIf Range("C" & gyo).Value = "飲みもの無料" Then
nomimono = nomimono + 1
ElseIf Range("C" & gyo).Value = "かんぴょう巻き無料" Then
kanpyo = kanpyo + 1
End If
Next
Range("F4").Value = siso
Range("F5").Value = nomimono
Range("F6").Value = kanpyo
End Sub

2018/12/23 00:32

小川慶一さんのコメント

(コメントID: 5843)

ゲストさん:

こんばんは。

もしも調査対象が「しそ巻き無料」、「飲みもの無料」、「かんぴょう巻き無料」の3つだけなら、ご提案のやり方もありかと思います。
でも、調査対象が100も200もあったら、そうはいかないですね (^^;

動画で示した方法は、調査対象がいくつあっても困らない書き方です。

> 小川先生
> こんにちわ
> [2]の回答を作ったのですが、このような形でもいいのでしょうか?

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

2018/12/23 02:49

受講生さんのコメント

(コメントID: 5846)

小川先生
コメントありがとうございます。
確かに調査対象が数百個あったら私のやり方では限界がありますね。
今一度動画を見返して、小川さんのやり方を頭に入れたいと思います。

小川慶一さん:

> ゲストさん:
>
> こんばんは。
>
> もしも調査対象が「しそ巻き無料」、「飲みもの無料」、「かんぴょう巻き無料」の3つだけなら、ご提案のやり方もありかと思います。
> でも、調査対象が100も200もあったら、そうはいかないですね (^^;
>
> 動画で示した方法は、調査対象がいくつあっても困らない書き方です。
>
>
> > 小川先生
> > こんにちわ
> > [2]の回答を作ったのですが、このような形でもいいのでしょうか?
>
>

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

2018/12/23 21:13

小川慶一さんのコメント

(コメントID: 5847)

受講生さん:

お返事ありがとうございます。
このお題は、実は、極めて重要です。「身体が勝手に動いて正解してしまう」というところまで練習されるとよいかと思います。そこまでたぶんもうあと少しです。

ひきつづき、お楽しみください☆

> 小川先生
> コメントありがとうございます。
> 確かに調査対象が数百個あったら私のやり方では限界がありますね。
> 今一度動画を見返して、小川さんのやり方を頭に入れたいと思います。
>
> 小川慶一さん:
>
> > ゲストさん:
> >
> > こんばんは。
> >
> > もしも調査対象が「しそ巻き無料」、「飲みもの無料」、「かんぴょう巻き無料」の3つだけなら、ご提案のやり方もありかと思います。
> > でも、調査対象が100も200もあったら、そうはいかないですね (^^;
> >
> > 動画で示した方法は、調査対象がいくつあっても困らない書き方です。
> >
> >
> > > 小川先生
> > > こんにちわ
> > > [2]の回答を作ったのですが、このような形でもいいのでしょうか?
> >
> >

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

> >

2018/12/23 22:35