Excel VBA質問箱 IV

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

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


19648 / 76732 ←次へ | 前へ→

【62513】Re:エクセルVBAで全角英数字は半角に、半角カタカナは全角カタカナに
回答  つるりん  - 09/7/27(月) 20:35 -

引用なし
パスワード
   Option Explicit
Sub mojimojikun()
Dim myAry1, myAry2
Dim lstr As String
Dim myRng As Range
Dim n As Long, i As Long, j As Long

myAry1 = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", _
      "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", _
      "0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
myAry2 = Array("ア", "イ", "ウ", "エ", "オ", "カ", "キ", "ク", "ケ", "コ", "サ", "シ", "ス", "セ", "ソ", _
        "タ", "チ", "ツ", "テ", "ト", "ナ", "ニ", "ヌ", "ネ", "ノ", "ハ", "ヒ", "フ", "ヘ", "ホ", _
        "マ", "ミ", "ム", "メ", "モ", "ラ", "リ", "ル", "レ", "ロ", "ヤ", "ユ", "ヨ", "ヲ", "ン")
For Each myRng In Selection
  n = Len(myRng)
  For i = 1 To n
    For j = 0 To UBound(myAry1)
      lstr = Right(Left(myRng, i), 1)
      If lstr = myAry1(j) Then
        myRng.Offset(, 1) = myRng.Offset(, 1) & StrConv(lstr, vbUpperCase)
      ElseIf lstr = myAry2(j) Then
        myRng.Offset(, 1) = myRng.Offset(, 1) & StrConv(lstr, vbWide)
      End If
    Next
  Next
Next

End Sub

141 hits

【62507】エクセルVBAで全角英数字は半角に、半角カタカナは全角カタカナに あやか 09/7/27(月) 15:22 質問
【62513】Re:エクセルVBAで全角英数字は半角に、... つるりん 09/7/27(月) 20:35 回答
【62516】Re:エクセルVBAで全角英数字は半角に、... arajin 09/7/28(火) 10:24 回答
【62526】Re:エクセルVBAで全角英数字は半角に、... kanabun 09/7/28(火) 21:03 発言

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