フォーマットvboxのテキストボックス

Question

アクティブな行の特定の列の値でテキストボックスを塗りつぶすフォームがあります。 1つの問題がありますが、列は数字ですが、文字「 - 」 （0000-00-000-000など） フォームが開くと、テキストボックスの形式を0000000000000にします。 私は以下のコードを使用しますが、それは

Private Sub UserForm_Initialize() 
Dim r As Long 

    r = ActiveCell.Row 

    Me.TextBox1.value = Cells(r, 9).value 
    TextBox1.Text = Format(TextBox1.Text, "0000000000000") 
End Sub 

Answer 1

replace何かをdoesntのは、必要に応じて、文字列を操作する関数です。

最も簡単な方法は、単に空の文字列

TextBox1.Text = replace(TextBox1.Text,"-","")