VBA从入门到提高（链接贴，2006-01-23更新）

Ryan8001

谢谢分享！

leoleo2100

收藏了

积累学习再学习

谢谢lz辛苦

jinqiao0078

这个不得不做一下记号了  这个好的

palycoding

谢谢分享,学习了.

sncoco123

谢谢你！很简明扼要呀

375268527

谢谢分享。

ykx042907

太好了！谢谢！谢谢！谢谢！

mnznisme

优秀的学习材料

xijinlan

谢谢了，真的学到了不少东西！

ykx042907

Private Sub CommandButton1_Click() &m;*<}X  
    Dim renshu As Integer '人数 ]7c=PC  
    renshu = 3 ZXPX,~ 5o  
    Do While Cells(renshu, 1) <> "" (A.C]hD  
        If Me.ComboBox1.Text = Cells(renshu, 1) Then _ jlRlt  
            Cells(renshu, 6) = Me.TextBox2.Value +:/%3}
`  
            Cells(renshu, 7) = Me.TextBox3.Text SUK?z!f <i  
            Cells(renshu, 9) = Me.TextBox4.Value %E;'ln4h&,  
            Cells(renshu, 14) = Me.TextBox5.Value "Z+k=~(  
            Cells(renshu, 20) = Me.TextBox6.Value E' uZA  
            Cells(renshu, 21) = Me.TextBox7.Text wVtwx0|1  
            Cells(renshu, 12) = Me.TextBox8.Value *lJxH8\  
            Cells(renshu, 16) = Me.TextBox9.Value )fAUum  
            Cells(renshu, 13) = Me.TextBox10.Value |;{6& S  
            Exit Do X2"/%!65{  
        End If b| (: [nB  
        renshu = renshu + 1 V0Hj8}l;M  
    Loop uhq8   
    renshu = renshu + 1 M D#jj3y  
    If renshu >= a Then Exit Sub #B w0,\  
    Me.ComboBox1.Text = Cells(renshu, 1) tpx2 IE  
    Me.ComboBox2.Caption = Cells(renshu, 2) K:WDl;8 (d  
    Me.Label2.Caption = dept(Left$(Me.ComboBox1, 3)) ue>D 7\8  
            Me.TextBox2 = Cells(renshu, 6) #lO Mm9  
            Me.TextBox3 = Cells(renshu, 7) $<OD31T  
            Me.TextBox4 = Cells(renshu, 9) Pc]HP  
            Me.TextBox5 = Cells(renshu, 14) 4mbBmQV$#  
            Me.TextBox6 = Cells(renshu, 20).Text /zox$p$?h  
            Me.TextBox7 = Cells(renshu, 21) qcRs$-J  
            Me.TextBox8 = Cells(renshu, 12) c[
s4EUG  
            Me.TextBox9 = Cells(renshu, 16) 4 H&#q>  
            Me.TextBox10 = Cells(renshu, 13) ^kSqsT"  
    If Me.Label2.Caption = "喷油部" Then Me.TextBox5.SetFocus Else Me.TextBox2.SetFocus M UwMb!Z.s  
End Sub 7PF%76TO  
       请问大家：这里的 Me. 是什么意思？在什么时候用呀？这里若不用Me. ，可以吗？