Excel VBA質問箱 IV

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

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


72544 / 76732 ←次へ | 前へ→

【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
0 hits

【8649】全角数字データを全て半角数字に 123 03/10/28(火) 14:26 質問
【8651】Re:全角数字データを全て半角数字に INA 03/10/28(火) 14:38 回答
【8670】Re:全角数字データを全て半角数字に 123 03/10/28(火) 16:47 質問
【8671】Re:全角数字データを全て半角数字に INA 03/10/28(火) 17:37 回答
【8673】Re:全角数字データを全て半角数字に 123 03/10/28(火) 18:00 お礼

72544 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free