Question

我有一个表单，用活动行上特定列中的值填充文本框。我有一个问题，列是数字但有字符“ - ” 例如,00-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是将根据需要操作字符串的函数。

最简单的方法是通过用空字符串

替换短划线来删除短划线

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

在vba excel中格式化文本框

1 个答案: