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

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

HYATOさんの投稿

(投稿ID: 5266)

おはようございます。先生がどのようにマクロを作成しているのか、作成の過程が観られるので、理解がより深まります。引き続きよろしくお願いします。

今回のマクロの作成に当たって、まずは何も見ないで作成し、動画を確認しました。"モノレール"の部分でかなり時間が掛かりましたが、なんとか完成しました。

'[5]
'シート「Sheet2」で、E列にある路線駅名の「路線」情報をH列に、駅名以降の情報をI列に書き込むマクロを作れ

Sub test5()
    Dim gyo
    
    For gyo = 2 To 51
        If InStr(Range("E" & gyo).Value, "駅") <> 0 Then '駅という文字が存在する場合
            If InStr(Range("E" & gyo).Value, "モノレール") = 0 Then 'モノレールという文字が存在しない場合
                Range("H" & gyo).Value = Left(Range("E" & gyo).Value, InStr(Range("E" & gyo).Value, "線"))
                Range("I" & gyo).Value = Mid(Range("E" & gyo).Value, InStr(Range("E" & gyo).Value, "線") + 1)
            Else 'モノレールという文字が存在する場合
                Range("H" & gyo).Value = Left(Range("E" & gyo).Value, InStr(Range("E" & gyo).Value, "ル"))
                Range("I" & gyo).Value = Mid(Range("E" & gyo).Value, InStr(Range("E" & gyo).Value, "ル") + 1)
            End If
        End If
    Next
End Sub

2022/04/20 06:26

小川慶一さんのコメント

(コメントID: 7469)

こんにちは。

いろんな解法が考えられますね。
TPOに応じて使い分けられるようになると良いかと思います。

たとえば、いただいたものについてあえてコメントすると、「ルール工業地域循環モノレール」等、「モノレール」よりも前に「ル」という文字列が含まれる文字列の場合は正常に動作しないです。
ですが、「モノレール」より前に「ル」という文字列は存在しないという前提であればいただいたマクロで十分です。

ひきつづき、いろいろお楽しみください☆

2022/04/21 13:02

HYATOさんのコメント

(コメントID: 7470)

コメントいただきありがとうございました。

TPOに合わせて条件を使い分けるようにしたいと思います。

よろしくお願いします。

2022/04/22 05:35