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

エクセルマクロ・VBA基礎編フォローアップ ベーシック
複数の記号に挟まれた文字列を取り出す

受講生さんの投稿

(投稿ID: 3344)

【動画9】 文字列を加工してデータ転記する(その2)をヒントに
D列の文字列を３分割にする方法でマクロを書いてみました。
知識の再利用と文字列の切り出しが面白くなってきました。
Sub mondai()
    Dim mae
    Dim ato
    Dim kouzou
    Dim kouzoumae
    Dim kouzouato
    Dim gyou
    For gyou = 2 To 51
        kouzou = Range("D" & gyou).Value
        mae = InStr(kouzou, "/")
        kouzoumae = Left(kouzou, mae - 1)
        If kouzoumae = "RC" Then
            Range("F" & gyou).Value = "鉄筋コンクリート"
        Else
            Range("F" & gyou).Value = "鉄骨鉄筋コンクリート"
        End If
        kouzouato = Mid(kouzou, mae + 1)
        ato = InStr(kouzouato, "/")
        Range("G" & gyou).Value = Left(kouzouato, ato - 1)
        Range("H" & gyou).Value = Mid(kouzouato, ato + 1)
        Range("I" & gyou).Value = Range("F" & gyou).Value & Range("H" & gyou).Value & "建ての" & Range("G" & gyou).Value & "階部分"
    Next gyou
End Sub

2017/08/14 22:31