VBAの電話番号表示に関して、教えてください。

質問

VBAをやり始めて間もない者ですが
今、勉強の為
VBAに詳しい方、ご享受くさい。

質問内容は、TextBoｘに電話番号入力した時の表示とセルにそんまま入力する方法を
　　　　　　　　 教えてください。
　　　　　　　　 （例）03-1234-5678　入力た場合　TextBoxの表示　→　（03） 1234-5678,
011-234-5678　入力た場合　TextBoxの表示　→　（011） 234-5678,
0123-45-6789　入力た場合　TextBoxの表示　→　（011） 234-5678　を
　　　　　　　　同じTextBoxに表示され、セルにそのままの表示形式で繁栄したいのですが
　　　　　　　　VBA初心者でわかりません。
　　　　　　　　単一の方法は、調べてわかりましたが複数条件で一致した条件が抽出する
　　　　　　　　方法がわかりません。
　　　　　　　　（単一構文）
　　　　　　　　　Dim wd As String
　　　　　　　　　If Len(TextBox1.Value) = 12 And Right(TextBox1, 1) <> "-" Then
　　　　　　wd = TextBox1.Value
　　　　　　TextBox1.Value = "(" & Left(wd, 2) & ")" & " " & Mid(wd, 4, 4) & "-" & Right(wd, 4)
　　　　　　TextBox1.Value = Format(Me.TextBox1.Value, "(00) 0000-0000")
　　　　　　　End If

　　　　　　　　VBAに精通している方、是非ともご享受ください。
　　　　　　　　質問をはじめてしましたので質問の仕方が悪く、
　　　　　　　　申し訳ございません。
　　　　　　　　ベストアンサーを期待しております。宜しくお願い致します。

回答No.3

山田 太郎（@f_a_007） · ベストアンサー

補足："00-1111-2222"は、入力された値に相当します。

ですから、"00-1111-2222"部分は、値を代入した変数に置き換えてください。

お礼

f_a_007 さん

何度も、親切に有難う御座いました。
wdを置き換えたら出来ました。
大変助かります、有難う御座います。

回答No.2

山田 太郎（@f_a_007）

先の回答のように強引に１行に書くのを好まないのであれば・・・。
素直に Select Case文を使用。
その目的は、フォーマットの書式を確定すること。
Format関数では、Replace関数で電話番号から"-"を消して引数にセット。

Public Function XferPNumber(ByVal pNumber As String) As String
　　Dim fString As String

　　Select Case InStr(1, pNumber, "-")
　　　　Case 3
　　　　　　fString = "(00)0000-0000"
　　　　Case 4
　　　　　　fString = "(000)000-0000"
　　　　Case 5
　　　　　　fString = "(0000)00-0000"
　　　　Case Else
　　　　　　fString = ""
　　End Select
　　XferPNumber = IIf(Len(fString) > 0,
　　　　　　　　　　　Format(Replace(pNumber, "-", ""), fString),
　　　　　　　　　　　pNumber)
End Function

※XferPNumberは、手続きを示しているだけです。
※添付のPRTSCは、XferPNumberのテスト結果です。
※これだと、"(0000)00-0000"はいかようにも・・・。

お礼

f_a_007 さん
親切に再度、ご提案して頂き有難う御座います。
VBA、初心者の私に有難う御座います。
ご提案、頂いた回答も反映されません。
何が悪いのか分かりません。もう少し、頑張ってみます。
質問の仕方が悪いのでしょうか？

一つのTextboxで複数の条件の電話番号を条件に合わせ
入力すると
その条件に合う形式の電話番号がまずTextBoxに
変換表示され、
そんままセルに反映できるようにしたいのですが…。

継続して頑張ります。初心者で解読力が悪くて
ご迷惑をお掛けしてすいません。

回答No.1

山田 太郎（@f_a_007）

xx-xxxx-xxxx=>(xx)xxxx-xxxx
xxx-xxx-xxxx=>(xxx)xxx-xxxx
xxxx-xx-xxxx=>(xxxx)xx-xxxx

ということであれば・・・。

? Format(CutStr("00-1111-2222","-",1),"(00)") & CutStr("00-1111-2222", "-", 2, 3)
(00)1111-2222
? Format(CutStr("000-111-2222","-",1),"(000)") & CutStr("000-111-2222", "-", 2, 3)
(000)111-2222
? Format(CutStr("0000-11-2222","-",1),"(0000)") & CutStr("0000-11-2222", "-", 2, 3)
(0000)11-2222

Format()の２番目の引数を可変にすればOK。

? Format(CutStr("00-1111-2222","-",1),"(" & String(Instr(1, "00-1111-2222", "-") - 1,"0") &")") & CutStr("000-111-2222", "-", 2, 3)
(00)111-2222
? Format(CutStr("000-111-2222","-",1),"(" & String(Instr(1, "000-111-2222", "-") - 1,"0") &")") & CutStr("000-111-2222", "-", 2, 3)
(000)111-2222
? Format(CutStr("0000-11-2222","-",1),"(" & String(Instr(1, "0000-11-2222", "-") - 1,"0") &")") & CutStr("0000-11-2222", "-", 2, 3)
(0000)11-2222

なお、次の CutStr関数をモジュールに追加する必要があります。

Public Function CutStr(ByVal Text As String,
　　　　　　　　　　　　ByVal Separator As String,
　　　　　　　　　　　　ByVal N As Integer,
　　　　　　　　　　　　Optional M As Integer) As String
Dim strDatas() As String

strDatas = Split("" & Separator & Text, Separator, , 0)
If M > 0 Then
CutStr = strDatas(N * Abs(N <= UBound(strDatas))) & _
Separator & strDatas(M * Abs(M <= UBound(strDatas)))
Else
CutStr = strDatas(N * Abs(N <= UBound(strDatas)))
End If
End Function

■利用方法

CutStr("00-1111-2222","-",1)・・・・"-"で分割した１番目を戻す。
CutStr("00-1111-2222","-",2, 3)・・・"-"で分割した２番目と３番目とを戻す。

※複数戻す時は、"-"も含む。

お礼

f_a_007 さん
お礼の入力、大変遅くなりまして申し訳御座いません。
f_a_007 さんのご提案、有難う御座います。
自分なりにしてみましたが
何だか旨く行きません。
一つのTextBox（同じTextBox1）内で複数の電話番号
(市外局番から)を処理をしましたが複数の条件が
処理されません。
（例 03-1234-5678）を入力した電話番号が
ご提案頂いた構文記載の(00)111-2222としか
表示されません。
もう少し、ご提案頂いた構文を研究してみます。
本当にありがとうございました。