VBAエラー「スタック領域が不足しています」

質問

C2とD2のセルに英文字を入力した時，先頭文字を大文字にするVBAを組んだのですが，いざ実行すると「スタック領域が不足しています」と出てしまいます。以下にコードを示します。

'Sheet1
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Row = 2 And Target.Column = 3 Then
　　　　Range("C2").Value = StrConv(Range("C2").Value, vbProperCase)
　　End If
　　If Target.Row = 2 And Target.Column = 4 Then
　　　　Range("D2").Value = StrConv(Range("D2").Value, vbProperCase)
　　End If
End Sub

なぜこのようなエラーが出るのでしょうか。考えれば考えるほど合っているように思えて仕方なくなったので，ミスがあればご指摘をおねがいします。

回答No.2

川島 俊之（@shuminm1628s）

C2, D2を書き換えているので、Worksheet_Changeが無限ループしてしまいます。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
（中略）
Application.EnableEvents = True
End Sub
のような形で関数処理中はイベントを止める必要があります。

お礼

回答ありがとうございます。
自分で書き換えたものに反応していたら，ループにもなりますね。おかげさまで気づけました。

川島 俊之（@shuminm1628s） プロフィール

【自己紹介】 久が原教室インストラクターの川島です。私はパソコンは自動車のようなものだと思っています。免許をとって運転ができるようになると、自分の世界が広がりますよね。パソコンやインターネットも同じよ...

もっと見る