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

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

受講生さんの投稿

(投稿ID: 3228)

初期化（tiku = ""）のタイミングですが少し早い部分に書いてみました。
問題ありませんでしょうか。
発展編で出てくるDebug.Printでtikuの中身の様子も確認済です。

Sub Createlist01()
    Dim hida
    Dim migi
    Dim tiku
    migi = 2
    For hida = 2 To 27
        If Range("A" & hida - 1).Value <> Range("A" & hida).Value Then
            Range("E" & migi).Value = Range("A" & hida).Value
            Range("F" & migi).Value = Range("B" & hida).Value
            If migi > 2 Then
                Range("G" & migi - 1).Value = Mid(tiku, 2)
                
                Debug.Print tiku
                tiku = "" '[※]
                Debug.Print tiku
            
            End If
            migi = migi + 1
        End If
    tiku = tiku & "," & Range("C" & hida).Value & "地区"
    Next
    Range("G" & migi - 1).Value = Mid(tiku, 2)
End Sub

2017/06/30 15:06

小川慶一さんのコメント

(コメントID: 4692)

受講生さん:

おもしろいですね。

見本では、発展編1で学ぶ「変数の初期化」をあえてしているというニュアンスです。
ご提案いただいたやり方だと、変数の値を""にする処理の回数が1回少ないです。

どっちが良いか微妙なところです。
それぞれニュアンス、メリットが異なります。

next の手前の以下は、もう一段右にインデントしてください。
tiku = tiku & "," & Range("C" & hida).Value & "地区"

2017/07/03 08:05