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
受講生さんの投稿
(投稿ID: 2172)
instrで「、」を検索し、更に2つめの「、」3つめの「、」があるかどうかを調べて、
その結果によって回数を導く方法を考えました。
効率の良い方法ではなさそうですが、やってみました。
by gooska
ゲストさんのコメント
(コメントID: 3602)
配列使えるとまたぜんぜん違うやり方になるんですけどね。
基礎編なんで、手元の道具だけでゴリゴリやる方法をお伝えしています。最初はとにかく腕力が大切。
>最初の[1]のみです。動画を見ずに挑戦しています。
>instrで「、」を検索し、更に2つめの「、」3つめの「、」があるかどうかを調べて、
>その結果によって回数を導く方法を考えました。
>効率の良い方法ではなさそうですが、やってみました。
>
>by gooska