エクセルＶＢＡ

質問

セル上のデータ
「○○市△△区□□町５丁目３９-６　××ハイム５０６」
からVBAを使用し「５－３９－６－５０６」のみ抽出する
方法を教えて下さい。

回答No.4

n-jun

＃３です。

＞あまりエクセルに詳しくないため解説をお願いできないでしょうか。
ＶＢＡがわからないと言う事でしょうか？

取り敢えず、
自分で関数を作ってみる
http://takashixxx.blog88.fc2.com/blog-entry-21.html

Visual Basic Editor　は、ツール＞マクロ＞Visual Basic Editor
をクリック。

「標準モジュール」と言う所に＃２の
Function henkan(st As String) As String
から
End Function
をコピー・貼付けをして下さい。

その後に
B1 =henkan(A1)　・・・全て半角英数字で入力。
です。

お礼

ありがとうございます。

回答No.3

n-jun

＃２です。

ユーザー定義関数なら
Ａ１に　○○市△△区□□町５丁目３９-６　××ハイム５０６
Ｂ１　=henkan(A1)
で　５－３９－６－５０６

Function henkan(st As String) As String
Dim RegExp As Object
Dim match, matches
Dim str As String

Set RegExp = CreateObject("VBScript.RegExp")

RegExp.Pattern = "[０-９]+"
RegExp.Global = True

Set matches = RegExp.Execute(st)

For Each match In matches
str = str & match.Value & "-"
Next

henkan = Left(str, Len(str) - 1)
End Function

お礼

ありがとうございます。
早速　
Ａ１に　○○市△△区□□町５丁目３９-６　××ハイム５０６
Ｂ１　=henkan(A1)
と入力しましたがＢ１＝#NAME?となってしまいます？？
あまりエクセルに詳しくないため解説をお願いできないでしょうか。

回答No.2

n-jun

正規表現の事かな？

Sub try()
Dim RegExp As Object
Dim match, matches
Dim st As String
Dim str As String

Set RegExp = CreateObject("VBScript.RegExp")

st = "○○市△△区□□町５丁目３９-６　××ハイム５０６"

RegExp.Pattern = "[０-９]+"
RegExp.Global = True

Set matches = RegExp.Execute(st)

For Each match In matches
str = str & match.Value & "-"
Next

MsgBox Left(str, Len(str) - 1)

End Sub

ご参考まで。

お礼

ありがとうございます

回答No.1

chiezo2005

http://hinekure.vba-soft.com/?eid=361698
に近いものがありますね。
全角用にすこしかえればよいでしょう。

また
http://www.accessclub.jp/bbs5/0026/vba7877.html
にもいろいろあります。

コメントとして完璧はできないです。
というのは
市名や町名XXハイムのところに数字があるとアウトです。
パターンが決まっているのであれば，
丁目とか番地を探してから明らかに番地になってから変換を始めるという
すこし細かな動作をするコードを書く必要がありますね。

お礼

ありがとうございます