No.4ベストアンサー
- 回答日時:
ユーザー定義関数です。
文字を半角にしてみて数字、アルファベット(大文字または小文字)なら、その半角で置き換えています。文字毎にコーディングは不要と思いますが・・・・
Public Function AZaz09_Henkan(moji)
Dim elm As String '1文字
Dim elm_komoji As String '半角に変換
Dim pot As Integer '文字位置
moji = Trim(moji) '空白除去
For pot = 1 To Len(moji)
elm = Mid(moji, pot, 1) '1文字
elm_komoji = StrConv(elm, vbNarrow) '半角文字にする
Select Case Asc(elm_komoji)
Case 48 To 57, 65 To 90, 97 To 122 '0~9,A~Z,a~z
Mid(moji, pot, 1) = elm_komoji
End Select
Next
AZaz09_Henkan = moji
End Function
ありがとうございます。
Function moji(MyStr As String)
Mylength = Len(MyStr)
For i = 1 To Mylength
Mystr_i = Mid(MyStr, i, 1)
If Mystr_i Like "[A-Z]" Or Mystr_i Like "[0-9]" Then
Mystr_tmp = StrConv(Mystr_i, vbNarrow)
Else
Mystr_tmp = Mystr_i
End If
moji = moji & Mystr_tmp
Next i
End Function
の方法をとることになりましたが、ぜひ試してみます。
No.3
- 回答日時:
OracleにはREPLACEなる関数があり、
文字の置き換えができてたか、とおもいます。
ACCESSではどうでしょう?
A~Z、a~z、0~9なら52回もUPDATE文実行かな?
(Upper,Lower使用しても36回、とても大変)
No.2
- 回答日時:
再び。
StrConv関数だと、お望みのようなことは難しいのでは?
複数条件が絡んでいるようですし...。
私もあまり詳しくないですが、私のやっている方法。
***スペースを削除***
Public Function DelSpaces(st As String) As String
Dim i As Long, lg As Long
Dim bst As String, c As String
st = Trim(st)
lg = Len(st)
For i = 1 To lg
c = Mid(st, i, 1)
If c = " " Or c = " " Then
Else
bst = bst + c
End If
Next i
DelSpaces = bst
End Function
***英数字の変換***
Public Function ZenToHan_Num(st As String) As String
Dim i As Long, lg As Long
Dim bst As String, c As String
Dim c1 As String
Dim c2 As String
st = Trim(st)
lg = Len(st)
For i = 1 To lg
c = Mid(st, i, 1)
c1 = "0": c2 = "0"
If c = c1 Or c = c2 Then
c = c1
Else
c1 = "1": c2 = "1"
If c = c1 Or c = c2 Then
c = c1
英数字…最後まで続く
End If
bst = bst + c
Next i
ZenToHan_Num = bst
End Function
これをクエリの式で呼び出し、変換しています。
参考になれば。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) PowerQueryに詳しい方教えてください(Office365) 1 2022/07/24 21:11
- Excel(エクセル) EXCELでの文字・数字入力の基本について教えてください。 2 2023/05/29 23:17
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- その他(Microsoft Office) 英数字のみ全角から半角に変換 4 2023/07/28 14:48
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Access(アクセス) capeofdragonと申します。 Access2016を使っております。 あるフォームがあり、テ 2 2022/09/09 13:18
- デスクトップパソコン 40年間の悩み キーボードにおいて初期値として漢字ローマ字変換に設定する方法 8 2023/05/08 14:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テプラは半角数字が使えますか?
-
EXCELの文字列操作で文字数不足...
-
契約書や 公文書・私文書などに...
-
半角の×(かける)は?
-
半角スペース
-
関数を使わずに一括で全角を半...
-
半角の『°(単位の度)』
-
EXCELで、セル内の半角カ...
-
エクセル関数で文字列の中のス...
-
Excel2016 検索の窓を常時表示...
-
℃の半角表示
-
メールアドレスの上ハイフン入...
-
【VBA】ファイルパスに半角スペ...
-
EXCEL95 VLOOKUP関数で半角と全角
-
エクセルで、JIS関数、ASC関数...
-
ビジネスの文書における、数字...
-
エクセルでひらがな・漢字はそ...
-
ヘッダー(フッター)の全角・...
-
ギリシャ文字 μの出し方
-
ワードへの差し込みで数字一桁...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テプラは半角数字が使えますか?
-
契約書や 公文書・私文書などに...
-
メールアドレスの上ハイフン入...
-
半角スペース
-
半角の『°(単位の度)』
-
半角の×(かける)は?
-
℃の半角表示
-
EXCELの文字列操作で文字数不足...
-
EXCEL95 VLOOKUP関数で半角と全角
-
関数を使わずに一括で全角を半...
-
エクセル関数で文字列の中のス...
-
【VBA】ファイルパスに半角スペ...
-
半角の漢字の入力方法
-
EXCELで、セル内の半角カ...
-
Excel 文字列の中から数字だけ...
-
ビジネスの文書における、数字...
-
1, (1),(1)の使い分け
-
Excel2016 検索の窓を常時表示...
-
Excel セル内の文字と数字をわ...
-
エクセルで、JIS関数、ASC関数...
おすすめ情報