[[20050106113613]]　『小文字を大文字にしたい』（help）　ページの最後に飛ぶ

『小文字を大文字にしたい』（help）

カタカナの小文字が混在した文字列を、すべて大文字で表示できる関数
なんてありますか？
カイシャ→カイシヤ
というようにしたいのですが。。

 レスがつきませんが、そんな関数はないということでしょうか。
私も探してみましたか見つかりませんでした。
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B6,"ャ","ヤ"),"ュ","ユ"),"ョ","ヨ")
のようなことを繰り返してごまかすようなことしか思いつきませんでした。

 どなたかのもっといい回答を待ってみましょう。
(sato)

これは私の単なる勘違いかもしれませんが､JIS(文字列)でできませんかね。違ったらごめんなさい。（かつらん）

 JIS関数では、半角のカタカナを全角に変換してくれますが、「ャ」を「ヤ」に変換はできませんでした。
 (sato)

レスありがとうございます。
JIS関数ですと、あと一押し！ってところなんですよね。。
satoさんの案も参考にさせていただきます。(help)

 取り合えずマクロで片付ける人…
　
Function KANA_UCASE(ByVal Target As Range) As String
    Dim strRet As String
    Dim i As Integer
    Const cst_strBefore As String = "ァィゥェォッャュョ" 
                                    '↑これを↓こうする
    Const cst_strAfter  As String = "アイウエオツヤユヨ"
    strRet = Target.Value
    For i = 1 To Len(cst_strBefore)
        strRet = Replace(strRet, Mid(cst_strBefore, i, 1), Mid(cst_strAfter, i, 1))
    Next
    KANA_UCASE = strRet
End Function
Sub test()
    Dim r As Range
    For Each r In Selection
        r.Value = KANA_UCASE(r)
    Next
End Sub
　
testの実行で選択範囲のカナが大文字化。式は消えるので注意。
　
=KANA_UCASE(A1)
等としても使用可。
　
他に変換候補があるなら
 >    Const cst_strBefore As String = "ァィゥェォッャュョ"
 >    Const cst_strAfter  As String = "アイウエオツヤユヨ"
に追加の事。
（ご近所PG）
追記：うーん…そういえば思いっきり半角カナを載せてしまった…問題あれば半角カナ部分消してください。
追記２：半角カナ消しました。もし必要なら自力で追加してください。

コメント返信：

[ 一覧(最新更新順) ]

[[20050106113613]] 『小文字を大文字にしたい』（help） ページの最後に飛ぶ

[[20050106113613]]　『小文字を大文字にしたい』（help）　ページの最後に飛ぶ