Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25932 / 76732

←次へ　｜　前へ→


	【56137】Re:構成式から計算結果を求めるには

kanabun - 08/6/4(水) 11:17 -


	引用なし

	パスワード

▼大学一年生さん：
おはようございます。
>基数と数字から数字・基数を分離することができなくて、挫折しています。

基数とか構成式　とかさっぱり門外漢なのですが、

正規表現でよくつかわれるこんなの参考になりませんか

Sub とりあえず数値部分を()
　Dim ss As String
　Dim c
　Dim i As Long
　
　ss = "2I×4.1II×1.1III×10IV×2V"
　With CreateObject("VBScript.RegExp")
　　　.Pattern = "[\d\.]+"
　　　.Global = True
　　　For Each c In .Execute(ss)
　　　　i = i + 1
　　　　Debug.Print i; ")"; Val(c.Value)
　　　Next
　End With
End Sub

Sub とりあえず基数部をとりだす() '数値でなくｘでない文字列をとりだす
　Dim ss As String
　Dim c
　Dim i As Long
　
　ss = "2I×4.1II×1.1III×10IV×2V"
　With CreateObject("VBScript.RegExp")
　　　.Pattern = "[^\d\.×]+"
　　　.Global = True
　　　For Each c In .Execute(ss)
　　　　i = i + 1
　　　　Debug.Print i; ")"; c.Value
　　　Next
　End With
End Sub

2 hits

▼

【56136】構成式から計算結果を求めるには 大学一年生 08/6/4(水) 10:22