５倍速！メールマガジン
このメールマガジンの詳細はこちら
受講生の声
新着の講座投稿
新着の講座コメント
新着のノート投稿
投稿一覧へ新着のノートコメント
表示できる投稿はありません。
サイト運営者紹介
小川 慶一講師/教材/システム開発者紹介
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
レッスン-投稿一覧
受講生さんの投稿
(投稿ID: 3043)
お世話になります。初コメです。
全くマクロを書けない状態から、順番に動画で学びここまで理解することができました。
小川先生には感謝しかありません！ほんとにわかりやすいです！！
以下、自力で書いてみたマクロです。
先生と同じように動くのですが、問題点はありませんでしょうか？
Sub kugiri6()
Dim mae
Dim ato
Dim saki
Dim gyo
Dim moji
saki = 2
For gyo = 2 To 7
moji = Range("D" & gyo).Value
For mae = 1 To Len(moji)
ato = InStr(mae, moji, "、")
If ato <> 0 Then
Range("L" & saki).Value = Mid(moji, mae, ato - mae)
mae = ato
saki = saki + 1
Else
Range("L" & saki).Value = Mid(moji, mae)
saki = saki + 1
Exit For
End If
Next
Next
End Sub
小川 慶一さんのコメント
(コメントID: 4505)
受講生 さん:
コメントありがとうございます。
うれしい限りです。
コードを拝見しました。
For Next構文のカウンターに使う変数は、構文内で変更しないというのが原則です。できてしまうのですが、可読性が著しく落ちるので非推奨です。
その点を意識して、再考＆リライトしてみてください。
ぜひ、ひきつづきよい学びを☆