إبراهيم العبادى قام بنشر يوليو 2, 2020 مشاركة قام بنشر يوليو 2, 2020 بسم الله الرحمن الرحيم نظرا لأنى مبعرفشى اطرح سؤالى كويس ده ملف اكسيل حاطط فيه المطلوب اللى انا عايزه اللى هوا تلوين كل ثلاث أرقام بلون مختلف مثل كرقم الموبايل المطلوب.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يوليو 2, 2020 أفضل إجابة مشاركة قام بنشر يوليو 2, 2020 حرب هذا الملف Option Explicit Sub Get_Color() Dim My_Regex As Object Dim x%, m%, La%, t% Dim arrWords, Arr() ReDim Arr(4) Arr(0) = 3: Arr(1) = 14: Arr(2) = 5: Arr(3) = 3 Set My_Regex = CreateObject("VBScript.RegExp") My_Regex.Pattern = "(\d{3})" My_Regex.Global = True With Sheets("Sheet1") La = .Cells(Rows.Count, 3).End(3).Row m = 1 With .Range("E6:E" & La) .Font.ColorIndex = 1 .ClearContents End With For t = 6 To La .Range("E" & t) = .Range("C" & t) If My_Regex.test(.Range("E" & t)) Then Set arrWords = My_Regex.Execute(.Range("E" & t)) For x = 0 To arrWords.Count - 1 Range("E" & t).Characters(m, 3) _ .Font.ColorIndex = Arr(x) m = m + 3 Next x End If m = 1 Next t End With End Sub الملف مرفق Abbadi.xlsm 5 1 رابط هذا التعليق شارك More sharing options...
إبراهيم العبادى قام بنشر يوليو 3, 2020 الكاتب مشاركة قام بنشر يوليو 3, 2020 شكرا لك أستاذ سليم على ذلك الابداع وعلى فكرة حضرتك فدتنى قبل كده شكرا ليك مرة تانية وجعله الله فى ميزان حساناتك 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يوليو 3, 2020 مشاركة قام بنشر يوليو 3, 2020 تمام أوى إبراهيم العبادى أين الضغط على الإعجاب لهذا الكود الممتاز ؟!!!!💙 بارك الله فيك استاذ سليم كود رائع جعله الله فى ميزان حسناتك 2 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 4, 2020 مشاركة قام بنشر يوليو 4, 2020 شكر وتقدير واحترام استاذ سليم بارك الله فيك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.