طلب تلوين الصف بمجرد الوقوف على الخلية

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

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

طلب كود تلوين الصف بمجرد الوقوف على الخلية في ورقة 1

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

تلوين الصف.zip

[الصـقر]

اخى الكريم

جرب هذا الكود

Private Sub Worksheet_SelectionChange(ByVal x As Range)
ActiveSheet.Cells.Interior.ColorIndex = 0
x.EntireRow.Interior.ColorIndex = 4
End Sub

شاهد المرفق

تقبل تحياتى

تلوين الصف.zip

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

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

بارك الله فيك وجزاك كل خير اخي الصـقر ملاحظة صغيرة جزاك كل خير اريد طريقة في خفاء تلوين في طباعة

تم تعديل أبريل 23, 2016 بواسطه عبدالواحد احمد

[الصـقر]

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

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

مشكة  اخي بي يظهار خط اسود في ورقة طباعة

  هده صورة من الورقة التي تم طباعتهاه الان اريد عند طباعة يختافي  الون  بي تبقى الورقة عدية

هد ربط صورة

تم تعديل أبريل 23, 2016 بواسطه عبدالواحد احمد

[الصـقر]

اخى الكريم

جرب الملف اللى انا ارفقته لك

انا جربت طباعه ورقه عندى لا يظهر اللون بالطباعه

الخط الاسود هو تنسيق الجدول اللى انت عملته 

انا مش شايف اى مشكله عندى

تقبل تحياتى

تم تعديل أبريل 23, 2016 بواسطه الصـقر

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

بارك الله فيك أخي الغالي حسام

يمكن تجربة الكود التالي في حدث المصنف بحيث يتم إزالة التلوين قبل الطباعة

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    ActiveSheet.Cells.Interior.ColorIndex = 0
End Sub

 

[الصـقر]

اخى الحبيب ابوالبراء

الموضوع ممكن يكون بدون اكواد

من شريط القوائم اختر Pagelayout  ثم اختر Print titles هتظهر لك قائمه  اختر اخر شئ وهو sheet  ثم من الجزء الخاص بـ  Print  ضع علامه صح بجوار Black and white

تقبل تحياتى

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

فكرة جميلة أيها الصقر .. بارك الله فيك وجزاك الله كل خير

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

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

أخي الغالي حسام  و اخى ياسر ابوالبراء  بارك الله فيكم وجزاكم الله كل خير

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

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

المساعدة في دمج اكواد كيف احل هده المشكلة

 

 

 

 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Not Intersect(Target, Range("E3")) Is Nothing Then
    UserForm2.Show
  End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal x As Range)
ActiveSheet.Cells.Interior.ColorIndex = 0
x.EntireRow.Interior.ColorIndex = 4
End Sub

 

تم تعديل أبريل 23, 2016 بواسطه عبدالواحد احمد

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

جرب التالي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("E3")) Is Nothing Then
        UserForm2.Show
    End If

    ActiveSheet.Cells.Interior.ColorIndex = 0
    ActiveCell.EntireRow.Interior.ColorIndex = 4
End Sub

 

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

بارك الله فيك وجزاك كل خير اخي ياسر خليل أبو البراء

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

وجزيت خيراً بمثل ما دعوت لي أخي العزيز عبد الواحد

تقبل تحياتي

[نايف - م]

شكرا أخي ياسر 

سؤال

هل يمكن أن أحدد الخلايا التي أريد تلوينها - بدلا من السطر كله - يعني من الخلية A للخلية H  في صف الخلية النشطة 

 

[أبو حنــــين]

يكون الكود بهذا الشكل

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    ActiveSheet.Cells.Interior.ColorIndex = 0
    Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 8)).Interior.ColorIndex = 4

End Sub

 

[نايف - م]

جميل جدا هو المطلوب

شكرا

[أبو حنــــين]

الحمد لله

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

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

اخي  في الله كود رائع

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

[أبو حنــــين]

أخي عبد السلام

أنعمت مساءا

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