识别(hg, ras)
Dim xbox As Object, Pd As Boolean
For xl = 1 To 20
Pd = 1
Select Case Sheets("Sheet1").Cells(2, xl).Value
Case "姓名": Set xbox = UserForm1.TextBox1
………
Case "日期": Set xbox = UserForm1.Label8
Case Else: Pd = 0
End Select
If ras = "save" Then
If Pd Then Sheets("Sheet1").Cells(hg, xl) = xbox'这段 运行时错误‘5’：无效的过程调用或参数 ，但是在另一个文件里正常，在微软里也正常，就是新做的出问题

解决了，没有声明hg as int…