受講生 さん:

配列使えるとまたぜんぜん違うやり方になるんですけどね。
基礎編なんで、手元の道具だけでゴリゴリやる方法をお伝えしています。最初はとにかく腕力が大切。



>最初の[1]のみです。動画を見ずに挑戦しています。
>instrで「、」を検索し、更に２つめの「、」３つめの「、」があるかどうかを調べて、
>その結果によって回数を導く方法を考えました。
>効率の良い方法ではなさそうですが、やってみました。
>

>Sub rensyu033003()　　　　　’「、」が含まれる回数の調査
>    Dim gyo
>    Dim ten　　　　　　　　　’1番目の「、」の文字位置
>    Dim ten2　　　　　　　　  '2番目の「、」の文字位置
>    Dim ten3　　　　　　　　  '3番目の「、」の文字位置
>    Dim yakuwari　　　　　　  '調査対象の文字列
>    Dim kaisu　　　　　　　　'最終的な回答
>    For gyo = 2 To 7
>        yakuwari = Range("E" & gyo).Value        
>         ten = InStr(yakuwari, "、")
>         ten2 = InStr(ten + 1, yakuwari, "、")
>         ten3 = InStr(ten2 + 1, yakuwari, "、")
>        
>        If ten = 0 Then
>            Range("G" & gyo).Value = 0
>        ElseIf ten2 = 0 Then
>            Range("G" & gyo).Value = 1            
>        ElseIf ten2 > 0 And ten3 = 0 Then
>            Range("G" & gyo).Value = 2
>         ElseIf ten3 > 0 Then
>            Range("G" & gyo).Value = 3
>        End If
>        kaisu = Range("g" & gyo).Value
>    Next
>End Sub
>

>by gooska

2016/04/04 15:57