كيف ترسم دائرة حول خلية في Excel؟
عند تحرير ورقة عمل، قد ترغب في رسم دائرة حول خلية لتسليط الضوء عليها بوضوح، كما في لقطة الشاشة أدناه. سأعرض لك الآن بعض الحيل الفعّالة لرسم دائرة حول خلية في Excel.
رسم دائرة حول خلية باستخدام شكل بيضاوي
رسم دائرة حول خلية باستخدام VBA
رسم دائرة حول خلية باستخدام شكل بيضاوي
لرسم دائرة حول خلية، ما عليك سوى إدراج شكل بيضاوي.
1. انقر فوقإدراج > الأشكال، ثم اخترشكل البيضاويمن قسمالأشكال الأساسيةفي القائمة. انظر لقطة الشاشة:
2. ارسم شكلًا بيضاويًّا ليحيط بالخلية التي تريدها. انظر لقطة الشاشة:
3. انقر بزر الماوس الأيمن على الشكل، ثم اخترتنسيق الشكلمن قائمة السياق.
4. في مربع حوارتنسيق الشكل(أو جزء)تنسيق الشكل)، انقر فوق علامة التبويبالتعبئة، ثم اسحب مؤشرالشفافيةإلى اليمين حتى تظهر القيمة100% في مربع النص. انظر لقطة الشاشة:
5. أغلق مربع الحوار، وسترى على الفور دائرة تحيط بالخلية.
تلميح: بشكل افتراضي، سيتحرّك الشكل ويُغيّر حجمه مع الخلية.
رسم دائرة حول خلية باستخدام VBA
إذا أردت رسم دائرة حول خلية بسرعة، يمكنك استخدام كود VBA.
1. حدد الخلية التي تريد رسم دائرة حولها، ثم اضغط معًا على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة نمطية، ثم انسخ كود VBA التالي إلى النافذة الظاهرة.
VBA: ارسم دائرة حول الخلية.
Sub DrawCircle()
'Updateby20141105
Dim Arng As Range
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each Arng In WorkRng.Areas
With Arng
x = Arng.Height * 0.1
y = Arng.Width * 0.1
Application.ActiveSheet.Ovals.Add Top: = .Top - x, Left: = .Left - y, _
Height: = .Height + 2 * x, Width: = .Width + 1.5 * y
With Application.ActiveSheet.Ovals(ActiveSheet.Ovals.Count)
.Interior.ColorIndex = xlNone
.ShapeRange.Line.Weight = 1.25
End With
End With
Next
WorkRng.Select
End Sub
3. اضغط على مفتاحF5 أو انقر فوق زرتشغيللتشغيل كود VBA، والآن أصبحت الخلية المحددة محاطة بدائرة.
تلميحات:
(1) إذا قمت بتحديد عدة خلايا متجاورة في الخطوة الأولى، فسيقوم ماكرو VBA هذا برسم دائرة تحيط بها جميعًا.
(2) إذا حددتَ عدة خلايا غير متجاورة في الخطوة الأولى، فسيقوم ماكرو VBA هذا برسم دائرة حول كل خلية على حدة.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل