EXCELで大文字から小文字へ変換したい

ＥＸＣＥＬ２０００の住所録データを筆王の住所録へ変換しているのですが、うまくいきません。(-_-;)それは、郵便番号と電話番号が大文字（全角）になっていて、筆王の郵便番号の桁数でいくと半角で１０桁となっています。ＥＸＣＥＬのデータが大文字のため入りきれないのです。ＥＸＣＥＬの大文字数字（全角）をどうにかして小文字数字（半角）にできないものか？データが多いもので、悩んでいます。どなたかお助けくださいませm(__)m

No.2 ベストアンサー 回答者： dejiji- 回答日時： 2002/12/21 12:25

エクセル上でセルを追加し関数で半角に変換は？

＝ＡＳＣ（元セル）
これで全角から半角になりますが。

この回答へのお礼

明快なご回答有難うございます。まさか半角にできる関数があるとは思いませんでした。(^.^)

お礼日時：2002/12/23 10:00

No.4 回答者： kbonb 回答日時： 2002/12/21 12:52

こんにちは

　セル範囲あるいは列を選択してから以下のマクロを実行します。

Sub ToHankaku()
　Dim c As Range
　Dim Rng As Range
　
　Set Rng = Intersect(ActiveSheet.UsedRange, Selection)
　If Rng Is Nothing Then Exit Sub
　
　Application.ScreenUpdating = False
　　For Each c In Rng
　　　If Not (c.HasFormula) Then
　　　　c.Value = StrConv(c.Value, vbNarrow)
　　　End If
　　Next
　Application.ScreenUpdating = True
End Sub

　なお、以下は全角に変換するマクロです。

Sub ToZenkaku()
　Dim c As Range
　Dim Rng As Range
　
　Set Rng = Intersect(ActiveSheet.UsedRange, Selection)
　If Rng Is Nothing Then Exit Sub
　
　Application.ScreenUpdating = False
　　For Each c In Rng
　　　If Not (c.HasFormula) Then
　　　　c.Value = StrConv(c.Value, vbWide)
　　　End If
　　Next
　Application.ScreenUpdating = True
End Sub

　マクロについては、以下のページがご参考になるのでは？

【エクセル技道場】－マクロ
http://www2.odn.ne.jp/excel/waza/macro.html

参考URL：http://www2.odn.ne.jp/excel/waza/macro.html

この回答へのお礼

貴重なすばらしいご回答有難うございました。でも恥ずかしながら、私はマクロの使い方さえ知らないものですから、せっかく送ってくださって申し訳ございませんm(__)m

お礼日時：2002/12/23 09:59

No.3 回答者： kaduki 回答日時： 2002/12/21 12:26

私はエクセル2000ではないのですが、いつもは以下の方法でやっています。

別のセルに関数ASCで半角に変換
↓
関数の入ったセルをコピーして、貼り付けたいセルの上で右クリック「形式を選択して貼り付け」で「値」を選びます。

他にも方法があるのかどうかわかりませんが…。

この回答へのお礼

明快なご回答有難うございます。まさか半角にできる関数があるとは思いませんでした。(^.^)

お礼日時：2002/12/23 10:00

No.1 回答者： kazmisa 回答日時： 2002/12/21 12:22

こんにちは

エクセルの郵便番号のセルをすべて選択して「Ｃｔｒｌ」＋「Ｈ」で置換えをする。１（全角）を1（半角）へ置き換える。
これを０から９までやる。
いかがでしょう？
「半角と全角を区別する」のチェックボックスにチェックが入っていることを確認してください。

この回答へのお礼

明快なご回答有難うございます。いろんな方法があるものですね。(^.^)

お礼日時：2002/12/23 10:01