Sub lesson02_ikki()
Dim moji
Dim kazu
Dim n
Dim nagasa
Dim saki
saki = 2
Dim kaisu
Dim gyo
For gyo = 2 To 7
kazu = 0
moji = Worksheets("Sheet1").Range("E" & gyo).Value
nagasa = Len(moji)
For kazu = 0 To nagasa
n = InStr(n + 1, moji, "、")
If n = 0 Then
Exit For
End If
Next kazu
For kaisu = 0 To kazu
Worksheets("Sheet2").Range("A" & saki).Value = saki - 1
Worksheets("Sheet2").Range("B" & saki & ":G" & saki).Value = Worksheets("Sheet1").Range("A" & gyo & ":F" & gyo).Value
saki = saki + 1
Next kaisu
Next gyo
End Sub
受講生さんの投稿
(投稿ID: 3276)
ですがたいへん参考になりました。繰り返し回数毎に変数の中身を確認することがで
きるのですね。
○for カウンター変数 = 最小値 + 最大値
の書き方で最小値を0とした書き方が勉強になりました。
○問題[1]をinstr関数を使い、問題[3]を作成しました。過去に小川先生がコメン
されているようにmid関数を使った方法の方がわかりやすいと思いました。
下記に記載しました。
小川慶一さんのコメント
(コメントID: 4737)
ひきつづき、お楽しみください☆
受講生 さん:
> ○動画13:44分付近でfor next 構文でのブレイクポイント(F9)を使ったテスト方法
> ですがたいへん参考になりました。繰り返し回数毎に変数の中身を確認することがで
> きるのですね。
>
> ○for カウンター変数 = 最小値 + 最大値
> の書き方で最小値を0とした書き方が勉強になりました。
>
> ○問題[1]をinstr関数を使い、問題[3]を作成しました。過去に小川先生がコメン
> されているようにmid関数を使った方法の方がわかりやすいと思いました。
> 下記に記載しました。