【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が動いてしまいます。
どうしたらいいでしょうか？

回答No.2

qualheart · ベストアンサー

補足ありがとうございました。

＞3ケタ目入力→ハイフン挿入　5ケタ目削除→ハイフン削除をしたい

論理的に考えて、ハイフンは手動で入力しないというルールが必要だと思います。
その上で以下のコードにすれば良いでしょう。

If Len(TextBox4.Text) = 4 And Mid(TextBox4.Text, 4, 1) = "-" Then
TextBox4.Text = Left(TextBox4.Text, 3)
End If

If Len(TextBox4.Text) = 4 And Mid(TextBox4.Text, 4, 1) <> "-" Then
TextBox4.Text = Left(TextBox4.Text, 3) & "-" & Right(TextBox4.Text, 1)
End If

上記でどうでしょうか？
ご参考まで。

お礼

そういう考えなんですね！

うまく行きました！

ありがとうございます。

回答No.1

qualheart

具体的に何をしたいのか良く分からないです。

上記のVBだと、
TextBox4が4文字だったら左から3文字までを抜き出して（ようはハイフンを消す？）、TextBox4が3文字だったら最後にハイフンを挿入しています。
これだと、結局ハイフンを挿入したいのか削除したいのか良く分からないです＾＾；
実際にどのような動作にさせたいのかそれを補足していただけますか？

お礼

ありがとうございます

補足

7ケタ入れていくので
3ケタ目入力→ハイフン挿入
5ケタ目削除→ハイフン削除
をしたいのです・・・