オンライン講座 質問と回答

無料・有料のオンライン講座で寄せられたメッセージの一部を紹介致します。

[9471]特殊文字を解析して必要情報を取り出す-解説編4-補足

2018-02-25 22:37:20 受講生さんからの投稿です。

動画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

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 


各講座ごとのメッセージを見る場合はこちら

 

まずはここから!スマホでも学べる無料動画講座

今なら先着30名限定で無料!定価4,800円の、初心者のためのエクセルマクロ動画講座。
  1. Excel 97~Excel 2016まですべて対応。動画本数20本、総再生時間2時間44分53秒
  2. PC, Mac, iPhone, iPad, Androidのお好みの環境で、いつでも好きなときに学べます。
2004年から10年間述べ3,000名以上に実施した研修の経験と実績を集約した講座です。
いますぐ無料で試してください。

トップへ