求助：通过窗口录入向表格中写入数据

tsxiaoxu

我按照咱们教材上做的程序，但是在运行的时候发现。姓名和出生年月的单元格里无法输入数据。请各位高手给看一下。谢谢了。附件提示过大，我将代码放在这里吧Private Sub 确定_Click()
    If 姓名.Value = "" Or 性别.Value = "" Or 出生年月.Value = "" Then
        MsgBox "信息录入不完整，请重新输入！", vbExclamation, "错误提示"
        Exit Sub
    End If
    Dim xrow As Integer
    xrow = Range("A1").CurrentRegion.Rows.Count + 1
    Cells(xrow, "A") = 姓名.Value
    Cells(xrow, "B") = 性别.Value
    Cells(xrow, "C") = 出生年月.Value
    姓名.Value = ""
    性别.Value = ""
    出生年月.Value = ""
End Sub
窗体是附件中的图片样式。上面的代码是在确定按钮的单击事件中编写的。
单击确定以后，只是性别栏里的数据可以写入excel表中

ctp_119

没有附件就没有真相！！！

tsxiaoxu

我给放到切图里面了