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

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

鈴木優子さんの投稿

(投稿ID: 1514)

自力で書いた時は　直前の問題まで使っていた instrを使っていました(^^ゞ
応用力が足りませんね。。。
回答の動画をみてあんなにあっさりできるなんて　びっくりでした。

Sub rensyu2()
    Dim count1
    Dim count2
    Dim count3
    Dim gyo
    For gyo = 4 To 33
        If (InStr(Range("C" & gyo).Value, "しそ巻き無料")) > 0 Then
            count1 = count1 + 1
        ElseIf (InStr(Range("C" & gyo).Value, "飲みもの無料")) > 0 Then
                count2 = count2 + 1
        ElseIf (InStr(Range("C" & gyo).Value, "かんぴょう巻き無料")) > 0 Then
                count3 = count3 + 1
        Else
        
        End If
        

    Next
        Range("F4").Value = count1
        Range("F5").Value = count2
        Range("F6").Value = count3
    
End Sub

2015/07/12 08:51

ゲストさんのコメント

(コメントID: 2753)

鈴木優子さん:

そういうところを含めて練習で勘がやしなわれていきます (^^

>自力で書いた時は　直前の問題まで使っていた instrを使っていました(^^ゞ
>応用力が足りませんね。。。
>回答の動画をみてあんなにあっさりできるなんて　びっくりでした。
>
>

>Sub rensyu2()
>    Dim count1
>    Dim count2
>    Dim count3
>    Dim gyo
>    For gyo = 4 To 33
>        If (InStr(Range("C" & gyo).Value, "しそ巻き無料")) > 0 Then
>            count1 = count1 + 1
>        ElseIf (InStr(Range("C" & gyo).Value, "飲みもの無料")) > 0 Then
>                count2 = count2 + 1
>        ElseIf (InStr(Range("C" & gyo).Value, "かんぴょう巻き無料")) > 0 Then
>                count3 = count3 + 1
>        Else
>        
>        End If
>        
>
>    Next
>        Range("F4").Value = count1
>        Range("F5").Value = count2
>        Range("F6").Value = count3
>    
>End Sub
>

2015/07/15 22:01