تنسيق تلقائي

[أبوحازم]

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

جدول تلقائى.rar

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

 اليك مثالاً مع الشرح

جدول تلقائى cond format.rar

[أبوحازم]

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

تم تعديل فبراير 9, 2015 بواسطه أبوحازم

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

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

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

[KHMB]

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

الاستاذ سليم

كيفية طريقة تنقل المؤشر داخل الخلايا بالانتر  من B الي  F ثم يعاود من جديد من ال B وهكذا........

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

الأخ KHMB

اليك هذا الكود ربما يحل لك المشكلة

 

select BF.rar

[KHMB]

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

ليس المطلوب لكنة ممكن يفي بالغرض

نفس الملف اللي ارسلة االاخ ابو حازم حول تحديد إنتقال الانتر يسار وليس اسفل

ثم ضع  مؤشر الفارة في الخلية B4 واضغط انتر انتر انتر هو تلقائي لما يصل F4 يذهب الي B5 وهكذا

ليس هناك أي اكواد بالمصنف بالكامل.

شكرا جزيلا وجزاك الله خير وفي ميزان حسناتك

تم تعديل فبراير 9, 2015 بواسطه KHMB

[أبوحازم]

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

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

شكرا جزيلا جدا

[أبوحازم]

كيف يمكنني أجعل تنسيق مخطط (جدول ثنائ مثل هذا = كما هو في المرفق وعند كتابه تحت الجدول يظهرة نفس الجدول أعلاه . المرفق يوضح أكثر

جدول تلقائى cond format.rar

[أبوحازم]

للرفع

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

انسخ هذا الكود الى حدث الصفحة

Private Sub Worksheet_selectionChange(ByVal Target As Range)
lra = Cells(Rows.Count, 1).End(3).Row + 1
Set myrg = Range("a" & lra).Resize(1, 6)

If Target.Address = Range("a" & lra).Address And Target.Count = 1 Then

 If Cells(lra, 1).Offset(-1, 0).Value <> "" Then

    With myrg.Borders
        .LineStyle = xlDouble
        .Color = 682978
    End With
End If
End If

End Sub

[أبوحازم]

ياسلام ياسلام عليك يا 

سليم حاصبيا 

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

[أبوحازم]

بس كيف يمكنني أغير نوع الجدول و شكلة ويمشئ ( يعني تغيير جدول آخرفي هذا الكود كيف)

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

الحرف a   في الكود هو اول عامود في الجدول (العامود رقم واحد يمكنك استبداله)

الرقم 6 هو عدد اعمدة الجدول

الرقم 1 داخل هذه العبارة( Cells(Rows.Count, 1 هو رمز للعامود الاول  a=1 ,B=2 ,c=3 ....  و هكذا

يمكنك تغيير هذه المعطيات في اي كود جديد تكتبه

[أبوحازم]

Thank concept Good Excellent

[أبوحازم]

لم يعمل عندما كتبت في العمود c المفروض يطلع الجدول تلقائي بمجرد الكتابة في العمود c ياريت تعملوا المطلوب وشكرا والمرفق أدناه

Book1.rar

[ا بو سليمان]

هنا اعلام  مبدعة 

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

ربما كان المطلوب

borders salim.rar

[أبوحازم]

نعم هذا هو المطلوب بس أن أرت الكتابة في عمود آخر كيف أغير في الكود

Private Sub Worksheet_selectionChange(ByVal Target As Range)
'''''''''''''''''''''''''''''''''''''''''''''''''
On Error GoTo 1
 If Selection.Count > 1 Or Selection.Column <> 3 Or _
  Selection.Offset(-1, 0).Value = "" Then Exit Sub
  
Set myrange = Selection.Offset(-1, -2).Resize(1, 8)
 With myrange.Borders
        .LineStyle = xlDouble
        .Color = 682978
    End With
1:
End Sub
''''''''''''''''''''

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

في هذا الكود   الرقم 3 هو رقم العامود حيث الكنابة   في هذه الخالة C

في هذه العبارة  (Set myrange = Selection.Offset(-1, -2).Resize(1, 8

                                                              الرقم 8 هو عدد اعمدة الجدول

                                                              الرقم 2- هو عدد الخلايا للوصول الى اول عامود في الجدول من الخلية المحددة

                                                              الرقم 1- هو ازاحة للاعلى بمقدار صف واحد

تستطيع ان تغير هذه الارقام كما تريد

[أبوحازم]

شكرا جزيلا جدا للأخ 

سليم حاصبيا

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

واي شئ براجعك . وشكرا