【求助】请高手详解代码意思

hxgfkfb

代码详解.rar (12.59 KB, 下载次数: 11)

2011-10-26 11:33 上传

点击文件名下载附件 借用高手的代码，却不了解，希望高手能不厌其烦解释一下代码的意思，谢谢！

mqr66

提问的时候最好能把代码贴上来

hxgfkfb

Private Sub CommandButton1_Click()
Sheet1.Select
Dim aa$, bb$, aa1$, n%, r1
aa = TextBox1.Text
bb = TextBox2.Text
aa1 = Left(aa, 4)
Set r1 = Range("e:e").Find(aa1)
If Not r1 Is Nothing Then
    n = r1.Row
    If Cells(n, 5).Offset(1, 0) = "" Then
        Cells(n + 1, 5) = aa
        Cells(n + 1, 6) = bb
        TextBox1.Text = ""
        TextBox2.Text = ""
        Exit Sub
    ElseIf Len(Cells(n, 5).Offset(1, 0)) = 4 Then
        Range(Cells(n + 1, 4), Cells(n + 1, 6)).Select
        Selection.Insert Shift:=xlDown
        Cells(n + 1, 5) = aa
        Cells(n + 1, 6) = bb
        TextBox1.Text = ""
        TextBox2.Text = ""
        Exit Sub
    Else
        Do
            n = n + 1
            If Val(aa) < Cells(n, 5) Then
                Range(Cells(n, 4), Cells(n, 6)).Select
                Selection.Insert Shift:=xlDown
                Cells(n, 5) = aa
                Cells(n, 6) = bb
                TextBox1.Text = ""
                TextBox2.Text = ""
                Exit Sub
            Else
            End If
        Loop While Len(Cells(n + 1, 5)) <> 4
        Range(Cells(n + 1, 4), Cells(n + 1, 6)).Select
        Selection.Insert Shift:=xlDown
        Cells(n + 1, 5) = aa
        Cells(n + 1, 6) = bb
        TextBox1.Text = ""
        TextBox2.Text = ""
        Exit Sub
    End If
End If

End Sub

hxgfkfb

将代码贴出！

hxgfkfb

期待中……