وعليكم السلام أخي الكريم أشرف
في الحقيقة أشعر أن موضوعاتك ليست واضحة بما فيه الكفاية ، وهذا يجعل الأعضاء يمتنعون عن المشاركة أو أن الأعضاء يشاركون والموضوع يطول بدون داعي .. لابد من ذكر كافة التفاصيل وشكل النتائج المتوقعة
عموماً حسب فهمي للطلب يمكنك إنشاء فورم بسيط عليه تكست بوكس وزر أمر ، بحيث تقوم أولاً باختيار اللون المطلوب من خلال الضغط على زر الأمر ثم تكتب رقم الموظف في التكست بوكس ثم تضغط إنتر فيتم تلوين رقم الموظف باللون الذي تم اختياره مسبقاً من خلال زر الأمر
إليك الكود
Dim lColor As Long
Private Sub CommandButton1_Click()
If Application.Dialogs(xlDialogEditColor).Show(10, 0, 125, 125) = True Then
lColor = ActiveWorkbook.Colors(10)
End If
TextBox1.SetFocus
End Sub
Private Sub TextBox1_AfterUpdate()
Dim x
If lColor = 0 Then MsgBox "Select Color First", vbExclamation: Exit Sub
x = Application.Match(Val(TextBox1.Value), Sheet1.Columns(1), 0)
If Not IsError(x) Then
Sheet1.Cells(x, 1).Interior.Color = lColor
End If
TextBox1.Text = Empty
End Sub