掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
数値の取り出しについて (ID:139416)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
やり方はいろいろあるかと思いますが、たとえばこのように書けます。 S = "AB12CD34" X = "" For pos = 1 To Len(S) C = Mid(S, pos, 1) If C Like "#" Then X = X & C End If Next Debug.Print X 全角空白も除外するなら、 If C Like "#" Then の部分を If C Like "[0-9]" Then にかえて、Option Compare Binary で実行すれば OK。 もし、Option Compare に依存させたくないのであれば、 If InStr(1, "0123456789", C, vbBinaryCompare) > 0 Then という感じで。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.