Userform Text.Box 中的日期未显示插入的数据答案

【问题标题】：Date in Userform Text.Box not showing the data insertedUserform Text.Box 中的日期未显示插入的数据
【发布时间】：2017-01-16 08:03:38
【问题描述】：

我有一个简单的用户表单，其中有一个用户在其中插入日期的文本框和另一个用户在其中插入数字的文本框。当我尝试使用表单中的数据时，它不会显示插入的数据：日期显示为上午 12:00:00，数字显示为 0。

这是用户表单

Public Sub CancelButton_Click()
 Unload Me
 End
End Sub

Public Sub UserForm_Initialize()
 TextBox1.Value = ""
 TextBox2.Value = ""
End Sub

Public Sub btnOK_Click()
Dim xSO As Date
Dim ySO As String
 xSO = Format(TimeValue(TextBox1.Value), "dd.mm.yyyy")
 ySO = TextBox2.Value
Unload Me
End Sub

这是最小的子：

Public xSO As Long, ySO As Long
    Sub ffffff()
    Dim x As Date, y As String
            UserForm19.Show

             x = xSO 'Format(TextBox1.Value, "dd.mm.yyyy")
             y = ySO 'UserForm19.TextBox2.text

    MsgBox x
    MsgBox y

    End Sub

【问题讨论】：

标签： vba date outlook textbox userform

【解决方案1】：

您两次声明了 xSO 和 ySO。

从 Public Sub btnOK_Click() 中移除本地声明

Dim xSO As Date
Dim ySO As String

【讨论】：