Excel VBA質問箱 IV

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

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


19322 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼拝島 さん:
ASC や JIS は使ってませんが。。。

Sub sample()
  Dim mySTR As String
  Dim myLooP As Long
  Dim myTmp As String
  
  Const myMOJI As String = "9月10日スケジュール表"
  
  For myLooP = 1 To Len(StrConv(myMOJI, vbWide))
    myTmp = Mid$(StrConv(myMOJI, vbWide), myLooP, 1)
    If IsNumeric(myTmp) Then
      mySTR = mySTR & StrConv(myTmp, vbNarrow)
    Else
      mySTR = mySTR & StrConv(myTmp, vbWide)
    End If
  Next myLooP
  
  Debug.Print myMOJI, mySTR
End Sub


myMOJIを引数化して SubではなくFunctionプロシージャにすれば
組み込むのも簡単?

一応、参考までに。

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 お礼

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