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

エクセルマクロ・VBA基礎編フォローアップ アドバンスド
セル内の文字列から区切り文字を見つけ、その出現回数＋1回だけデータ転記する

受講生さんの投稿

(投稿ID: 3276)

○動画13：44分付近でfor next 構文でのブレイクポイント（F9）を使ったテスト方法　
ですがたいへん参考になりました。繰り返し回数毎に変数の中身を確認することがで　
きるのですね。

○for カウンター変数　=　最小値　+　最大値
の書き方で最小値を0とした書き方が勉強になりました。
　
○問題［1］をinstr関数を使い、問題［3］を作成しました。過去に小川先生がコメン
されているようにmid関数を使った方法の方がわかりやすいと思いました。
下記に記載しました。
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

2017/07/22 18:18