عبدالسلام ابوالعوافي

فقط قم باطالة الفورم

تم حذف بعض الاكواد والادوات للاختصار .. جرب الان 2برنامج تنسيب.rar

بعد اذن اخي سليم .. كود مختصر اكثر Sub BorderCells() Selection.Borders.LineStyle = 0 If Application.WorksheetFunction.CountA(Selection) = 0 Then Exit Sub Selection.SpecialCells(2, 23).Borders.LineStyle = 1 End Sub

Sub BorderCells() Dim rng As Range Selection.Borders(xlEdgeLeft).LineStyle = 0 Selection.Borders(xlEdgeTop).LineStyle = 0 Selection.Borders(xlEdgeBottom).LineStyle = 0 Selection.Borders(xlEdgeRight).LineStyle = 0 Selection.Borders(xlInsideVertical).LineStyle = 0 Selection.Borders(xlInsideHorizontal).LineStyle = 0 For Each rng In Selection If Len(rng) <> 0 Then rng.Borders(xlEdgeLeft).LineStyle = 1 rng.Borders(xlEdgeTop).LineStyle = 1 rng.Borders(xlEdgeBottom).LineStyle = 1 rng.Borders(xlEdgeRight).LineStyle = 1 End If Next End Sub الكود يطبق علي الخلايا المحددة .. يمكن استبدال السليكشن بالنطاق المراد تطبيق الكود عليه

Book1.rar

اضغط Alt ثم اضغط D ثم اضغط L او يمكنك الذهاب الي تبويب البيانات "Data" ثم اضغط التحقق من صحة البيانات "Data Validation"

=AVERAGE(--N(INDIRECT(ROW(1:31)&"!A1"))) كنترول شفت انتر ملاحظة .. الملف لا يوجد به شيت 25 .. يجب اضافة الشيت كي تعمل المعادلة

Rng.MergeArea.Locked = True استبدل هذه مكان الخطا في الصورة اعلاه وان شاء الله تنحل المشكلة .. اما بخصوص عدم حصولك علي المقصود .. العلة في الكود بحد ذاته .. حيث انه يحمي الخلايا الممتلئة في الشيتات المحيمة بكلمة سر .. بمعنى . يجب حماية الشيت بكلمة السر قبل تنفيد الكود او قم بالتعديل علي الكود لكي يحمي كل الشيتات وان لم تكن محمية من قبل

يحدث الخطا عند الخلايا المدمجة .. ساحاول لاحقا التعديل علي الكود لحل المشكلة ان شاء الله

استاذنا ياسر .. لا يوجد مايدعو للاعتذار .. بل من الافضل احيانا ان تكون اكثر من اجابة للمشاركة"لاثراء الموضوع" .. ملاحظة .. قمت بالاعجاب للمشاركتك الاخيرة وهي الاعجاب رقم 6000 لحضرتك "نقاط السمعة"

الكود الاخير ينفد الاكواد السابقة بالترتيب Sub Code1() MsgBox 1 End Sub Sub Code2() MsgBox 2 End Sub Sub Code3() MsgBox 3 End Sub Sub Code4() MsgBox 4 End Sub Sub MainCode() Code1 Code2 Code3 Code4 End Sub جرب تنفد الكود الاخير وسوف تحصل علي مسجات متتالية

Sub Code1() ' your code End Sub Sub Code2() ' your code End Sub Sub Code3() ' your code End Sub Sub Code4() ' your code End Sub Sub MainCode() Code1 Code2 Code3 Code4 End Sub

جرب هذا . بعد التعديل علي كود اخونا عمر Omar_2.rar

جرب الان تكرار الكود في جميع الاوراق1.rar

لعله يفيد تكرار الكود في جميع الاوراق1.rar

لو ان القيم في المجموع ناتجة عن عمليات جمع يمكن ان يكون المرفق مفيد المصنف222.rar

بدلا من اسبتدال اسم الشيت Sheets("Sheet1") Sheets("Data") يمكنك استعمال رقم الشيت Sheets(1) وغير اسم الشيت كما تشاء

الحمد لله لرجوعك استاذنا ياسر .. واسال الله ان يتم فرحتنا برجوع اخونا صقر

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

Sub nexttick() Range("B1").Value = Range("B1").Value - TimeValue("00:00:01") If Range("B1").Value <= TimeValue("00:00:01") Then sheet3.Shapes("textbox1").Fill.forcolor.RGB = RGB(255, 0, 0) Else ActiveSheet.Shapes("TextBox 1").Fill.ForeColor.RGB = RGB(255, 255, 255) End If starttimer End Sub

مادة الحاسب الآلي القاضي.rar

جري تغير اعدادات الامان للماكرو

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

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

الاستاذ سليم قدم حل متكامل .. اما ماقدمته فهو معادلات كما في المرفق Test.rar