اريد كود لتلوين خلية وعمود

[محمد الورفلي1]

اريد كود لتلوين خلية وعمود  على هيئة حرف L وليس تنسيق شرطي

 

 

اريد كود لتلوين خلية وعمود على هيئة حرف L.rar

 

[سليم حاصبيا]

السلام عليكم 

الحل في المرفق

لتلوين الخلية يجب ان تضغط double click 

talweeni.rar

[رجب جاويش]

السلام عليكم

أخى الفاضل / سليم

تسلم ايديك

ولإثراء الموضوع هذا حل آخر

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R_N As Integer
Dim C_N As Integer
Dim i As Integer
Dim ii As Integer
'===========================================
Cells.Interior.ColorIndex = 0
R_N = ActiveCell.Row
C_N = ActiveCell.Column
'===========================================
For i = 1 To R_N
    Cells(i, C_N).Interior.ColorIndex = 6
Next
For ii = 1 To C_N
    Cells(R_N, ii).Interior.ColorIndex = 6
Next
Cells(R_N, C_N).Interior.ColorIndex = 5
End Sub

تلوين الصف والعمود الخاص بالخلية النشطة.rar

[محمد ابو البـراء]

استاذي الحبيب // رجب جاويش

قمة الابداع باقصر الطرق..

10/10

[محمد الورفلي1]

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

[سليم حاصبيا]

استاذي

انا عملت الكود على double click  ليكون الموضوع اختيارياً بالتلوين 

[رجب جاويش]

أخى الفاضل / أبو إيمان

جزاك الله كل خير

[رجب جاويش]

أخى الحبيب / محمد أبو البراء

جزاك الله كل خير

[رجب جاويش]

أخى الفاضل / محمد الخازمي

جزاك الله كل خير

[محمد الورفلي1]

اخى الفاضل / رجب جاويش  ظهرت لى مشكلة اعتقد انها صغيرة  عند تامين الشيت بحماية الخلية التي بها معادلات ظهرت هذه الرسالة

 

 

 

 

تم تعديل مايو 10, 2014 بواسطه محمد الخازمي

[رجب جاويش]

أخى الفاضل / محمد

ضع السطر التالى فى أول الكود

ActiveSheet.Unprotect

والسطر التالى فى آخر الكود

ActiveSheet.Protect

[رجب جاويش]

واذا كانت الحماية بكلمة مرور ( مثلا 123 )

يكون السطر الأول هكذا

ActiveSheet.Unprotect "123"

والسطر الأخير هكذا

ActiveSheet.Protect "123"

[محمد الورفلي1]

الاخ الفاضل رجب  بارك الله فيك وزادك الله من علمه ورحم الله الام التي خلفتك وجعلهة ان شاء الله في ميزان حسناتك وحسنات والدتك رحمها الله .

 

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

 

http://www.officena.net/ib/index.php?showtopic=53698

[احمد غانم]

 

السلام عليكم

أخى الفاضل / سليم

تسلم ايديك

ولإثراء الموضوع هذا حل آخر

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R_N As Integer
Dim C_N As Integer
Dim i As Integer
Dim ii As Integer
'===========================================
Cells.Interior.ColorIndex = 0
R_N = ActiveCell.Row
C_N = ActiveCell.Column
'===========================================
For i = 1 To R_N
    Cells(i, C_N).Interior.ColorIndex = 6
Next
For ii = 1 To C_N
    Cells(R_N, ii).Interior.ColorIndex = 6
Next
Cells(R_N, C_N).Interior.ColorIndex = 5
End Sub

الأخ الكريم رجب جاويش العزك المولى 

كود رائع كما عودتنا

لكن هناك مشكلة انه لا يسمح بتلوين خلفية الخلايا من خلال التنسيق

هل من طريقة لتخطيها؟\

تقبل جزيل الشكر و التقدير

[محمد الورفلي1]

خى الفاضل / رجب جاويش   هل لديك حل  للمشاركة رقم 15 مع احترامي  

[سليم حاصبيا]

اخي احمد

اليك هذا الملف حسب طلبك

يمكنك رسم حرف L

كما يمكنك تعبئة الخلايا باللون المناسب

للحصول على حرف     double click  L

تنسيق مع تعبئة.rar