»yªk¦³»~??

sillykin

Private Sub CommandButton6_Click() '­×¥¿
With Sheet4
        .Cells(50, ColNr) = TextBox2
        .Cells(51, ColNr) = TextBox3
        .Cells(52, ColNr) = TextBox4
        .Cells(53, ColNr) = TextBox5
        .Cells(54, ColNr) = TextBox6
        .Cells(55, ColNr) = TextBox7
        
        
        ComboBox1.ListIndex = TextBox4
         
        
        With .ComboBox2
                For i = 0 To .ListCount - 1
                    If Left(Arr(i), 1) = Sheet4.Cells(53, ColNr) Then
                        .ListIndex = i
                        Exit For
                    End If
                Next i
            End With
           
            
            
            With .ComboBox3
                For i = 0 To .ListCount - 1
                    If Left(Arr2(i), 2) = Sheet4.Cells(54, ColNr) Then
                        .ListIndex = i
                        Exit For
                    End If
                Next i
               
            End With
        End With
    End If
End Sub

½Ð°ª¤âÀ°¦£¬Ý¤@¤U,»yªk¤W¦³»~???

sillykin

¦^´_ 1# sillykin


    ¤x¸Ñ¨M