Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19651 / 76735

←次へ　｜　前へ→


	【62513】Re:エクセルＶＢＡで全角英数字は半角に、半角カタカナは全角カタカナに

つるりん - 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

0 hits

▼

【62507】エクセルＶＢＡで全角英数字は半角に、半角カタカナは全角カタカナに あやか 09/7/27(月) 15:22