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

ExcelマクロVBAの実用サンプル、エクセルVBA集と解説
最終更新日: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


新着記事NEW ・・・新着記事一覧を見る

抜けている数値を探せ|エクセル雑感(2022-07-01)
.Net FrameworkのSystem.Collectionsを利用|VBA技術解説(2022-06-29)
迷路ネコが影分身の術を体得したら…|エクセル雑感(2022-06-27)
迷路にネコが挑戦したら、どうなるかな…|エクセル雑感(2022-06-26)
サロゲートペアに対応した自作関数(Len,Left,Mid,Right)|エクセル雑感(2022-06-24)
「マクロの登録」で登録できないプロシージャーは?|エクセル雑感(2022-06-23)
オブジェクトのByRef、ByVal、Variant|エクセル雑感(2022-06-22)
コメントから特定形式の年月を取り出す|エクセル雑感(2022-06-19)
4,9を使わない連番作成|エクセル雑感(2022-06-17)
連番を折り返して出力|エクセル雑感(2022-06-16)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.Excelショートカットキー一覧|Excelリファレンス
7.マクロって何?VBAって何?|VBA入門
8.並べ替え(Sort)|VBA入門
9.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
10.エクセルVBAでのシート指定方法|VBA技術解説




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


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



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