تطبيق التنسيق الشرطى داخل اليوزر فورم

[مختار حسين محمود]

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

اليوم  أقدم الى حضراتكم كودى الجديد الذى تستطيع من خلاله تطبيق التنسيق الشرطى داخل اليوزر فورم

أو بعبارة أخرى

نقل البيانات بالتنسيقات الشرطية من خلايا محددة الى كنترولات داخل اليوزر فورم  مثل التكست بوكس

وهذا تحقيقا لطلب أحد الزملاء و هو الأخ ابو راكان العودة   على هذا الرابط :

http://www.officena.net/ib/topic/65950-%D9%87%D9%84-%D9%8A%D9%85%D9%83%D9%86-%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D8%A7%D9%85-%D8%A7%D9%84%D8%AA%D9%86%D8%B3%D9%8A%D9%82-%D8%A7%D9%84%D8%B4%D8%B1%D8%B7%D9%8A-%D9%81%D9%8A-%D8%A7%D9%84%D9%8A%D9%88%D8%B2%D8%B1-%D9%81%D9%88%D8%B1%D9%85/

الكود و عليه الشرح :

  Option Base 1  ' التصريح بأن القيمة الافتراضية الصغرى فى المصفوفة = 1
  Private Sub UserForm_Activate()
' by Mokhtar 29/12/2015
' وظيفة الكود
' تطبيق التنسيق الشرطى على كنترول داخل اليوزرفورم
' --------------------------------------------
  ' التصريحات والمتغيرات
  Dim X As Integer
  Dim myArray As Variant
  myArray = Array("B2", "C2", "D2", "E2", "F2", "G2", "H2", "I2") ' مصادر التكست بوكس
  ' فى حالة حدوث خطأ ما تجاهله وانتقل الى الاجراء التالى
  On Error Resume Next
  ' حلقة تكرارية على التكست بوكس لتعبئته بالقيم والتنسيق الشرطى من المصادر
  ' ----------------------------------------------------------------------
   For X = 1 To 8     ' عدد التكست بوكس
         With Me.Controls("Textbox" & X) ' لكل تكست بوكس فى الثمانية
             
             ' مصدر نص التكست بوكس
             .Text = Sheets("ورقة1").Range(myArray(X)).Value '
             
             ' مصدر لون التكست بوكس
             .BackColor = Sheets("ورقة1").Range(myArray(X)).DisplayFormat.Interior.Color '
             
             ' مصدر لون خط التكست بوكس
             .ForeColor = Sheets("ورقة1").Range(myArray(X)).DisplayFormat.Font.Color '
             
         End With  ' With  انهاء جملة
     
    Next X ' انتقل الى التكست بوكس التالى
  ' فى حالة حدوث خطأ ما انتقل الى نقطة البداية
  On Error GoTo 0

End Sub

المرفق :

 

أتمنى أن يكون كودا  سهلا و مفيدا  لكم فى أعمالكم و برامجكم و أكوادكم  بإذن الله تعالى

و لا يفوتنى أن أوجه الشكر للأستاذ أبو راكان الذى أوحى لى بفكرة هذا  الكود

لا تنسونا بدعوة بظهر الغيب

تحياتى لكم  و كل عام و أنتم أقرب الى الله

 

Conditional Formatting on Userform by Mokhtar.rar

[ياسر العربى]

بارك الله فيك اخي الغالي استاذ مختار

فكرة جميلة ويمكن الاستفادة منها بطرق عدة

تقبل مروري المتواضع

[ياسر خليل أبو البراء]

مبدع كالعادة أخي الحبيب مختار

كم أعشق موضوعاتك الجديدة وأتابعها بكل شغف

تقبل وافر تقديري واحترامي

 

[Yasser Fathi Albanna]

أخى الحبيب الغالى / مختار

رائع ودائما تأتى بكل ما هو جديد ومفيد

كل سنة وإنت طيب

تقبل خالص تحياتى وتقديرى

 

[مختار حسين محمود]

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

أخى العزيز أبو دم لذيذ  ياسر العربى       أخى و أستاذى الجليل ياسر خليل    أخى و حبيبى الغالى ياسر  فتحى

و الله بجد يشرفنى مروركم  الكريم  على موضوعاتى 

لا حرمنا الله منكم  و لا  من طلاتكم  علينا

تحياتى

[KHMB]

السلام عليكم ورحمة الله

رائع جدا اخي مختار

جزاك الله خير

[إبراهيم ابوليله]

اخى مختار

ايه الجمال والحلاوه دى

زى ما قال اخونا ياسر خليل

دائما ما نحتاج لوقفه امال اعمالك الجميله

والتى تتسم بالبساطه

كود جميل  يوضع فى خزينه الاكواد

تقبل تحياتى

[مختار حسين محمود]

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

أخى العزيز أبى الحسن و الحسين  أشكرك و جزاكم الله خيرا  شرُفت بمرورك

أخى العزيز ابراهيم أبو ليله  

أشكرك شكرا جزيلا على هذه الثقة الغالية و أحمد الله عز و جل على توفيقه لى

وعلى أنى حققت لكم قدرا ولو كان يسيرا من المتعة مع الاكسل  جزاك الله خيرا  و شرُفت بمرورك الكريم

[محمد حسن المحمد]

أستاذنا الحبيب مختار 

ما شاء الله بارك الله...رحم الله من أسماك مختار فأنت مختار وتختار لنا كل ما يسمو بأفكارنا ويتفاعل معها.

مع فائق المحبة والتقدير

والسلام عليكم.

[مختار حسين محمود]

الأب الفاضل و أستاذنا الكبير   محمد حسن   السلام عليكم

تقبل الله دعائك و رحم  من أسماك محمداً  اللهم آمين آمين آمين

أشكرك شكرا جزيلا على هذه الكلمات الغالية و التى أعتبرها وساما على صدرى

أحبك فى الله و لك منى كل التحية و التقدير و الاعزاز  لشخصكم الكريم

 

 

 

[ابو راكان العودة]

بارك الله فيك اخي الغالي استاذ مختار وجزيت خيرا