こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

excelでセル内から英数字のみを半角にする方法

セル内に文章が入ってます。
例「テレビCM」のCMのみを半角の表記に変えたいのですが、関数のASCでは全て半角になってしまいます。
英数字のみを取り出す方法をご存知の方教えて下さい。

投稿日時 - 2006-09-13 21:29:09

QNo.2404552

LBO

すぐに回答ほしいです

質問者が選んだベストアンサー

標準モジュールにユーザー定義関数を作る
'使い方:=toNarrow(A1)
Public Function toNarrow(str As String) As String
Const AlphaNum = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
Const AlphaNumW = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"

Dim i As Integer
Dim length As Integer
Dim c As String
Dim x As Integer

length = Len(str)
For i = 1 To length
c = Mid(str, i, 1)
x = InStr(AlphaNumW, c)
If x > 0 Then
Mid(str, i, 1) = Mid(AlphaNum, x, 1)
End If
Next
toNarrow = str
End Function

投稿日時 - 2006-09-14 00:18:01

お礼

ありがとうございます!!!
大変助かりました!!

投稿日時 - 2006-09-14 14:13:08

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問