اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم شباب ورحمة الله وبركاته

هل يمكن عمل دائرة حمراء على رقم اذا نزل هذا الرقم عن حد معين

اذا كانت هناك طريقة بدون الرجوع الى الماكروا فنكون ممتنين جدا لارفاق ملف بها واما اذا كان لايوجد الا بالماكرو فلاباس بارفاق ملف لكي نتعلم كيف تتكون

وبارك الله فيكم وجزاكم الله عنا كل خير وبركة

والسلام عليكم ورحمة الله تعالى وبركاته

قام بنشر

:clapping:

الاخ ابو اسامة

الكود جميل ويفتح مجالات جديدة لمناقشة موضوع الدواير الحمراء حول الارقام التى تقل عن رقم معين

ولكن به ملحوظتان

الاولى اذا كانت احد الخلايا الواقغة فى المدى المحدد فارغة فانه يضع حولها دائرة حمراء وهذا غير مطلوب

الملحوظة الثانية نريد تك :cool: رار ذلك على اكثر من عمود مع اختلاف درجات الحد الادنى

ارجو المحاولة

قام بنشر

Sub Circles()
Dim c As Range
Dim MyRng As Range
Set MyRng = Range("a1:a10")
Call RemoveCircles
      For Each c In MyRng
       If c.Value < Cells(1, 2) And 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
      Next
End Sub

هنا لا يضع على الفوارغ

قام بنشر (معدل)

الاخ الفاضل / أبو أسامة

جزاك الله عنا خير الجزاء .

كود رائع وبسيط

1- أرجو اضافة دائرة على الغائب غ غـ

2- ماذا أفعل إذا أردت اضافة نطاقات آخرى وبحد أدنى مختلف على الخلية b1

3- هل الكود مرتبط بدالة معينة في الملف موجودة فى خلية معينة فيها المدى أم المدى المذكور فى الكود فقط

تقبل تحياتى

تم تعديل بواسطه تايجر نت
قام بنشر

الاخ الفاضل مشكور جدا على الكود الرائع الذى لاول مرة اجرب كود وضع الدوائر ويعمل معى

حتى بعد اضافة تعديل بسيط على اماكن الخلايا

والحمد لله اشتغل وبارك الله فيك

ولكن انا مع الاخ تايجر

وضع الدائرة على الفراغ وعلى الغياب غـ

ثانيا : استفسار بسيط

انا هعمل الكود على عمود وليكن مادة اللغة العربية هل يمكن عمل كذا ماكرو لكل عمود اى لكل مادة

او عمل ماكرو لكل الاعمدة التى نحددها نحن ونحدد لكل عمود الدرجة المراد وضع الدائرة اذا قلت عن عدد معين

مع العلم اختلاف من عمود الى اخر فى درجتة

وبارك الله فيك

مرفق الملف

_____________.rar

قام بنشر
السلام عليكم

الأخ الفاضل أبو اسامة جزاك الله عنا كل خير

فينك من زمان يا أخى بهذا الكود الرائع وفرت علينا كتير فعلا كود رائع من اخ مبدع

ولكن لى ملاحظات بسيطة :-

1- إذا عملنا دوائر فى العمود الأول ثم نريد عمل دوائر على العمود الثالث مثلا فإن الدوائر فى العمود الأول تمسح وهذا غير مطلوب فياريت تكون ثابتة .

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

قام بنشر

السلام عليكم

ممتاز اخى الكريم وما قصرت والله

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

وطلب اخير من فضلك النظر الى المشاركة التى بعنوان العشرة الاوائل فيها عيب بسيط

وشكرا

قام بنشر

الاخ الفاضل أبو أسامة

كود وفورم رائع ولا أروع وأكثر من ذلك أكون طماع لكن الطمع فى العلم مطلوب وطمع محمود

عند نقل الفورم والموديول إلى ورقة العمل :-

1- فى البداية نقلت الفورم والموديول ولم أنقل مود الفتح التلقائى وعملت مفتاح وربطه بماكرو رسم الدوائر ومفتاح آخر لمسح الدوائر لكن المفتاحان لا يعملان .

2- قمت بنقل كود الفتح التلقائى مع الموديول والفورم تم إظهار الدوائر بنجاح ولاحظت أنه عند تحديد مدى لا يتم كتابته فى مكاته المخصص . ( لكنه يعمل دوائر عادى )

3- عند عمل مسح الدوائر من الفورم فعلا تم مسح الدوائر وأيضا قام بمسح المفتاح المرتبط بماكرو رسم الدوائر ومفتاح إخفاء الدوائر .

4- إذا أردت إظهار الدوائر يجب على غلق الملف وفتحه من جديد .

ياريت حلول وربنا يوفقك ويجعله فى ميزان حسناتك بإذن الله

بالنسبة للأخ بوش :-

الكود يعمل دوائر وليس شكل بيضاوى لكن شكل الدائرة يعتمد على عرض العمود قم بتصغير عرض العمود وستجدها دائرة

قام بنشر

السلام عليكم يا اخوان

الباين عليكم كترتوا على أخونا أبو أسامة يالله انت وياه وسع

الموضوع هذا ليا انا واجا دوري هلا منشان أسأل هههههه

أخي تايجر الدور عليك منشان تتحملنا هلا

الباين عليك دماغك جميل والله في الماكرو

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

ياريت تتحملني انا ايضا متل ماتحملكم الاخ اسامة ههه

والسلام عليكم

قام بنشر

اخى الفاضل / انور المرتاح

- الأخ أبو أسامة أعلم يقينا أنه لا يمل من مساعدة الآخرين بل هذا الأمر يزيده فرحا وشوقا للأسئله لأننا جميعا نتعلم

أولا : أنا تحت أمرك نحن جميعا تعلمنا من هذا المنتدى ويجب علينا ألا نبخل بمعلومة على احد

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

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

2- حتى تشاهد أوامر الفجوال ( الكود ) الذى يوجد فى برنامج الأكسيل مثلا :

- قم بتحميل ملف الأخ أبو أسامة .

- من لوحة المفاتيح اضغط مفتاحى ALT+F11 ستفتح لك نافذة جديدة فى الجهة اليسرى منها تجد مشروع فجوال بيسك المكتوب والمرفق فى الملف اضغط عليه فى الجهة اليمنى ستجد الأوامر المكونة للكود وأى تعديل أو تغيير منك فيها يقوم باتلاف الكود وبالتالى لا يعمل بصورة صحيحة ( طبعا إلا إذا كنت فاهم مكونات وخطوات الكود وعارف انت بتعمل ايه )

- لربط زر معين فى ورقة العمل بالماكرو (الكود) :-

1- فى ورقة العمل ارسم شكل تلقائى .

2- كليك يمين عليه

3- من القائمة المختصرة اختار الامر ( تعيين ماكرو)

4- اختار الماكرو ثم موافق

5- اضغط على الشكل التلقائى تجده قام بتنفيذ الأمر المرتبط بالماكرو

وأخيرا أنا تحت أمرك فى أى استفسار

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

قام بنشر

السلام عليكم نمر الانترنت

بارك الله فيك على التوضيح للاخ بوش والله من زمان وانا اقول لما يسمي نفسه باقبح الاسماء

شكرا لك على التوضيح والذي يدل على ضرورة ان يكون المستمع فاهم العمل على الفيجوال بيسك

وباذن الله سأصبح محترف انا كذلك متلكم في الفيجوال بيسك وفي الاكسس وفي الاكسل باذن الله

والسلام عليكم ورحمة الله تعالى وبركماته

قام بنشر (معدل)

السلام عليكم ورحمة الله وبركاته

الأخ / أبو أسامة

بارك الله فيك

وجعله الله فى ميزان حسناتك

لى طلب من سيادتكم وهو أضافة على الفورم الحالى بحيث يعمل على عمودين معاَ

مرفق ملف موضح فيه الإضافة

وجزاكم الله خيراَ

_____33.rar

تم تعديل بواسطه عادل جلال
قام بنشر
السلام عليكم نمر الانترنت

بارك الله فيك على التوضيح للاخ بوش والله من زمان وانا اقول لما يسمي نفسه باقبح الاسماء

شكرا لك على التوضيح والذي يدل على ضرورة ان يكون المستمع فاهم العمل على الفيجوال بيسك

وباذن الله سأصبح محترف انا كذلك متلكم في الفيجوال بيسك وفي الاكسس وفي الاكسل باذن الله

والسلام عليكم ورحمة الله تعالى وبركماته

صدقت وبالحق نطقت

الم يدمر البلاد .. الم يقتل الرجال والوالدان والنساء .. الم يرمل النساء .. الم يخرب الأرض

كم عدد الذين قتلوا بدون ذنب

غير اسمك فورا لطفا يا اخي

قام بنشر

السلام عليكم

أخي الكريم أبو أسامة

جزاك الله كل خير وكثر الله من أمثالك

وضعت نفس الكود لكنه لم يعمل أرجو التوضيح أين الخطأ؟؟؟؟

الملف بالمرفقات

_____________.rar

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information