عبدالله باقشير قام بنشر يونيو 6, 2009 مشاركة قام بنشر يونيو 6, 2009 (معدل) السلام عليكم ردا لما قيل في احد المواضيع ان هذا الكود انا قمت به فهذا غير صحيح وانما قمت فقط بالتعديل عليه ليتناسب مع طلب معين في احد المواضيع واظن انه لاخي الفاضل / ابواسامة او لاخي الفاضل نزار (ابوخالد) او يمكن لاحدهم الله اعلم المهم جزاء الله من قام به خيرا وجعله في ميزان حسناته ============================= عموما لاهمية الموضوع وردا على اسئلة الاخوة (ناصر سعيد وكات وابن النيل ) فقد قمت باضافة بعض التعديلات الاخرى مع شرح مبسط في الكود وجعلت هذا المرفق كمثال ويمكن التطبيق عليه في ملف آخر مع بعض التعديلات البسيطة لموقع عمود رقم الجلوس ولموقع صف الدرجات ولنطاق الخلايا المراد وضع الدوائر فيها ============================= وايضا بامكانية استخدام الكود عند تكبير اوتصغير الورقة ActiveWindow.Zoom ____________________2.rar ============================= ارجوا الانتباه الى المشاركة رقم 30 يوجد فيها المرفق المعدل وكود ترحيل الناجحين ودور ثاني ============================= ============================= ارجوا الانتباه الى المشاركة رقم 42 يوجد فيها ملف لعمل الشهادات واضافة الدوائر فيها ============================= ============================= ارجوا الانتباه الى المشاركة رقم 58 الملف المعدل الشامل ============================= تم تعديل يونيو 30, 2009 بواسطه خبور خير 2 رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر يونيو 6, 2009 مشاركة قام بنشر يونيو 6, 2009 الاخ الفاضل : خبور بارك الله فيك وجعلة فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
amhateb قام بنشر يونيو 6, 2009 مشاركة قام بنشر يونيو 6, 2009 الأخ العزيز خبور خير عودا حميدا لمنتداك وبيتك وألف حمدا لله على سلامتك عادة ما تتحفنا بأفكارك وابداعاتك التي منها نتعلم الكثير ولكن _ وآه من لكن _ كثيرا ما أجد نفسي متحيرا في تنفيذ ما تأتي به مما يدعوني إلى الاستفسار عسى ما أكون ثقيلا عليك لقد قرأت الكود وأعجبتني فكرته كثيرا حيث أنه يعتمد على النهاية الصغرى أعلى العمود ويغني عن وضع نطاقات لكل عمود في الجدول مما يسبب ارهاقا كبيرا في العمل وبطء اثناء التنفيذ هذا ما فهمته أما ما لم أفهمه ولم أعرف كيفية تنفيذه فهو ذاك الزرار المتغير " أظهار - اخفاء " الدوائر ألا أجد من وقتك ما توضح لي وكثير من أهل المنتدى كيفية تنفيذ " عمل " هذا الزرار شكرا جزيلا لك رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 6, 2009 الكاتب مشاركة قام بنشر يونيو 6, 2009 (معدل) السلام عليكم الاخ الفاضل / صفوت -------------حفظه الله وصلت رسالتك وشكرا جزيلا لمحتواها وبالنسبة لايميلي موجود في توقيعي نهاية كل مشاركة بامكانك مراسلتي في اي وقت تريد ولاي شي تريد تقبل تحياتي وشكري. ============ الاخ الاستاذ الفاضل/ amhateb-------------حفظه الله شكرا جزيلا لمحتوى مشاركتك من كلام طيب واسئلة في محلها بالنسبة للزر اولاً : بامكانك الاستغناء عنه وعن الكود المربوط به واضف زرين آخرين واربط واحد بكود الاضافة والآخر بكود الحذف ثانيا: Set XX = ورقة3.Shapes("الدائرة") اي ورقة في الاكسل يكون لها اسم خاص بالموديل خاصتها وهو المسمى (codename) وهو غير الاسم الذي امامنا في اسفل الورقة في النسخة العربية :ورقة1,ورقة2,ورقة3 في النسخة الانجليزية:Sheet1,Sheet2,Sheet3 هذه التسمية لا تتغير الا اذا قمت انت بتغييرها من كود الورقة نفسه انظر الى الصورة التالية: انا استخدم دائما في الاكواد codename حتى يعطينا حرية تغيير اسم الورقة الذي يظهر اسفل الاطار بدون ان غير اي شي في الكود . لما تنقل الكود لورقة معينة في ملف انظر الى كود النيم خاصتها واستبدله بدلا من ورقة3 ولنقل مثلا : ورقة26 Set XX = ورقة26.Shapes("الدائرة") وبامكانك ايضا استخدام التعبير التالي الذي يغنيك عن ما ذكر اعلاه Set XX = ActiveSheet.Shapes("الدائرة") ثالثا: اي زر موجود على الورقة له اسم معين يظهر لك في مربع الاسم عندما تاشر على هذا الزر انظر الى الصورة : و بامكانك تغيير هذا الاسم انا سميت هذا الزر (الدائرة) بامكانك اختيار الطريقة التي تريدها من الطرق ادناه: 1-لما تربط اي زر بكود الاضافة و الحذف سمي هذا الزر (الدائرة) 2-غير الاسم الموجود في الكود باسم الزر الجديد 3- نسخ الزر المسمى الدائرة الى الملف الجديد ارجوا ان اكون وفقت في توصيل هذه المعلومة ودمتم في حفظ الله ورعايته تم تعديل يونيو 6, 2009 بواسطه خبور خير 1 رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر يونيو 7, 2009 مشاركة قام بنشر يونيو 7, 2009 السلام عليكم اخي واستاذي الفاضل خبور عمل مبدع من شخص متالق لانزكيه على الله جزاك الله خيرا اخي الحبيب حاولت الاتصال بك ولكن مع الاسف لا احد يرد ممكن اعرف الوقت الذي يمكنني الاتصال به ويكون مناسب لك اخوك ابو خالد رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر يونيو 7, 2009 مشاركة قام بنشر يونيو 7, 2009 (معدل) جزاك الله خيرااا وبارك الله في من صمم وفي من عدل هذا الكود عندما نكتب حرف الغين في عمود ليس بالصف 12 عدد توضع دائرة ولانريد ذلك نريد الدائرة توضع على الغين وعلى الاعداد التى اقل من الخليه الموجودة بالصف 12 ونفس العمود ونرجو من الله ان نعرف من صمم هذا الكود لنرفع له القبعه للشكر تم تعديل يونيو 7, 2009 بواسطه mohammadey1 رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر يونيو 7, 2009 مشاركة قام بنشر يونيو 7, 2009 بارك الله فيك أخي عبدالله كل يوم يزداد اعجابي باعمالك التي تبهرني وتسعدني فقد تعلمت منها الكثير ، الله يجزاك كل خير : ) رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 7, 2009 الكاتب مشاركة قام بنشر يونيو 7, 2009 (معدل) السلام عليكم الاخ الحبيب / نزار----------------حفظه الله الاخ الحبيب / الجزيرة----------------حفظه الله تقبلا تحياتي وشكري ================================ الاخ الحبيب الاستاذ/ محمدي ----------------حفظه الله غير هذه الجزئية من الكود اللي فيها الشرط If (IsNumeric(Cells(R, C.Column)) And C.Value < Cells(R, C.Column)) Or C.Value = "غ" Or C.Value = "غـ" Then بهذه الجزئية: If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) Or C.Value = "غ" Or C.Value = "غـ") Then تقبل تحياتي وشكري ودمتم في حفظ الله تم تعديل يونيو 7, 2009 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
amhateb قام بنشر يونيو 7, 2009 مشاركة قام بنشر يونيو 7, 2009 جزاك الله عنا كل خير ابداع رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر يونيو 7, 2009 مشاركة قام بنشر يونيو 7, 2009 السلام عليكم شرح وافي لا يستطيعه إلا الخبراء بارك الله فيك أستاذنا الفاضل زادك الله رفعة وعلما رابط هذا التعليق شارك More sharing options...
أ . وهبي قام بنشر يونيو 8, 2009 مشاركة قام بنشر يونيو 8, 2009 (معدل) __.rarا لسلام عليكم أخي الأستاذ / خبور حمداً لله على سلامتك ... سؤال أعرق أنه صعب - و قد يكون صعب جداً - لكن أتمنى أن أجد عندك اجايته .. هل يمكن التحكم قي مساحة الدائرة بالنسبة لمساحة المربع - الخلية - المدرجة فيها تلك الدائرة بحيث لا تكون تمس أصلاعه من الداخل ؟ ( مرفق صورة ) أنتظر الإجاية ؛ و أشكرك كثيراً ؛ و أتمنى لكم التوفيق . تم تعديل يونيو 8, 2009 بواسطه أ . وهبي رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يونيو 8, 2009 مشاركة قام بنشر يونيو 8, 2009 (معدل) كود حلو كتير ولكن المسح بطيء ... شوف له حل ياباشا تم تعديل يونيو 8, 2009 بواسطه قصي رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 8, 2009 الكاتب مشاركة قام بنشر يونيو 8, 2009 السلام عليكم الاخ الاستاذ الفاضل/ amhateb-------------حفظه الله الاخ الفاضل/ خالد القس----------------حفظه الله تقبلا تحياتي وشكري ============= الاخ الفاضل/ أ.وهبي----------------حفظه الله غير الجزئية التالية من الكود: Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 3, C.Top + 3, C.Width - 6, C.Height - 6) يمكنك تغيير الارقام لموضع الدائرة وعرضها و طولها بالنسبة للخلية حسب ما يناسبك تقبل تحياتي وشكري ============= الاخ الفاضل/ قصي----------------حفظه الله ساحاول زيادة السرعة و لكن هل لاحظت ان اغلب الخلايا في هذا الملف فارغة مما ادى الى زيادة عدد الدوائر في الواقع العملي تقريبا كم من الدوائر قد توضع (عدد تقريبي) تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
أ . وهبي قام بنشر يونيو 8, 2009 مشاركة قام بنشر يونيو 8, 2009 الأخ الأستاذ الفاضل / خبور خير السلام عليكم و رحمة الله وبركاته بارك الله فيك ؛ وزادك علماً :clapping: رابط هذا التعليق شارك More sharing options...
جلال محمد قام بنشر يونيو 8, 2009 مشاركة قام بنشر يونيو 8, 2009 اخى العظيم / خبور جزاك الله كل خير علي هذا العمل الرائع والتعديلات الجميله السلسه واللذى يوفر كثير من الجهد والوقت شكرا لك وعلي سعة صدرك رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يونيو 8, 2009 مشاركة قام بنشر يونيو 8, 2009 في الواقع العملي تقريبا كم من الدوائر قد توضع (عدد تقريبي اشكرك شكرا جزيلا والله ماعيتهم ابدا ولكن اشتركوا معايا يارجاله في الاجابة على السؤال وده رأي ممكن 800 ..... 900 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 8, 2009 الكاتب مشاركة قام بنشر يونيو 8, 2009 السلام عليكم الاخ الفاضل/ أ.وهبي----------------حفظه الله الاخ الفاضل/ جلال----------------حفظه الله تقبلا تحياتي وشكري ============= الاخ الفاضل/قصي----------------حفظه الله مارايك لو يظهر فورم فيه بار متحرك اثناء الحذف لترى ذلك و ينطوي الوقت سريعا رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يونيو 8, 2009 مشاركة قام بنشر يونيو 8, 2009 موافق ياباشا ولو فيه اي فكرة طرأت لك في زيادة السرعه موافقون عليها رابط هذا التعليق شارك More sharing options...
جلال محمد قام بنشر يونيو 9, 2009 مشاركة قام بنشر يونيو 9, 2009 اخى خبور السلام عليكم ماهو التعديل المطلوب ليعمل الكود علي هذا الشيت عملت كل محاولاتى ولم يعمل وشكرا لك Book1.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 9, 2009 الكاتب مشاركة قام بنشر يونيو 9, 2009 (معدل) السلام عليكم الاخ الفاضل/ جلال حفظه الله هناك شرط لازم يكون عمود رقم الجلوس اكبر من الصفر اذا لا تريده بامكانك الاستغناء عنه بحذف او تجميد هذه الجزئية من الكود If Cells(C.Row, G) = 0 Then GoTo 1 ودمتم تم تعديل يونيو 9, 2009 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
جلال محمد قام بنشر يونيو 9, 2009 مشاركة قام بنشر يونيو 9, 2009 اخى الكريم / خبور جزاك الله كل خير ونفع الله الناس بعلمك وجعل الله اعمالك في ميزان حسناتك شكرا لك وبارك الله فيك رابط هذا التعليق شارك More sharing options...
أبن النيل قام بنشر يونيو 9, 2009 مشاركة قام بنشر يونيو 9, 2009 السلام عليكم ورحمة الله وبركاته الاستاذ الكبير / خبور خير وضعت الكود الخاص بك على الملف المرفق ولكنه يضع دوائر على أعمدة أعمال السنة برغم أنها ليس لها نهاية صغرى فهل من حل لعدم وضع دوائر على هذه الأعمدة!!! وشكراً لكم الملف:______2009.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 9, 2009 الكاتب مشاركة قام بنشر يونيو 9, 2009 السلام عليكم الاخ/ ابن النيل------حفظه الله الملف المرفق لا يوجد فيه الكود الذي قمنا بالتعديل عليه رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر يونيو 9, 2009 مشاركة قام بنشر يونيو 9, 2009 الاخ ابن النيل اليك الملف بعد وضع الكود من ابداعات العلامة الاستاذ : خبور ______2009222.rar رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يونيو 10, 2009 مشاركة قام بنشر يونيو 10, 2009 (معدل) استاذ خبور اغلب ليلة الامس وانا عمال اظبط الملف ومش عارف بص على ملفي وقل لي فين الجزئية اللي المفروض كنت اعملها عشان الملف يضبط معايا _______________________________.rar تم تعديل يونيو 10, 2009 بواسطه قصي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.