VBの上書きモードで全角文字を入力するには？ (ID:76304)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 変換などを機能させるなら （必要ですね） Dim Start&, Elen& Dim Key(255) As Byte If (Key(37) And 128) Or (Key(38) And 128) Or (Key(39) And 128) Or (Key(40) And 128) Or (Key(28) And 128) Or (Key(29) And 128) Then Exit Sub End If Start = Text1.SelStart Elen = Text1.SelLength Text1.Text = Left$(Text1.Text, Start) + Mid$(Text1.Text, Start + Elen + 1) Text1.SelStart = Start でいくと思います。