英小文字が入力されたら大文字に変換（Worksheet_Change）

公開日：2013-08-26　最終更新日：2020-04-04

英小文字が入力されたら大文字に変換（Worksheet_Change）

セルに英小文字が入力されたら直ちに英大文字に変換するVBAです。
ワークシートのイベントを使い、セルの入力確定と同時に変換します。

Worksheet_Changeイベント

セルの値が変更された時に起動されるイベントプロシージャーです。

Private Sub Worksheet_Change(ByVal Target As Range)

Target
変更されたセルが、Rangeオブジェクトとして渡されます。

ワークシートのイベントの基本については以下を参照してください。

Worksheetのイベントプロシージャー｜VBA入門

・Worksheetのイベント・イベントプロシージャー追加のVBE操作・Activate：Worksheetのイベント・BeforeDoubleClick：Worksheetのイベント・BeforeRightClick：Worksheetのイベント・Change：Worksheetのイベント・SelectionChange：Worksheetのイベント・全てのシートまたは複数のシートに対するイベント

英小文字が入力されたら大文字に変換するVBA


  
    
      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("A")) Is Nothing 
Then

      　　　　　　myRng.Value = UCase(myRng.Value)

      　　　　End 
If

      　　Next

      　　Application.EnableEvents = True

      End Sub

上記VBAでは、A列のみを対象にしています。

英小文字が入力されたら大文字に変換するVBAの解説

上記VBAでは、A列に英小文字が入力された場合、直ちに大文字に変更しています。

複数セルに一括で入力される場合もあるので、
For Each myRng In Target
これで、対象セル全てを処理しています。

また、
Application.EnableEvents = False
これで、新たなイベント発生を抑止しています。
この指定がないと、VBAでセル値を変更したことで新たにWorksheet_Changeが実行されてしまいます。
つまり、
myRng.Value = UCase(myRng.Value)
この時点で、再びWorksheet_Changeが起動されてしまいます。
結果的に、イベントの連鎖が起こり、エラーとなってしまいます。

ただし、注意しなければならない事は、マクロ終了後に自動童では戻らないことです。
Application.EnableEvents = True
これを入れ忘れると、プロシージャー終了後に新たなイベントが発生しなくなってしまいます。

同じテーマ「マクロVBAサンプル集」の記事

ブックを開いた時に指定シートを表示（Workbook_Open）
ブックが閉じられる直前に保存済を確認（Workbook_BeforeClose）
シートが選択された時に指定セルに移動（Worksheet_Activate）
ダブルクリックで行高・列幅調整（Worksheet_BeforeDoubleClick）
英小文字が入力されたら大文字に変換（Worksheet_Change）
セル選択で選択行の色を変更（Worksheet_SelectionChange）
方眼紙Excel（神エクセル）に対応するVBA

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.条件分岐（Select Case）｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
英小文字が入力されたら大文字に変換（Worksheet_Change）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBAサンプル集
英小文字が入力されたら大文字に変換（Worksheet_Change）