يوسف عطا قام بنشر ديسمبر 3, 2012 قام بنشر ديسمبر 3, 2012 الرجاء المساعدة من السادة الأعزاء الكود المرفق يوضع فى حدث الشيت لرسم دوائر حمراء حول الأرقام فى الخلايا التى بها أرقام أقل من حد معين حسب أمر التحقق من الصحة فى قائمة بيانات الكود يعمل تمام التمام فى الملف الموجود فيه ولكن عند نقله لملف آخر لا يعمل إطلاقاً مع أن الشيت الذى أنقله إليه نسخة طبق الأصل من الشيت الموجود به الكود كذلك عندما نسخت الشيت بالكود للملف لم يعمل كذلك المطلوب بإختصار 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 شاكر أفضال معاليكم
عبدالله المجرب قام بنشر ديسمبر 5, 2012 قام بنشر ديسمبر 5, 2012 السلام عليكم نرجو وضع ملف لمتابعة عمل الكود
يوسف عطا قام بنشر ديسمبر 5, 2012 الكاتب قام بنشر ديسمبر 5, 2012 الأخ الغالى عبدالله بك دامت أفضالك تفضل الملف مع ملاحظة التالى لكى يعمل الكود تم تظبيط أمر التحقق من الصحة من قائمة بيانات على الخلايا التى يجب على الكود أن يعمل بها والكود يعمل بتغيير رقم الشهادة من الخلية الزرقاء والمطلوب فضلاً بإختصار هو 1. شرح الكود سطر سطر 2. تحديد ماذا نفعل عند نقله لملف آخر حيث ينبغى أن يوضع الكود فى ملف كبير يحتوى على 33 شيت منها شيت رقم 13 وهو طبق الأصل للملف المرفق 3. بحدث الشيت الكود المقصود وكود آخر كلما فعلت الكودين يتعارضان ويتوقف الملف بينما كل كود بمفرده يعمل جيداً فالرجاء فك الإشتباك بينهما ليعملان معاً أعتذر لو أطلت عليك رغم علمى بمشغولياتك وشاكر أفضالك مقدماً أخى الغالى دمت بكل ود دوائرشهادات.rar
عبدالله المجرب قام بنشر ديسمبر 5, 2012 قام بنشر ديسمبر 5, 2012 بصراحة انا جربيت الكود على ورقة جديدة وعمل بكل سلاسة والله اعلم
يوسف عطا قام بنشر ديسمبر 5, 2012 الكاتب قام بنشر ديسمبر 5, 2012 أخى عبدالله السلام عليكم هل الدوائر الحمراء تظهر وتختفى مع تغيير الشهادات ؟؟ أم تظل ثابتة مهما تغيرت الدرجات ؟؟ وهل عند تفعيل الكودين الموجودين فى حدث الشيت يعملان جيداً أم لا ؟؟ رجاء إرفاق الملف الجديد الى نقلت إليه الكود
يوسف عطا قام بنشر ديسمبر 7, 2012 الكاتب قام بنشر ديسمبر 7, 2012 للرفع رفع الله قدركم علماً بأن الملف مفروض يقوم بالتالى 1. وضع دوائر حمراء حول الدرجات الأقل من الحد الأدنى 2. يقوم الكود برسم الدائرة وتحديد خصائصها 3. عن طريق أمر التحقق من الصحة من قائمة بيانات يتم تحديد الخلايا التى يجب أن توضع حولها الدائرة والله الموفق بصراحة انا جربيت الكود على ورقة جديدة وعمل بكل سلاسة والله اعلم لو الأمر كذلك أخى عبدالله هل تسمح لى أن أرفق لسيادتكم الملف الذى أريد نقل الكود إليه وأكيد إيديكم فيها البركة وسوف يعمل الملف كما يجب
عبدالله المجرب قام بنشر ديسمبر 7, 2012 قام بنشر ديسمبر 7, 2012 تفضل الملف الذي قمت بنقل الملف اليه وقد جعلته في شيتين ورقة 2 وورقة 3 تجربة1.rar
يوسف عطا قام بنشر ديسمبر 7, 2012 الكاتب قام بنشر ديسمبر 7, 2012 تفضل الملف الذي قمت بنقل الملف اليه وقد جعلته في شيتين ورقة 2 وورقة 3 أخى الغالى عبدالله زى ماقولتلك أكيد إيدك فيها البركة لأنى أكتر من مرة أحاول اشغل الكود فى الملف إللى عاوز اشتغل فيه لكن مش بيرضى وحتى الآن مش عارف السبب على كل حال لو مافيهاش تعب لمعاليكم مرفق الملف الرجاء تشغيل الكود به فى شيت رقم 13 علماً بإن إعدادات التحقق من الصحة تم إعدادها وفى نفس الشيت كود آخر لتنشيط خلية محددة عندما أقوم بتفعيل الكودين يتعارضان ولو تكرمتم فك التعارض بينهما شاكر أفضال معاليكم أخى الغالى وجعل أعمالك فى موازين حسناتك اليوزر يوسف الباسوورد 111
يوسف عطا قام بنشر ديسمبر 9, 2012 الكاتب قام بنشر ديسمبر 9, 2012 تفضل الملف الذي قمت بنقل الملف اليه وقد جعلته في شيتين ورقة 2 وورقة 3 أخى الغالى عبدالله زى ماقولتلك أكيد إيدك فيها البركة لأنى أكتر من مرة أحاول اشغل الكود فى الملف إللى عاوز اشتغل فيه لكن مش بيرضى وحتى الآن مش عارف السبب على كل حال لو مافيهاش تعب لمعاليكم مرفق الملف الرجاء تشغيل الكود به فى شيت رقم 13 علماً بإن إعدادات التحقق من الصحة تم إعدادها وفى نفس الشيت كود آخر لتنشيط خلية محددة عندما أقوم بتفعيل الكودين يتعارضان ولو تكرمتم فك التعارض بينهما شاكر أفضال معاليكم أخى الغالى وجعل أعمالك فى موازين حسناتك اليوزر يوسف الباسوورد 111 http://www.mediafire...6z9uoew8c8wiob9 للرفع رفع الله قدركم وبلغكم آمالكم ونفع الناس بعلمكم وجعل أعمالكم فى موازين حسناتكم
يوسف عطا قام بنشر ديسمبر 11, 2012 الكاتب قام بنشر ديسمبر 11, 2012 للرفع رفع الله قدركم وبلغكم آمالكم ونفع الناس بعلمكم وجعل أعمالكم فى موازين حسناتكم
عبدالله المجرب قام بنشر ديسمبر 12, 2012 قام بنشر ديسمبر 12, 2012 السلام عليكم اخي يوسف اعذرني لعدم وجود وقت لدي للتواجد في المنتدى في ورقة 13 استبدل الكود السابق بهذا Private Sub Worksheet_Calculate() 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 = 3 o.Line.Weight = 4 count = count + 1 o.Name = "InvalidData_" & count End If Next Exit Sub errhandler: End Sub
يوسف عطا قام بنشر ديسمبر 12, 2012 الكاتب قام بنشر ديسمبر 12, 2012 لا يزال الكود لا يعمل الرجاء أخى عبدالله أن تقوم بتفعيل الكود بنفسك فى الملف المرفق بالمشاركة رقم 9
جلال محمد قام بنشر ديسمبر 14, 2012 قام بنشر ديسمبر 14, 2012 اخي يوسف السلام عليكم فعلا كما تفضل الأستا> عبد الله الكوك يعمل ممتاز ولكن خارج ملفك الأصلي تفحص ملفك جيدا وبحث عن ما يمنع الدوائر من الظهور انظر المرفق الكود خارج ملفك يعمل جيدا داخل ملفك الدوائر لا تظهر اصلا Book1.rar
يوسف عطا قام بنشر ديسمبر 14, 2012 الكاتب قام بنشر ديسمبر 14, 2012 اخي يوسف السلام عليكم فعلا كما تفضل الأستا> عبد الله الكوك يعمل ممتاز ولكن خارج ملفك الأصلي تفحص ملفك جيدا وبحث عن ما يمنع الدوائر من الظهور انظر المرفق الكود خارج ملفك يعمل جيدا داخل ملفك الدوائر لا تظهر اصلا أخى الغالى جلال بك تحياتى لكم والسلام عليكم بالفعل هذا ما لا حظته ولذلك قمت بإدراج ملفى الأصلى فى المشاركة رقم 9 عسى أن أحد الخبراء يهتم بالموضوع ويحاول وضع يده على أصل المشكلة وحتى الآن لازلت فى الإنتظار ويعلم الله أننى فى أشد الحاجة للإنتهاء من هذه المشكلة سريعاً لأن العمل فى الملف بدأ بالفعل وكنت أريد أن أنتهى من تعديلات الملف قبل بدء العمل عليه ولكن لا بأس من الإنتظار بالنسبة للمرفق الذى أرفقته هل للأكواد فى الموديولز علاقة بكود الدوائر المستخدم ؟؟ وهل للبيانات الموجودة فى أقصى اليسار من الشيت بخصوص جدول خلايا الحد الأدنى للدرجة علاقة بالكود أم أنها كانت للتجربة فقط ؟؟ شاكر أفضال كل من يحاول المساعدة
عبدالله المجرب قام بنشر ديسمبر 14, 2012 قام بنشر ديسمبر 14, 2012 السلام عليكم قمت بوضع تعديل الكود وعمل بكل سلاسة (جربته على ورقة 13 ) سيعمل الكود عند الاختيار من القائمة المنسدلة إضعط هنا
يوسف عطا قام بنشر ديسمبر 14, 2012 الكاتب قام بنشر ديسمبر 14, 2012 أخى الغالى عبدالله المجرب ابو أحمد السلام عليكم بتجربة الملف الذى رفعته سيادتكم بمشاركة رقم 16 لم يعمل عندى قد تكون سيادتكم رفعتم نسخة الملف قبل الإصلاح وقد يكون عندى مشكلة فى جهازى والله أعلم لكن الملف الصغير يعمل جيداً (الملف ذو الشيت الواحد)
يوسف عطا قام بنشر ديسمبر 28, 2012 الكاتب قام بنشر ديسمبر 28, 2012 صباح الخيرات أخوتى الغاليين دمتم بود لازلت فى إنتظار الحل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.