يوسف عطا

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

السلام عليكم أحيييكم على الأفكار الجميلة والجديدة ويمكن تعديل بسيط فى تنسيق الخلية لإضافة اليوم كالتالى dddd dd" من شهر "mmmm" سنة "yyyy

للرفع رفع الله قدركم وبلغكم آمالكم ونفع الناس بعلمكم وجعل أعمالكم فى موازين حسناتكم

أخى الغالى عبدالله زى ماقولتلك أكيد إيدك فيها البركة لأنى أكتر من مرة أحاول اشغل الكود فى الملف إللى عاوز اشتغل فيه لكن مش بيرضى وحتى الآن مش عارف السبب على كل حال لو مافيهاش تعب لمعاليكم مرفق الملف الرجاء تشغيل الكود به فى شيت رقم 13 علماً بإن إعدادات التحقق من الصحة تم إعدادها وفى نفس الشيت كود آخر لتنشيط خلية محددة عندما أقوم بتفعيل الكودين يتعارضان ولو تكرمتم فك التعارض بينهما شاكر أفضال معاليكم أخى الغالى وجعل أعمالك فى موازين حسناتك اليوزر يوسف الباسوورد 111 http://www.mediafire...6z9uoew8c8wiob9 للرفع رفع الله قدركم وبلغكم آمالكم ونفع الناس بعلمكم وجعل أعمالكم فى موازين حسناتكم

الله ينور على معاليكم جمال بك

أخى الغالى خبور خير أسأل الله لك داعياً اللهم ذده علماً وأدعو للجميع اللهم إنفعنا بعلمه وأنعم علينا بمثله وفقك الله

أين المرفق ؟؟

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

للرفع رفع الله قدركم علماً بأن الملف مفروض يقوم بالتالى 1. وضع دوائر حمراء حول الدرجات الأقل من الحد الأدنى 2. يقوم الكود برسم الدائرة وتحديد خصائصها 3. عن طريق أمر التحقق من الصحة من قائمة بيانات يتم تحديد الخلايا التى يجب أن توضع حولها الدائرة والله الموفق لو الأمر كذلك أخى عبدالله هل تسمح لى أن أرفق لسيادتكم الملف الذى أريد نقل الكود إليه وأكيد إيديكم فيها البركة وسوف يعمل الملف كما يجب

الله ينور عليك أخى الغالى

أخى عبدالله السلام عليكم هل الدوائر الحمراء تظهر وتختفى مع تغيير الشهادات ؟؟ أم تظل ثابتة مهما تغيرت الدرجات ؟؟ وهل عند تفعيل الكودين الموجودين فى حدث الشيت يعملان جيداً أم لا ؟؟ رجاء إرفاق الملف الجديد الى نقلت إليه الكود

تكرر هذا الأمر معى عدة مرات وأقوم بإغلاق المتصفح وأفتحه مرة أخرى فتزول المشكلة أو أغير المتصفح لمتصفح آخر فتزول المشكلة

حسب ما فهمت الكود يمكن أن يعمل على عدة أوراق ومربوط بزر يشغل الكود فى هذه الأوراق (كل ورقة فيها نسخة من الزر) عند الرغبة فى تشغيل الكود نضغط على الزر فى ورقة ما من الأوراق المذكورة فى الكود فى هذه الحالة الكود يعمل فى هذه الورقة فقط أم فى كل الأوراق ؟؟ نقطة أخرى أحب أن الفت إليها الإنتباه حيث عند التجربة بملف يخصنى وبه أوراق عديدة كنت أضطر لضغط الزر مرتين فى كل ورقة لكى ينسخ كل المعادلات فالضغطة الأولى كانت تشغل معظم المعادلات والضغطة الثانية كانت تشغل آخر معادلة حيث تأخذ نتائجها من المعادلات التى تم تشغيلها بالضغطة الأولى

الأخ الغالى عبدالله بك دامت أفضالك تفضل الملف مع ملاحظة التالى لكى يعمل الكود تم تظبيط أمر التحقق من الصحة من قائمة بيانات على الخلايا التى يجب على الكود أن يعمل بها والكود يعمل بتغيير رقم الشهادة من الخلية الزرقاء والمطلوب فضلاً بإختصار هو 1. شرح الكود سطر سطر 2. تحديد ماذا نفعل عند نقله لملف آخر حيث ينبغى أن يوضع الكود فى ملف كبير يحتوى على 33 شيت منها شيت رقم 13 وهو طبق الأصل للملف المرفق 3. بحدث الشيت الكود المقصود وكود آخر كلما فعلت الكودين يتعارضان ويتوقف الملف بينما كل كود بمفرده يعمل جيداً فالرجاء فك الإشتباك بينهما ليعملان معاً أعتذر لو أطلت عليك رغم علمى بمشغولياتك وشاكر أفضالك مقدماً أخى الغالى دمت بكل ود دوائرشهادات.rar

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

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

للرفع رفع الله قدركم وبلغكم مرادكم

الرجاء المساعدة من السادة الأعزاء الكود المرفق يوضع فى حدث الشيت لرسم دوائر حمراء حول الأرقام فى الخلايا التى بها أرقام أقل من حد معين حسب أمر التحقق من الصحة فى قائمة بيانات الكود يعمل تمام التمام فى الملف الموجود فيه ولكن عند نقله لملف آخر لا يعمل إطلاقاً مع أن الشيت الذى أنقله إليه نسخة طبق الأصل من الشيت الموجود به الكود كذلك عندما نسخت الشيت بالكود للملف لم يعمل كذلك المطلوب بإختصار 1. شرح كل سطر فى الكود 2. مساعدتى فى أن يعمل الكود فى الملف الآخر Private Sub Worksheet_Change(ByVal Target As Range) Dim DataRange As Range Dim c As Range Dim count As Integer Dim o As Shape On Error GoTo errhandler For Each o In ActiveSheet.Shapes If o.Name Like "InvalidData_*" Then o.Delete Next Set DataRange = Cells.SpecialCells(xlCellTypeAllValidation) count = 0 For Each c In DataRange If Not c.Validation.Value Then Set o = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) o.Fill.Visible = msoFalse o.Line.ForeColor.SchemeColor = 10 o.Line.Weight = 2 count = count + 1 o.Name = "InvalidData_" & count End If Next Exit Sub errhandler: End Sub شاكر أفضال معاليكم

صباح الخيرات أخونا الغالى جمال بك دغيدى دمتم بكل خير عوناً لجميع الأخوة حفظكم الله

أخى حسن أنظر إلى هذا الملف التنقل بين الشهادات بالكتابة فى الخلية الزرقاء وليس بالأسهم والقوائم المنسدلة ولكن عند الطبع تظهر الدوائر تلقائياً بطريقة مظبوطة سواء طبع كل الشهادات أو طبع شهادات معينة أو صفحات محددة والمشكلة التى تواجهنى حالياً هى 1. الكود لا يعمل عند نقله لملفى الاصلى ولا أعرف السبب 2. الكود متعارض مع كود أخر فى نفس الشيت عند تفعيل الكودين 3. لازلت لم أتوصل لطريقة لوضع المربع حول درجة الطالب الراسب حكماً فى مادة ما علماً بأننى أفكر فى وضع معادلة لجلب الدرجة الأقل من 15 فى تحريرى 2 بترتيب المواد فى جدول مجاور لجدول الدرجات فكرة الكود وضع دائرة عند عدم التحقق من صحة الرقم الموجود فى خلية الدرجة دوائرشهادات.rar

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

تفضل أخى الغالى دوائر 2003.rar

عيونى ليك أخى الغالى ابو حنين منتظر مساعدتك فى ملف الشهادات لا تنسانى أخى الغالى

للأسف أخى الغالى ياسر بك لم يظبط معى الملف على أوفيس 2003 رغم أنه شغال على أوفيس 2010 طيب هل ظبط معك على أوفيس 2007 ؟؟ مرفق الملف 2003 دوائر 2003.rar

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