طلب كود تسطير الخلايا أليا بمجرد ادخال البيانات فيها

[زياد عبد الجليل]

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

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

صادر وارد شوقي.rar

[الشهابي]

أخي العزيز / زياد

يمكن عمل ذلك من خلال التنسيق الشرطي للأكسل

لاحظ الصور 

صادر وارد شوقي.rar

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

السلام عليكم تريد كود للتسطير الآلى  جرب الكود ده ضعه فى حدث الورقة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
  Application.ScreenUpdating = False
      If Not Intersect(Target, Range("A2:i100")) Is Nothing Then
          With Selection
              .BorderAround ColorIndex:=xlAutomatic, Weight:=xlMedium
          End With
      End If
 Application.ScreenUpdating = True
End Sub

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

[زياد عبد الجليل]

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

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

نحن في انتضار مرور العملاق ياسر الخليل 

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

أخي الكريم زياد

بارك الله فيك وجزيت خيراً

وأنا لست بعملاق إنما أنا ما زلت وسأظل في مرحلة التعلم .. ومشكور على ثقتك الكبيرة

أعتقد أن حل الأخ الحبيب الشهابي يفي بالغرض .. بعيداً عن الاكواد

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

وعليكم السلام ورحمة الله وبركاته آخى الكريم زياد 

دعك من الكود الخاص بمشاركتى الماضية فقد تم التعديل على الأكواد التى فى الفورم  بمجرد اضافة بيانات عن طريق الفورم يحدث التسطير

جرب وشوف الملف المرفق

 

تسطير آلى.rar

[زياد عبد الجليل]

شككككككككرا لك اخي مختار والله هذا هو المطلوب بالضبط عن طريق اليوزرفورم شكرا وبارك الله فيك 

[زياد عبد الجليل]

وعليكم السلام ورحمة الله وبركاته آخى الكريم زياد 

دعك من الكود الخاص بمشاركتى الماضية فقد تم التعديل على الأكواد التى فى الفورم  بمجرد اضافة بيانات عن طريق الفورم يحدث التسطير

جرب وشوف الملف المرفق

 

تسطير آلى.rar

شككككككككرا لك اخي مختار والله هذا هو المطلوب بالضبط عن طريق اليوزرفورم شكرا وبارك الله فيك 

 

 

[قصي]

شكراااااا

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

آخى زياد بارك الله فيك

الحمد لله أننا وفقنا فى اجابة سؤالك

[طاهر محمد]

أخي الكريم زياد

بارك الله فيك وجزيت خيراً

وأنا لست بعملاق إنما أنا ما زلت وسأظل في مرحلة التعلم .. ومشكور على ثقتك الكبيرة

أعتقد أن حل الأخ الحبيب الشهابي يفي بالغرض .. بعيداً عن الاكواد

اخي الكريم ا/ الشهابي & ا / ياسر

هل من الممكن بإستخدام التنسيق الشرطي  ان يتم التسطير لكل الخلايا ( التسطير) عندما ندخل بيانات في اول خليه ( رقم المورد )

حيث ان الخلايا التي ليست بها بيانات ل يتم تسطيرها ( المراد تسطير المدي المطلوب بعلومية خليه في اول الصف)

[طاهر محمد]

 

اخي الكريم ا/ الشهابي & ا / ياسر

هل من الممكن بإستخدام التنسيق الشرطي  ان يتم التسطير لكل الخلايا ( التسطير) عندما ندخل بيانات في اول خليه ( رقم المورد )

حيث ان الخلايا التي ليست بها بيانات ل يتم تسطيرها ( المراد تسطير المدي المطلوب بعلومية خليه في اول الصف)

اخي الكريم ا/ الشهابي & ا / ياسر

هل من الممكن بإستخدام التنسيق الشرطي  ان يتم التسطير لكل الخلايا ( التسطير) عندما ندخل بيانات في اول خليه ( رقم المورد )

حيث ان الخلايا التي ليست بها بيانات ل يتم تسطيرها ( المراد تسطير المدي المطلوب بعلومية خليه في اول الصف)

[محمد عبدالسلام]

اخي  طاهر محمد إستخدام التنسيق الشرطي من الخلال دالة التسطير

=AND($E10<>"";$E10>1)