[[20120519142119]]　『マクロで文字列から数字（半角）だけ取り出すコー』（春子）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『マクロで文字列から数字（半角）だけ取り出すコードを』（春子）

  マクロコード上で文字列から数字だけを簡単に取り出す式はありますか。
    たとえば変数「図12です。」 から，12だけを取り出す方法です。

---

 正規表現を使用した場合

 Sub test()
    Dim txt As String
    txt = "「図12です。」"
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d+"
        If .test(txt) Then
            MsgBox .Execute(txt)(0), , txt
        Else
            MsgBox "半角数字無し", , txt
        End If
    End With
End Sub
(seiya)

---

出来ました。ありがとうございます。（春子）

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.