[[20190307165403]]　『小文字を大文字に変換』（Kei）　ページの最後に飛ぶ

『小文字を大文字に変換』（Kei）

ログから上手いこと目当てのものが見つけれないので質問させていただきます。
小文字の英字を大文字に変換するのに

 Private Sub Worksheet_Change(ByVal target As Range)
    Dim r As Range
    Application.EnableEvents = False
    With Columns(1)
        If Not Intersect(.Cells, target) Is Nothing Then
            For Each r In Intersect(.Cells, target).Areas
                r.Value = Evaluate("upper(asc(" _
                & r.Address & "))")
            Next
        End If
    End With
    Application.EnableEvents = True
 End Sub
というコードまでは辿り着いて使っているのですが、１シート内で複数個所に大文字変換を行うにはどのようにすればいいのでしょう。
初歩的なことで大変申し訳ありませんがよろしくお願いします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 >初歩的なことで大変申し訳ありませんがよろしくお願いします。
 って、意味わかって言ってる？

[[20120328162357]]
（seiya） 2019/03/07(木) 17:11

申し訳ありません。
手元のファイルを探していたらコードを見つけました。
（seiya）さまには失礼をおかけしました。
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim myRng As Range
    Application.EnableEvents = False
    For Each myRng In Target
        If Not Intersect(myRng, Columns("H:I")) Is Nothing Then
            myRng.Value = UCase(myRng.Value)
        End If
    Next
    Application.EnableEvents = True
 End Sub
このようにすれば複数個所に条件を充てれました。
（Kei） 2019/03/08(金) 09:50

コメント返信：

[ 一覧(最新更新順) ]

[[20190307165403]] 『小文字を大文字に変換』（Kei） ページの最後に飛ぶ

[[20190307165403]]　『小文字を大文字に変換』（Kei）　ページの最後に飛ぶ