这段代码我看不懂，希望有高手能解释一下！

臭豆腐hs

这是Excel中设计的窗体中的“增加”按钮代码，即输入一个新数据，通过点此按钮，可以使这个新数据添加到表中
Private Sub 新增_Click()
Dim n As Long, i As Integer
Static intclickcount As Integer
intclickcount = intclickcount + 1
If intclickcount <> 1 Then
  For i = 0 To UBound(myarray)
  If myarray(i) = "备注" Then Exit For
  If Me.Controls(myarray(i)).Value = "" Then
  MsgBox myarray(i) & "不能为空！", vbCritical
  Me.Controls(myarray(i)).SetFocus
  Exit Sub
  End If
  Next
n = Sheet2.Range("A65536").End(xlUp).Row + 1
For i = 1 To UBound(myarray) + 1
Sheet2.Cells(n, i) = Me.Controls(myarray(i - 1)).Value
Next

Sheet2.Columns.AutoFit
MsgBox "员工信息添加成功"
工号.SetFocus
现状.ListIndex = 0
ThisWorkbook.Save
Else
新增.Caption = "添加"
End If
For i = 0 To 7
     姓名.Enabled = True
     工龄.Enabled = True
     入职日期.Value = Now()
     离职日期.Value = Now()
     Me.Controls(myarray(i)).Value = ""
Next
For i = 10 To 16
     姓名.Enabled = True
     工龄.Enabled = True
     Me.Controls(myarray(i)).Value = ""
Next
  
End Sub

doitbest

如果没有基础，很难说清楚