ユーザーフォームのテキストボックスの書式設定

Question

複数の書式のテキストボックスを含むユーザーフォームがあります。私は空白（ ""）として初期化し、afterupdate（）を使用してフォーマットします。これはすべて正常に動作します。私の問題は、ユーザーが最初に移動したデータをキー入力しないか、画面上で無意識にクリックしてしまう可能性があるからです。値を入力すると、テキストボックスから移動するときに値が正しくフォーマットされます。しかし、テキストボックスをもう一度選択し直すと、値がクリアされます。また、パーセントで書式設定されたテキストボックスでこれを行うと、実際には不一致エラーでバグが発生します。ここで

は私の現在のコードのスライスである：これをクリーンアップする方法について

Private Sub UserForm_Initialize() 

    ValueAnalysisTextBox.Value = "" 

    CapRateTextBox.Value = "" 

End Sub 

Private Sub ValueAnalysisTextBox_AfterUpdate() 

    ValueAnalysisTextBox.Value = Format(Val(ValueAnalysisTextBox.Value), "$#,###") 

End Sub 

Private Sub CapRateTextBox_AfterUpdate() 

    CapRateTextBox.Value = Format(Val(CapRateTextBox.Value)/100, "Percent") 

End Sub 

任意の考えは素晴らしいことです。

Answer 1

これはあなたの試みですか？

Private Sub ValueAnalysisTextBox_AfterUpdate() 
    Dim amt As Double 

    amt = Val(Replace(ValueAnalysisTextBox.Value, "$", "")) 

    ValueAnalysisTextBox.Value = Format(amt, "$#,###") 
End Sub 

Private Sub CapRateTextBox_AfterUpdate() 
    Dim Perct As Double 

    Perct = Val(Replace(CapRateTextBox.Value, "%", ""))/100 

    CapRateTextBox.Value = Format(Perct, "Percent") 
End Sub 

注：私は、他のエラー処理を行っておりません。たとえば、ユーザーが「Blah Blah」と入力したり、テキストボックスに何かをペーストしたりします。私はあなたがそれを処理できると確信しています。

Answer 2

私は、その後、テキストボックスの.Tagプロパティで基礎となる値を格納前後に入力し、[終了]イベントで書式を変更するためにそれを使用したい：

Private Sub UserForm_Initialize() 
    ValueAnalysisTextBox.Value = vbNullString 
    ValueAnalysisTextBox.Tag = vbNullString 
End Sub 

Private Sub ValueAnalysisTextBox_Enter() 
    ValueAnalysisTextBox.Value = ValueAnalysisTextBox.Tag 
End Sub 

Private Sub ValueAnalysisTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
    If IsNumeric(ValueAnalysisTextBox.Value) Then 
     ValueAnalysisTextBox.Tag = Val(ValueAnalysisTextBox.Value) 
     ValueAnalysisTextBox.Value = Format$(ValueAnalysisTextBox.Tag, "$#,###") 
    Else 
     ValueAnalysisTextBox.Tag = vbNullString 
    End If 
End Sub 

フォーマットは、コード実行中に行われるべきである