تلوين الارقام فقط دون الاحرف

[ابو اسامة العينبوسي]

السلام عليكم

اخى ابو هادي شكرا لك

وهذه حسب طلبك

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
Dim s As Long
Const threes As String = "3"

For Each c In Selection
    s = 1
        With c
            .NumberFormat = "@"
            .Value = CStr(.Value)
            Do While InStr(s, c.Text, threes) > 0
                s = InStr(s, c.Text, threes)
                .Characters(s, 1).Font.Bold = True
                .Characters(s, 1).Font.Color = vbRed
                s = s + 1
            
            Loop
        
        End With
Next c

End Sub

[abumaher]

بارك الله فيك والاخوان جميعا

عمل رائع تسلم اخو ابو اسامه

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم



شاهد الملف المرفق و التعديل يتم بناء على الخليه "A1"



السلام عليكم

Target.rar

[ابو اسامة العينبوسي]

السلام عليكم و رحمه الله و بركاته

الخليه اخي هادي بها خليط من الارقام و الاحرف ( كود منتج ) مثلا (ADA123FG-253)

فيتم تلوين كل الارقم التي في رقم الكود فقط دون تلوين الاحرف

شاهد المرفق لو تكرمت

OMAR.rar

[هادى محمد المامون سالم]

السلام عليكم و رحمه الله و بركاته

الخليه اخي هادي بها خليط من الارقام و الاحرف ( كود منتج ) مثلا (ADA123FG-253)

فيتم تلوين كل الارقم التي في رقم الكود فقط دون تلوين الاحرف

شاهد المرفق لو تكرمت

بسم الله الرحمن الرحيم

لقد فهمت المثال , و لكنى لا احسن التعديل على الاكواد و لا احب الافتاء , عذرا اخى ابو اسامه

السلام عليكم

[ابو اسامة العينبوسي]

السلام عليكم و رحمه الله و بركاته

اخي هادي سالم جزاك الله خيرا كثيرا طيبا مباركا فيه

و مشكور جدا عاى متابعتك

ان استطعت ان احل المشكله ساطرح الحل ان شاء الله

مره اخرى اكرر شكري لك