【VBA】郵便番号のハイフン自動挿入
Private Sub TextBox4_Change()
'郵便番号の”-”処理
If Len(TextBox4.Text) = 4 Then
TextBox4.Text = Left(TextBox4.Text, 3)
End If
If Len(TextBox4.Text) = 3 Then
TextBox4.Text = TextBox4.Text & "-"
End If
End Sub
コレでいいかと思ったのですが
ハイフンの追加、削除でTextBox4_Changeが動いてしまいます。
どうしたらいいでしょうか?
お礼
質問が悪かったです・・・
補足
このページのどこに載っていますか?