Excel VBA質問箱 IV

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

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


19318 / 76732 ←次へ | 前へ→

【62847】Re:文字の全角半角について
発言  超初心者  - 09/9/8(火) 18:31 -

引用なし
パスワード
   ▼拝島 さん:
英字は見落としてました m(_~_)m

少し変更

Sub sample2()
  Dim mySTR As String
  Dim myLooP As Long
  Dim myTmp As String
  
  Const myMOJI As String = "9月10日Aスケジュール表"
  
  For myLooP = 1 To Len(StrConv(myMOJI, vbWide))
    myTmp = Mid$(StrConv(myMOJI, vbWide), myLooP, 1)
    If myTmp Like "[0-9a-zA-Z]" Then
      mySTR = mySTR & StrConv(myTmp, vbNarrow)
    Else
      mySTR = mySTR & StrConv(myTmp, vbWide)
    End If
  Next myLooP
  
  Debug.Print myMOJI, mySTR
End Sub


こんな感じでいかがでしょう
0 hits

【62841】文字の全角半角について 拝島 09/9/8(火) 15:37 質問
【62843】Re:文字の全角半角について 超初心者 09/9/8(火) 16:27 発言
【62844】Re:文字の全角半角について 拝島 09/9/8(火) 17:40 質問
【62845】Re:文字の全角半角について りおりお 09/9/8(火) 18:08 発言
【62846】Re:文字の全角半角について 拝島 09/9/8(火) 18:31 お礼
【62849】Re:文字の全角半角について kanabun 09/9/8(火) 22:30 発言
【62847】Re:文字の全角半角について 超初心者 09/9/8(火) 18:31 発言
【62852】Re:文字の全角半角について 拝島 09/9/9(水) 9:45 お礼

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