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

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『小文字を大文字に一括変換』(たまえ)

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


 標準モジュールの例です(あきお)
 Sub TEST1()
    Cells.Replace What:="a", Replacement:="A"
    Cells.Replace What:="b", Replacement:="B"
    Cells.Replace What:="c", Replacement:="C"
    Cells.Replace What:="d", Replacement:="D"
    Cells.Replace What:="e", Replacement:="E"
    Cells.Replace What:="f", Replacement:="F"
    Cells.Replace What:="g", Replacement:="G"
    Cells.Replace What:="h", Replacement:="H"
    Cells.Replace What:="i", Replacement:="I"
    Cells.Replace What:="j", Replacement:="J"
    Cells.Replace What:="k", Replacement:="K"
    Cells.Replace What:="l", Replacement:="L"
    Cells.Replace What:="m", Replacement:="M"
    Cells.Replace What:="n", Replacement:="N"
    Cells.Replace What:="o", Replacement:="O"
    Cells.Replace What:="p", Replacement:="P"
    Cells.Replace What:="q", Replacement:="Q"
    Cells.Replace What:="r", Replacement:="R"
    Cells.Replace What:="s", Replacement:="S"
    Cells.Replace What:="t", Replacement:="T"
    Cells.Replace What:="u", Replacement:="U"
    Cells.Replace What:="v", Replacement:="V"
    Cells.Replace What:="w", Replacement:="W"
    Cells.Replace What:="x", Replacement:="X"
    Cells.Replace What:="y", Replacement:="Y"
    Cells.Replace What:="z", Replacement:="Z"
 End Sub
 または
 Sub TEST2()
    c_l = Asc("a")
    c_u = Asc("A")
    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

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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.