ارجوا المساعده في تعديل هذا الكود
لانه يعمل على ابطاء البرنامج بشكل رهيب
Dim i As Integer
Dim m As String
m = Me.ComboBox1.Text
For i = 2 To 10000
If m = Cells(i, 2) Then
Cells(i, 5) = y1.Text
End If
Next
m = Me.ComboBox2.Text
For i = 2 To 10000
If m = Cells(i, 2) Then
Cells(i, 5) = y2.Text
End If
Next
m = Me.ComboBox3.Text
For i = 2 To 10000
If m = Cells(i, 2) Then
Cells(i, 5) = y3.Text
End If
Next
m = Me.ComboBox4.Text
For i = 2 To 10000
If m = Cells(i, 2) Then
Cells(i, 5) = y4.Text
End If
Next
m = Me.ComboBox5.Text
For i = 2 To 10000
If m = Cells(i, 2) Then
Cells(i, 5) = y5.Text
End If
Next
m = Me.ComboBox6.Text
For i = 2 To 10000
If m = Cells(i, 2) Then
Cells(i, 5) = y6.Text
End If
Next
m = Me.ComboBox7.Text
For i = 2 To 10000
If m = Cells(i, 2) Then
Cells(i, 5) = y7.Text
End If
Next
m = Me.ComboBox8.Text
For i = 2 To 10000
If m = Cells(i, 2) Then
Cells(i, 5) = y8.Text
End If
Next
m = Me.ComboBox9.Text
For i = 2 To 10000
If m = Cells(i, 2) Then
Cells(i, 5) = y9.Text
End If
Next
m = Me.ComboBox10.Text
For i = 2 To 10000
If m = Cells(i, 2) Then
Cells(i, 5) = y10.Text
End If
Next
m = Me.ComboBox11.Text
For i = 2 To 10000
If m = Cells(i, 2) Then
Cells(i, 5) = y11.Text
End If
Next
m = Me.ComboBox12.Text
For i = 2 To 10000
If m = Cells(i, 2) Then
Cells(i, 5) = y12.Text
End If
Next