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
> 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
>
受講生さんの投稿
(投稿ID: 3679)
別の解決方法を試してみましたので投稿させていただきます。
ascコードを元に出力された結果を条件としました。
小川慶一さんのコメント
(コメントID: 5188)
結果的にうまく動いています。
が、 "?" と、エクセルのセル内に書き込まれた特殊文字は、本来異なるものだということを忘れてないようにしてください。
> 動画5のアプローチと代わり映えしませんが
> 別の解決方法を試してみましたので投稿させていただきます。
> ascコードを元に出力された結果を条件としました。
>
>
>