Excel UserForm文本框如何隐藏部分文本，保留完整数值可提取？

方案一：利用TextBox的Tag属性存储完整值 #

这是最直接的做法——把完整数据存到TextBox的Tag属性（专门用于存储自定义附加数据），仅在Text属性显示最后四位：

1. 赋值时的处理：提取单元格数据后，将完整值存入Tag，再处理显示内容

' 从工作表提取数据（示例为Sheet1的A1单元格）
Dim fullRawValue As String
fullRawValue = Sheet1.Range("A1").Value

' 把完整原始数据存入TextBox的Tag属性
TextBox1.Tag = fullRawValue

' 处理显示内容：先去除所有空格，再取最后四位（若需保留空格的最后四位，直接用Right(fullRawValue,4)）
Dim cleanedValue As String
cleanedValue = Replace(fullRawValue, " ", "")
' 兼容长度不足四位的情况，避免出错
TextBox1.Text = IIf(Len(cleanedValue) >= 4, Right(cleanedValue, 4), cleanedValue)

2. 提取完整值时：直接读取Tag属性即可

Dim originalFullValue As String
originalFullValue = TextBox1.Tag
' 后续可直接使用originalFullValue做计算或写入操作

方案二：自定义类封装（适合多TextBox复用场景） #

如果你的UserForm里有多个需要这种处理的TextBox，可以写个简单的类模块封装逻辑：

1. 插入类模块，命名为MaskedTextBox，添加以下代码：

Private WithEvents tb As MSForms.TextBox
Private m_fullValue As String

Public Property Set TextBox(target As MSForms.TextBox)
    Set tb = target
End Property

Public Property Let FullValue(value As String)
    m_fullValue = value
    ' 处理显示逻辑
    Dim cleanedValue As String
    cleanedValue = Replace(value, " ", "")
    tb.Text = IIf(Len(cleanedValue) >= 4, Right(cleanedValue, 4), cleanedValue)
End Property

Public Property Get FullValue() As String
    FullValue = m_fullValue
End Property

2. 在UserForm代码里使用：

Private maskedTB As MaskedTextBox

Private Sub UserForm_Initialize()
    Set maskedTB = New MaskedTextBox
    Set maskedTB.TextBox = TextBox1
    ' 赋值完整数据
    maskedTB.FullValue = Sheet1.Range("A1").Value
End Sub

' 提取完整值时
Private Sub CommandButton1_Click()
    MsgBox maskedTB.FullValue
End Sub

两种方案都能满足需求：界面仅显示最后四位，同时可以随时获取原始完整数据。

内容的提问来源于stack exchange，提问作者Ahoycaptain10234