أبوحازم قام بنشر فبراير 8, 2015 مشاركة قام بنشر فبراير 8, 2015 الأخوه الافاضل عندي ملف به تنسبق تلقائي بمجرد كتابة تحت الجدول مباشر يظهر التنسيق بس الذي اريدة كيف عمل هذا التنسيق التلقائي لانني عندي جدوال اخرى اريد به نفس الشئ ياريت تعلموني هذا وشكككرا جزيلا جدا جدول تلقائى.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 8, 2015 مشاركة قام بنشر فبراير 8, 2015 اليك مثالاً مع الشرح جدول تلقائى cond format.rar 1 رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر فبراير 9, 2015 الكاتب مشاركة قام بنشر فبراير 9, 2015 (معدل) بس كيف النسخ الى جداول كثيرة بدون أعادة التنسيق من جديد تم تعديل فبراير 9, 2015 بواسطه أبوحازم رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 9, 2015 مشاركة قام بنشر فبراير 9, 2015 لا بد من اعادة تنسيق كل جدول بمفرده لان عدد الصفوف و الاعمدة بالاضافة الى عناوين الخلايا في الجدوال مختلفة من جدول الى اخر رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر فبراير 9, 2015 مشاركة قام بنشر فبراير 9, 2015 السلام عليكم ورحمة الله الاستاذ سليم كيفية طريقة تنقل المؤشر داخل الخلايا بالانتر من B الي F ثم يعاود من جديد من ال B وهكذا........ رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 9, 2015 مشاركة قام بنشر فبراير 9, 2015 الأخ KHMB اليك هذا الكود ربما يحل لك المشكلة select BF.rar 1 رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر فبراير 9, 2015 مشاركة قام بنشر فبراير 9, 2015 (معدل) السلام عليكم ورحمة الله ليس المطلوب لكنة ممكن يفي بالغرض نفس الملف اللي ارسلة االاخ ابو حازم حول تحديد إنتقال الانتر يسار وليس اسفل ثم ضع مؤشر الفارة في الخلية B4 واضغط انتر انتر انتر هو تلقائي لما يصل F4 يذهب الي B5 وهكذا ليس هناك أي اكواد بالمصنف بالكامل. شكرا جزيلا وجزاك الله خير وفي ميزان حسناتك تم تعديل فبراير 9, 2015 بواسطه KHMB رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر فبراير 10, 2015 الكاتب مشاركة قام بنشر فبراير 10, 2015 لا بد من اعادة تنسيق كل جدول بمفرده لان عدد الصفوف و الاعمدة بالاضافة الى عناوين الخلايا في الجدوال مختلفة من جدول الى اخر شكرا جزيلا جدا رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر يونيو 25, 2015 الكاتب مشاركة قام بنشر يونيو 25, 2015 كيف يمكنني أجعل تنسيق مخطط (جدول ثنائ مثل هذا = كما هو في المرفق وعند كتابه تحت الجدول يظهرة نفس الجدول أعلاه . المرفق يوضح أكثر جدول تلقائى cond format.rar رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر يونيو 25, 2015 الكاتب مشاركة قام بنشر يونيو 25, 2015 للرفع رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 25, 2015 مشاركة قام بنشر يونيو 25, 2015 انسخ هذا الكود الى حدث الصفحة 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 1 رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر يونيو 27, 2015 الكاتب مشاركة قام بنشر يونيو 27, 2015 ياسلام ياسلام عليك يا سليم حاصبيا بدعت شكرا جزيلا جدا و اي شئ براجعك رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر يونيو 27, 2015 الكاتب مشاركة قام بنشر يونيو 27, 2015 بس كيف يمكنني أغير نوع الجدول و شكلة ويمشئ ( يعني تغيير جدول آخرفي هذا الكود كيف) رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 27, 2015 مشاركة قام بنشر يونيو 27, 2015 الحرف a في الكود هو اول عامود في الجدول (العامود رقم واحد يمكنك استبداله) الرقم 6 هو عدد اعمدة الجدول الرقم 1 داخل هذه العبارة( Cells(Rows.Count, 1 هو رمز للعامود الاول a=1 ,B=2 ,c=3 .... و هكذا يمكنك تغيير هذه المعطيات في اي كود جديد تكتبه رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر يونيو 27, 2015 الكاتب مشاركة قام بنشر يونيو 27, 2015 Thank concept Good Excellent رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر يوليو 5, 2015 الكاتب مشاركة قام بنشر يوليو 5, 2015 لم يعمل عندما كتبت في العمود c المفروض يطلع الجدول تلقائي بمجرد الكتابة في العمود c ياريت تعملوا المطلوب وشكرا والمرفق أدناه Book1.rar رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر يوليو 5, 2015 مشاركة قام بنشر يوليو 5, 2015 هنا اعلام مبدعة رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 6, 2015 مشاركة قام بنشر يوليو 6, 2015 ربما كان المطلوب borders salim.rar رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر يوليو 6, 2015 الكاتب مشاركة قام بنشر يوليو 6, 2015 نعم هذا هو المطلوب بس أن أرت الكتابة في عمود آخر كيف أغير في الكود 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 '''''''''''''''''''' رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يوليو 6, 2015 أفضل إجابة مشاركة قام بنشر يوليو 6, 2015 في هذا الكود الرقم 3 هو رقم العامود حيث الكنابة في هذه الخالة C في هذه العبارة (Set myrange = Selection.Offset(-1, -2).Resize(1, 8 الرقم 8 هو عدد اعمدة الجدول الرقم 2- هو عدد الخلايا للوصول الى اول عامود في الجدول من الخلية المحددة الرقم 1- هو ازاحة للاعلى بمقدار صف واحد تستطيع ان تغير هذه الارقام كما تريد رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر يوليو 7, 2015 الكاتب مشاركة قام بنشر يوليو 7, 2015 شكرا جزيلا جدا للأخ سليم حاصبيا حيث أفادني كثيرا جدا وأتعب نفسه جزاه الله عني ألف خير ورزقة من حيث لا يحتسب. تقبل تحياتي واي شئ براجعك . وشكرا رابط هذا التعليق شارك More sharing options...
.jpg.6f51c6e05b5460949df3e01688b51cb2.thumb.jpg.dbc3b76caf14da5d9e594177ae5e43d5.jpg)
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان