اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by مختار حسين محمود,

الردود الموصى بها

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

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

صادر وارد شوقي.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

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

رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

 

تسطير آلى.rar

  • Like 1
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

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

 

تسطير آلى.rar

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

 
 
رابط هذا التعليق
شارك

  • 2 weeks later...

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 2 weeks later...

 

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

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

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information