各位大师帮忙修改宏代码,谢谢！

冷酷的云

Private Sub CommandButton3_Click()
If Me.TextBox1.Text = "" Then MsgBox "批号不能为空！": Exit Sub
Sheet1.Range("A2") = Me.TextBox1.Text
Cells(2, 1).NumberFormatLocal = "@"
Me.ListBox1.Clear
For i = 2 To Sheet1.[a2].End(xlDown).Row
    Me.ListBox1.AddItem Sheet1.Cells(i, 1)
Next Excel登录.rar (20.02 KB, 下载次数: 5)

2021-2-27 22:59 上传

点击文件名下载附件

MsgBox "新用户添加成功！"
Me.TextBox1.Text = ""
End Sub
我已经把工作表A列设置为文体格式，为什么新录入的A2值不是真真的文体格式，大师帮忙看下，哪错了。

3190496160

文本格式必须先设置格式，在写入数据才行，
Private Sub CommandButton3_Click()
If Me.TextBox1.Text = "" Then MsgBox "批号不能为空！": Exit Sub
Sheet1.Range("A2") = Me.TextBox1.Text
Sheet1.Cells(2, 1).NumberFormatLocal = "@"
Me.ListBox1.Clear
For i = 2 To Sheet1.[a2].End(xlDown).Row
    Me.ListBox1.AddItem Sheet1.Cells(i, 1)
Next
MsgBox "新用户添加成功！"
Me.TextBox1.Text = ""
End Sub

3190496160

先设置格式再写入数据

3190496160

冷酷的云

谢谢大师