[[20080510150013]]　『カタカナのみ全角　その他要望も・・・』（ＳＣＫ）　ページの最後に飛ぶ

『カタカナのみ全角　その他要望も・・・』（ＳＣＫ）

 過去ログいろいろ読みましたが、
 カタカナ、英数など全角、半角がいろいろ入乱れていて
 カタカナは全て全角　英数は全て半角　記号、スペースも半角に
 したいのですが、
 「、」を「,(半角のコンマ)」にも一緒に変更したいのです！！
 Ａ１にコメントＢ１に関数などを入れて答えが出るような式は無いのでしょうか？？

 出来るのでしょうか？？教えて下さい。

 Alt + F11 でVBEを開きます。
 挿入(I)→標準モジュール(M)で出てきた所に

 '------
Public Function 変換(Target As Range) As String
Dim MyText As String, MyVal As String
    For i = 1 To Len(Target.Value)
        MyText = StrConv(Mid(Target.Value, i, 1), vbNarrow)
        Select Case Asc(MyText)
            Case 164
                MyVal = MyVal & ","
            Case 177 To 221
                MyVal = MyVal & StrConv(MyText, vbWide)
            Case Else
                MyVal = MyVal & MyText
        End Select
    Next i
    変換 = MyVal
End Function
 '------
 ↑を貼り付けた後、エクセルに戻って
 B1に
=変換(A1)
 の様にして使って下さい。

 上手く行くと良いですね～。（笑）

 (HANA)

 出来ましたぁ～(^^/

 感謝感激です!!(笑)

コメント返信：

[ 一覧(最新更新順) ]

[[20080510150013]] 『カタカナのみ全角 その他要望も・・・』（ＳＣＫ） ページの最後に飛ぶ

[[20080510150013]]　『カタカナのみ全角　その他要望も・・・』（ＳＣＫ）　ページの最後に飛ぶ