Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12785 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8649】全角数字データを全て半角数字に １２３ 03/10/28(火) 14:26 質問
【8651】Re:全角数字データを全て半角数字に INA 03/10/28(火) 14:38 回答
【8670】Re:全角数字データを全て半角数字に １２３ 03/10/28(火) 16:47 質問
【8671】Re:全角数字データを全て半角数字に INA 03/10/28(火) 17:37 回答
【8673】Re:全角数字データを全て半角数字に １２３ 03/10/28(火) 18:00 お礼
【8649】全角数字データを全て半角数字に
質問  １２３  - 03/10/28(火) 14:26 -
引用なし
パスワード
   １２３です。

もうひとつ　教えてください。

膨大なデータの中に、社員の住所と電話番号があります。
これらは、全て全角英数字になています。
これを全て半角英数字にしたいのです。

どなたか　ご教示願います。
【8651】Re:全角数字データを全て半角数字に
回答  INA  - 03/10/28(火) 14:38 -
引用なし
パスワード
   StrConv 関数でできますよ。
ヘルプに変換するための引数の設定が載っています。
【8670】Re:全角数字データを全て半角数字に
質問  １２３  - 03/10/28(火) 16:47 -
引用なし
パスワード
   INA さん　こんばんは

早々にありがとうございました。
助かりました。

StrConv は、2バイトを1バイトに変換するもののようですが、
英数字だけを1バイトにするコードはあるのでしょうか？
（StrConvでも問題はないのですが、できれば英数字だけの方がBESTなもんで）
【8671】Re:全角数字データを全て半角数字に
回答  INA  - 03/10/28(火) 17:37 -
引用なし
パスワード
   A1の文字を変換して、A2に表示します。

Sub Samle()
Dim myString As String
Dim myAns As String
Dim i As Long

myAns = ""

For i = 1 To Len(Range("A1").Value)
　　
　　myString = Mid(Range("A1").Value, i, 1)
　　
　　Select Case Asc(myString)
　　Case -32160 To -32135, -32177 To -32168
　　　　myAns = myAns & StrConv(myString, vbNarrow)
　　Case Else
　　　　myAns = myAns & myString
　　End Select

Next

　　Range("A2").Value = myAns

End Sub
【8673】Re:全角数字データを全て半角数字に
お礼  １２３  - 03/10/28(火) 18:00 -
引用なし
パスワード
   ▼INA さん　こんばんは

ありがとうございました。
感謝！感謝！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12785 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free