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

演習「インターネットエクスプローラを使って取得した表の中身を解析する」
特殊文字を解析して必要情報を取り出す-解説編4-補足

受講生さんの投稿

(投稿ID: 3679)

動画5のアプローチと代わり映えしませんが
別の解決方法を試してみましたので投稿させていただきます。
ascコードを元に出力された結果を条件としました。
Sub miginokosi_63_chr()
    Dim moji
    Dim i
    moji = Range("C12").Value
    
    For i = 1 To Len(moji)
        If Chr(Asc(Mid(moji, i, 1))) <> "?" Then
            Range("D12").Value = Mid(moji, i)
            Exit For
        End If
    Next
End Sub

2018/02/26 07:37