safwatscc قام بنشر مايو 31, 2009 قام بنشر مايو 31, 2009 استاذى الفاضل ابوخالد السلام عليكم ورحمة الله وبركاته لك كل اعتزازى وتقديرى واحترامى قبل كل شئ وبعد فى موضوع عمل الدوائر الحمراء عندى شيت تبيض للنتيجة عملت علية كود الدوائر الحمراء وتم بحمد الله ولكن اعانى من مشكلة فية وهى عند الضغط على مسح الدوائر بياخذ وقت طويل جدا فى المسح نظرا لكثرة الدوائر والتى سببها ان اكثر من نصف الشيت اصفار وعليها دوائر المطلوب لسرعة مسح الدوائر اريد ان اضع شرط ان لو صف رقم الجلوس = صفر لا يضع دائرة على الدرجات لانة هناك لصق ارتباط مرفق ملف مختصر للتوضيح ستجد المشكلة من اول صف رقم 327 وبارك الله فيك ______test.rar
عبدالله باقشير قام بنشر مايو 31, 2009 قام بنشر مايو 31, 2009 (معدل) السلام عليكم Sub Circles1() Dim c As Range Dim MyRng As Range Set MyRng = Range("e8:e1000") For Each c In MyRng If c(1, -2).Value = 0 Then GoTo 1 If c.Value < Cells(7, 5) Or c.Value = "غ" Or c.Value = "غـ" Then Set v = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) v.Fill.Visible = msoFalse v.Line.ForeColor.SchemeColor = 10 v.Line.Weight = 1.25 End If 1 Next End Sub تم تعديل مايو 31, 2009 بواسطه خبور خير
أستيكا قام بنشر يونيو 1, 2009 قام بنشر يونيو 1, 2009 يا جماعة اخونا خبور عاد للمنتدى من جديد فحمد للة على سلامتة و دائما منور المنتدى و نافعنا بعلمة فباركوا لة و ادعوا لة بدوام وجودة و صحتة و ثانيا لك منى خالص شكرى و تقديرى فانت استاذنا وفقك الله و رعاك و بارك فيك تلميذك استيكا
ياسر خليل أبو البراء قام بنشر يونيو 1, 2009 قام بنشر يونيو 1, 2009 عوداً حميداً أستاذي الفاضل خبور خير لكم سعدت لرؤية ردك في هذا الموضوع تلميذ مغمور يعشق أستاذه المشهور......... عاشق الإكسيل
زياد علي قام بنشر يونيو 1, 2009 قام بنشر يونيو 1, 2009 ياريت استاذنا الفاضل والجليل خبور خير يطمئنا على صحته فجميع أعضاء المنتدى في اشتياق شديد له وفي قمة الحرص على السؤال عن صحته وأحواله ....
ياسر خليل أبو البراء قام بنشر يونيو 1, 2009 قام بنشر يونيو 1, 2009 ياريت استاذنا الفاضل والجليل خبور خيريطمئنا على صحته فجميع أعضاء المنتدى في اشتياق شديد له وفي قمة الحرص على السؤال عن صحته وأحواله أضم صوتي لصوت الأخ زياد بالفعل كلنا في اشتياق لهذا العملاق الذي يهز أركان هذا المنتدى كلما غدا أو راح عليه عاشق الإكسيل
safwatscc قام بنشر يونيو 1, 2009 الكاتب قام بنشر يونيو 1, 2009 الاخ الغالى خبور فينك من زمان وحشتنا جدا وحمد الله على السلامة
safwatscc قام بنشر يونيو 1, 2009 الكاتب قام بنشر يونيو 1, 2009 (معدل) الاخ الفاضل خبور الكود يعمل كما هو مطلوب بارك الله فيك وفى جميع الاخوة فى المنتدى وهو يعمل كويس جدا عندما جربتة على الملف المرفق لكن عندما قمت بوضعة فى الشيت الكبير وهو شيت الدرجات بجميع المواد يعمل ولكن وجدت بعض الملاحظات وهى 1- انه يتخطى بعض الخلايا دون رسم الدوائر 2- عند اضافة ارقام جلوس اخرى لا يتم رسم الدوائر عليها لم استطع ارفاق الملف لانة به ارتباط بملفات اخرى ولكن ارفقت صور توضح الملاحظات ارجوا الافادة _____.bmp تم تعديل يونيو 1, 2009 بواسطه safwatscc
نزار سليمان عيد قام بنشر يونيو 3, 2009 قام بنشر يونيو 3, 2009 السلام عليكم اخي صفوت العمالقة هم اخواني الافاضل ( خبور - عادل - ابواسامة) فضلا انظر للمرفق مع الشكر ابو خالد ______test.zip
هشام شلبى قام بنشر يونيو 3, 2009 قام بنشر يونيو 3, 2009 عفوا للمداخلة الكود جميل ولكن لى سؤلان الاول يوجد فى الخليو e10 العدد 35 ولا يوضع حولها دائرة الثانى هل الكود يعمل مع دالة ولا ارى مكانها واذا كان الكود يعمل مع دالة فاين مكانها
نزار سليمان عيد قام بنشر يونيو 3, 2009 قام بنشر يونيو 3, 2009 السلام عليكم نعم اخي فحسب طلب الاخ صفوت اذا كان رقم الجلوس صفر فلايضع دائرة على الدرجة نعم الكود مبرمج مع الخليةE7 بحيث لو كانت اي خلية بالمدى من E8 الى E1000 يقوم بوضع الدائرة مع الشكر ابو خالد
هشام شلبى قام بنشر يونيو 3, 2009 قام بنشر يونيو 3, 2009 الله يبارك لك اخى نزار سؤلا اخران ماذا تعنى ب (1, -2) و Cells(7, 5) وايضا بقى لى سؤال المشاركة الاولى هل يعمل الكود مع دالة ام لا واين مكانها
نزار سليمان عيد قام بنشر يونيو 3, 2009 قام بنشر يونيو 3, 2009 السلام عليكم نعم الكود مبرمج مع الخليةE7 بحيث لو كانت اي خلية بالمدى من E8 الى E1000 يقوم بوضع الدائرة =========== الرد اعلاه هو جواب استفسارك ادناه وايضا بقى لى سؤال المشاركة الاولى هل يعمل الكود مع دالة ام لا واين مكانها ============== سؤلا اخران ماذا تعنى ب (1, -2) و Cells(7, 5) الجزء الاول تحديد العمود الثاني وهو رقم الجلوس ليتم المقارنة عليه اذا كان صفر لايرسم دائرة حمراء الجزء الثاني هو العمود الخامس الخلية رقم7 يعني زي ماتكتب E7 ان شاء الله وضحت الصورة مع الشكر ابو خالد
هشام شلبى قام بنشر يونيو 3, 2009 قام بنشر يونيو 3, 2009 وضحت الصورة بارك الله فيك ورواك من زمزم اعزرنى لكثرة الاسئلة فانا رايت الموضوع متاخر جدا وكنت فى حاجة اليه واذا كان وقتك يسمح ( خد السؤال ده كمان ) ان امكن هلى يمكن عمل الدوائر هذه على اكثر من عمود وما هى الطريقة
نزار سليمان عيد قام بنشر يونيو 3, 2009 قام بنشر يونيو 3, 2009 وضحت الصورة بارك الله فيك ورواك من زمزماعزرنى لكثرة الاسئلة فانا رايت الموضوع متاخر جدا وكنت فى حاجة اليه واذا كان وقتك يسمح ( خد السؤال ده كمان ) ان امكن هلى يمكن عمل الدوائر هذه على اكثر من عمود وما هى الطريقة جزاك الله خيرا نعم يمكن بتعديل بسيط في المدى فنحن في مثالنا عملنا الدوائر على العمود D وكان الكود Set MyRng = Range("e10:e1000") وليعمل على اكثر من عمود مثلا من E8 الى J1000 يكون الكود Set MyRng = Range("e10:J1000") مع الشكر ابو خالد
أحمد عبدالعزيز قام بنشر يونيو 3, 2009 قام بنشر يونيو 3, 2009 [font="Comic Sans MS]الأخ العزيز و المحترم : خـــبور : أهلاً بك وسهلاً ... عوداً محموداً ومباركاً إن شاء الله حقـــــاً ..... (( كنتم خير أمةٍ أُخرجت للناس .... ))
هشام شلبى قام بنشر يونيو 3, 2009 قام بنشر يونيو 3, 2009 وليعمل على اكثر من عمود مثلا من E8 الى J1000 يكون الكود طبقناها وتمام وزى الفل بس هناك مشكلة 0 اريد تطبيقها على اعمدة ليست متتالية قمثلا اريد تطبيقها على e و h و k وهكذا وكل عمود منهم له نهاية صغرى مختلفة عن العمود الاخر 0 فهل يوجد حلول
safwatscc قام بنشر يونيو 4, 2009 الكاتب قام بنشر يونيو 4, 2009 الاخ والاستاذ : ابو خالد بارك الله فيك الكود يعمل بشكل سليم جدا ولكن عندما قمت بوضعة فى الشيت الكبير وهو شيت الدرجات بجميع المواد وتطبيقة على جميع المواد والصفوف المختلفة يعمل ولكن وجدت بعض الملاحظات وهى 1- انه يتخطى بعض الخلايا دون رسم الدوائر 2- عند اضافة ارقام جلوس اخرى لا يتم رسم الدوائر عليها لم استطع ارفاق الملف لانة به ارتباط بملفات اخرى ولكن ارفقت صور توضح الملاحظات الصورة مرفقة فى المشاركة السابقة ____________.rar
safwatscc قام بنشر يونيو 4, 2009 الكاتب قام بنشر يونيو 4, 2009 الاخ : bosh اليك ملف مطبق بة على مادتين مختلفتين على نفس النسق اكمل باقى المواد ______test222.rar
عبدالله باقشير قام بنشر يونيو 4, 2009 قام بنشر يونيو 4, 2009 (معدل) السلام عليكم عملت تطبيق مثل الصورة المرسلة لمادتين Range("J8:M1000") عمود رقم الجلوس هو العمود رقم 2 اما الصف حسب صف الخلية C Cells(C.Row, 2) تفضل المرفق ______3.rar تم تعديل يونيو 4, 2009 بواسطه خبور خير
safwatscc قام بنشر يونيو 4, 2009 الكاتب قام بنشر يونيو 4, 2009 الاستاذ الفاضل : خبور بارك الله فيك وجعله فى ميزان حسناتك فعلا الحل هو المطلوب ووفر عليا كتير جدا ومليون شكر
أيسم إبراهيم قام بنشر يونيو 4, 2009 قام بنشر يونيو 4, 2009 السلام عليكم حميعا أستاذنا الفاضل جزاك الله كل الخير اريد تطبيقها على اعمدة ليست متتاليةقمثلا اريد تطبيقها على e و h و k وهكذا وكل عمود منهم له نهاية صغرى مختلفة عن العمود الاخر السلام عليكم
عبدالله باقشير قام بنشر يونيو 4, 2009 قام بنشر يونيو 4, 2009 (معدل) السلام عليكم ريد تطبيقها على اعمدة ليست متتاليةقمثلا اريد تطبيقها على e و h و k وهكذا وكل عمود منهم له نهاية صغرى مختلفة عن العمود الاخر Set MyRng = Range("K8:K1000,H8:H1000,E8:E1000") ودمتم في حفظ الله تم تعديل يونيو 4, 2009 بواسطه خبور خير
أيسم إبراهيم قام بنشر يونيو 4, 2009 قام بنشر يونيو 4, 2009 السلام عليكم أستاذنا الفاضل أدامك الله بالصحة و العافية و أفضل حال جزاك الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.