[[20060308120741]]　『小文字を大文字に一括変換』（たまえ）　ページの最後に飛ぶ

『小文字を大文字に一括変換』（たまえ）

a1c225533 ⇒　Ａ1Ｃ225533というふうにデータを変換させることができますか？
データ数は100件ほどありますが、一括で変換できますか？

 標準モジュールの例です（あきお）
 Sub TEST1()
    Cells.Replace What:="a", Replacement:="Ａ"
    Cells.Replace What:="b", Replacement:="Ｂ"
    Cells.Replace What:="c", Replacement:="Ｃ"
    Cells.Replace What:="d", Replacement:="Ｄ"
    Cells.Replace What:="e", Replacement:="Ｅ"
    Cells.Replace What:="f", Replacement:="Ｆ"
    Cells.Replace What:="g", Replacement:="Ｇ"
    Cells.Replace What:="h", Replacement:="Ｈ"
    Cells.Replace What:="i", Replacement:="Ｉ"
    Cells.Replace What:="j", Replacement:="Ｊ"
    Cells.Replace What:="k", Replacement:="Ｋ"
    Cells.Replace What:="l", Replacement:="Ｌ"
    Cells.Replace What:="m", Replacement:="Ｍ"
    Cells.Replace What:="n", Replacement:="Ｎ"
    Cells.Replace What:="o", Replacement:="Ｏ"
    Cells.Replace What:="p", Replacement:="Ｐ"
    Cells.Replace What:="q", Replacement:="Ｑ"
    Cells.Replace What:="r", Replacement:="Ｒ"
    Cells.Replace What:="s", Replacement:="Ｓ"
    Cells.Replace What:="t", Replacement:="Ｔ"
    Cells.Replace What:="u", Replacement:="Ｕ"
    Cells.Replace What:="v", Replacement:="Ｖ"
    Cells.Replace What:="w", Replacement:="Ｗ"
    Cells.Replace What:="x", Replacement:="Ｘ"
    Cells.Replace What:="y", Replacement:="Ｙ"
    Cells.Replace What:="z", Replacement:="Ｚ"
 End Sub
 または
 Sub TEST2()
    c_l = Asc("a")
    c_u = Asc("Ａ")
    For I = 1 To 26 #訂正><;
        Cells.Replace What:=Chr(c_l), Replacement:=Chr(c_u)
        c_l = c_l + 1
        c_u = c_u + 1
    Next I
 End Sub

       A  	 B
1     a1c225533	A1C225533

 B1=UPPER(A1)
 ★関数で別のセルで大文字にして、値の貼り付けをします
 (Maron)

出来ました！　ありがとうございます。
UPPER関数で簡単に出来るのですね。

 全角かと思ってしまいました（あきお）
 半角のままなら、上の私のヤツは、忘れてください。
 解決しちゃってるけど、標準モジュールの例です
 Sub TEST3()
    mae = Asc("a")
    sa = Asc("a") - Asc("A")
    For I = 1 To 26
        Cells.Replace What:=Chr(mae), Replacement:=Chr(mae - sa)
        mae = mae + 1
    Next I
 End Sub

私の書き方が紛らわしかったですね＾＾；
すいません。上記のモジュールも参考にさせていただきます
有難うございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20060308120741]] 『小文字を大文字に一括変換』（たまえ） ページの最後に飛ぶ

[[20060308120741]]　『小文字を大文字に一括変換』（たまえ）　ページの最後に飛ぶ