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

エクセルマクロ・VBA基礎編フォローアップ ベーシック
文字列を加工してデータ転記する(その3)

受講生さんの投稿

(投稿ID: 2144)

動画を見ずに一応動くものを作れましたが、
動画と比べてみると、無駄が多いです(;´･ω･)
Sub mondai0093()
    Dim namae
    Dim sei
    Dim gyo
    For gyo = 2 To 11
        namae = Range("B" & gyo).Value
        If InStr(namae, "/") > 0 Then
            sei = InStr(namae, "/")
            Range("C" & gyo).Value = Left(namae, sei - 1)
            Range("D" & gyo).Value = Mid(namae, sei + 1)
        Else
            sei = InStr(namae, " ")
            Range("C" & gyo).Value = Left(namae, sei - 1)
            Range("D" & gyo).Value = Mid(namae, sei + 1)
        End If
    Next
End Sub

"/"で区切る場合と、半角スペースで区切る場合を
分岐処理で繰り返してしまいました。
      sla = InStr(myonam, " ")
        If sla = 0 Then
            sla = InStr(myonam, "/")
        End If

のように、変数に　「または」の　意味をもたせてIF文を閉じてしまい、
共通の文字列関数処理として書いてもよかったんですね。

練習が必要です。考える方向はざっくり合っていたと思いますが・・・
by gooska


2016/03/25 07:50