A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
ユーザ定義関数を作るのは同じですが、
Access2000なら、
Sub A()
Msgbox ChangeTelNumber("(03)123-1234")
End Sub
Public Function ChangeTelNumber(byref sBuf As String) As String
sBuf = StrConv(sBuf, vbNarrow)
sBuf = Replace(sBuf, "(", "")
sBuf = Replace(sBuf, ")", "")
sBuf = Replace(sBuf, "-", "")
ChangeTelNumber = sBuf
End Function
なんてどうでしょう。
No.1
- 回答日時:
ユーザー定義関数を作ってみました。
半角文字にして、指定した文字を削除します。電話番号の先頭はゼロが多いので、下の結果は文字にしてあります。(03)123-4567は031234567 になります。
'半角の数値のみにする関数
Public Function Str2Numeric(Moji As String) As String
Dim L As Integer 'カウンタ
Dim LenMoji As Integer '電話番号の文字長
Moji = StrConv(Moji, vbNarrow) '半角にする
LenMoji = Len(Moji) '最初の電話番号の文字長
For L = LenMoji To 1 Step -1
Select Case Mid(Moji, L, 1)
Case "(", ")", "-" '削除する文字を登録する
Moji = Left(Moji, L - 1) & Right(Moji, Len(Moji) - L) '削除
End Select
Next
Str2Numeric = Moji
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- デスクトップパソコン 40年間の悩み キーボードにおいて初期値として漢字ローマ字変換に設定する方法 8 2023/05/08 14:50
- Ruby 初心者プログラミング 3 2022/10/12 11:31
- Java Java 南京錠 2 2023/02/04 11:46
- Excel(エクセル) エクセルのグラフに上下限値の横棒を表示させたい 5 2022/12/12 11:09
- PHP PHPSpreadsheetを使って関数を繰り返し埋め込みたい 1 2023/05/24 11:33
- C言語・C++・C# [C言語] コメント文字列を無視して、数値データを読み込むプログラム部分について 5 2022/10/05 11:03
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
10分で500~600文字っ...
-
1文字って1バイトだったっけ?
-
VBAのfor...next構文で i = A ...
-
パワーポイントで文字の上に線...
-
VLOOKUP関数で検索できません
-
コンピューター名の文字数制限
-
濁点(゙) 半濁点(゚)を一文字と数...
-
タブと空白(スペース)の違いに...
-
Excelで入力禁止文字を設定したい
-
50KBは何文字に相当するのでし...
-
Accessで名前の間のスペースを...
-
128ビットのパスワード
-
2バイトって何文字分ですか?
-
■Access エクスポート時に文字...
-
この、意味を、知りたいです
-
外国の絵文字って...
-
[8バイト]+.[3バイト拡張子]っ...
-
i'work Pagesでの文字スタイル...
-
auのメールアドレス
-
wordの何も書かれていない2ペー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
1文字って1バイトだったっけ?
-
この、意味を、知りたいです
-
パワーポイントで文字の上に線...
-
濁点(゙) 半濁点(゚)を一文字と数...
-
VBAのfor...next構文で i = A ...
-
10分で500~600文字っ...
-
50KBは何文字に相当するのでし...
-
エクセルのIF文で「NOT=...
-
エクセルの文字制限からの文字...
-
http://oshiete.goo.ne.jp/qa/1...
-
コンピューター名の文字数制限
-
Excelで入力禁止文字を設定したい
-
VLOOKUP関数で検索できません
-
HTMLで文字頭をそろえるには
-
Accessで名前の間のスペースを...
-
128ビットのパスワード
-
Excelで入力文字の優先表示を行...
-
Msgboxで表示できる文字数の上...
-
全角は日本独自のものか
-
2バイトって何文字分ですか?
おすすめ情報