使用 VBA 修剪问题

Question

所以下面的代码有时会起作用，有时它会添加我试图从文本字符串中删除的 & 符号（到复制缓冲区）。

代码的重点是将字符串从正确的位置复制到＆符号之前。但是，在随机场景中，它仍会添加与号。

Private Sub Block1_Enter()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim MyData As New DataObject
    Dim this As String
    Dim oldxt As String
    oldtxt = Block1.Text
    If InStr(Block1.Text, "&") > 0 Then
        this = Trim(Right(Block1.Text, InStr(Block1.Text, "&") - 1))
        Block1.Text = "End Date Copied" & this
        MyData.SetText this
        MyData.PutInClipboard
        Application.Wait (Now + #12:00:02 AM#)
        Block1.Text = oldtxt
    End If
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

有人可以尝试解释为什么它有时有效，有时无效吗？下面是一张图片，其中包含两个无法正常工作的示例

（澄清说明：下面显示的文本框值是来源值，而不是结果）

Answer 1

改用Mid$()：

this = Trim$(Mid$(Block1.Text, InStr(Block1.Text, "&") +  1))

Answer 2

您当前从字符串左侧获取& 的位置，然后使用此数字从字符串右侧获取日期；相反，您应该从字符串的Len 中减去& 的Instr 值，以获得剩余的字符。试试这个：

Private Sub Block1_Enter()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim MyData As New DataObject
    Dim this As String
    Dim oldxt As String
    oldtxt = Block1.Text
    If InStr(Block1.Text, "&") > 0 Then
        this = Trim(Right(Block1.Text, (Len(Block1) - InStr(Block1.Text, "&") - 1))
        Block1.Text = "End Date Copied" & this
        MyData.SetText this
        MyData.PutInClipboard
        Application.Wait (Now + #12:00:02 AM#)
        Block1.Text = oldtxt
    End If
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

这些日期特别是错误的原因是因为第二个日期的字符长度比第一个日期的字符长度短。