英数字だけを半角にしたいのですが、、、

教えてください。
例えば、
コジマビルＡ２０２→コジマビルA202のように
英数字のみを半角にしたいのですがＡＳＣ関数を使うとカナのコジマビルまで半角になってしまいます。。。どうぞ宜しくお願いします。
ソフトはエクセル2000でＯＳはＸＰです。

No.1 回答者： sabodes 回答日時： 2002/09/11 08:58

文字入力を固定するには、エクセル2000ではなく、FEPの設定で可能です。

例えばＡＴＯＫ14では、プロパティの入力・変換の設定項目の中で半角全角
変換の設定で設定一覧で文字の種類を選択して設定できます。

IME2000では、プロパティの[オートコレクト]で設定できます。
[文字種によって、全角/半角どちらに変換するかを指定します。] の一覧から指定する文字種や記号をクリックします。[常に半角に変換]をクリックします。

その他のＦＥＰでも同じように設定できると思います。

この回答へのお礼

お礼が大変遅くなりました。早速のご回答ありがとう
ございました。

お礼日時：2002/10/01 01:41

No.2 回答者： imogasi 回答日時： 2002/09/11 09:18

関数=LOWER(A1)、=ASC(B1)などもダメでした。

関数では
出来ないでしょう。
VBAで関数を作成してみました。ご参考に。
A3に=henkan(a1),
A4に=henkan(a2)をいれると下記３，４行になります。
（A1)コジマビルＡ２０２
（A2)小島アンドビルＰＡＳＡ１２２０２
（A3)コジマビルａ202
（A4)小島アンドビルｐａｓａ12202
下記をVBEの画面でModuleを挿入し、下記Funktion以下を貼りつけ
れば私製関数=henkan()が使えます。
－－－－
Sub test01()
Dim a As String
a = Worksheets("sheet1").Cells(2, 1)
MsgBox henkan(a)
End Sub
--------
Function henkan(a As String)
s = "０１２３４５６７８９"
ss = "0123456789"
' a = Worksheets("sheet1").Cells(2, 1)
' MsgBox a
b = StrConv(a, vbLowerCase)
For i = 1 To Len(b)
c = Mid(b, i, 1)
For j = 1 To 10
If c = Mid(s, j, 1) Then
d = Mid(ss, j, 1)
x = x & d
GoTo p01
End If
Next j
x = x & c
p01:
Next i
' MsgBox x
henkan = x
End Function

この回答へのお礼

お礼のご返事が大変遅くなり申し訳ありませんでした。。。大変参考になりました。誠にありがとうございました。

お礼日時：2002/10/01 02:05

No.3 ベストアンサー 回答者： taka_tetsu 回答日時： 2002/09/11 13:19

ワークシート関数では無理でしょう。

で、マクロなんですが、#2の方のマクロですと、アルファベットが小文字に、数字だけが半角になっちゃうのでだめですよね？

ということで作ってみました。

下のマクロをそのまま貼り付けてください。

コジマビルＡ２０２
が、A1に入っていたら、変換結果を表示させたいセルに
=NarrowChange(A1)

と入力してください。


'---------ここから----------
Function NarrowChange(ByVal strString As String) As String

Dim intLength As Integer
Dim strCut As String

intLength = Len(strString)

Do While strString <> ""
strCut = Left(strString, 1)
If (strCut >= "０" And strCut <= "９") _
Or (strCut >= "Ａ" And strCut <= "Ｚ") _
Or (strCut >= "ａ" And strCut <= "ｚ") Then
NarrowChange = NarrowChange & StrConv(strCut, vbNarrow)
Else
NarrowChange = NarrowChange & strCut
End If
strString = Mid(strString, 2)
Loop
End Function

この回答へのお礼

お礼が大変遅くなりました、すみません。。。
taka_tetsuさんのおかげで出来ました。ご親切にありがとうございました。またなにかありましたら宜しくお願いいたします。

お礼日時：2002/10/01 02:07