كيف تدور حول خلية في إكسيل؟
عندما تقوم بتحرير ورقة عمل ، قد ترغب في رسم دائرة حول خلية لإظهارها بوضوح كما هو موضح أدناه. سأقدم الآن بعض الحيل لك للدوران حول خلية في Excel.
ضع دائرة حول خلية ذات شكل بيضاوي
ضع دائرة حول خلية باستخدام VBA
ضع دائرة حول خلية ذات شكل بيضاوي
للدائرة حول خلية ، تحتاج إلى إدراج شكل بيضاوي.
1. انقر إدراج > الأشكالوحدد بيضوي شكل من الأشكال الأساسية قسم في القائمة. انظر لقطة الشاشة:
2. ارسم الشكل البيضاوي لدائرة حول الخلية التي تريدها. انظر لقطة الشاشة:
3. انقر بزر الماوس الأيمن على الشكل وحدد تنسيق الشكل من قائمة السياق.
4. في ال تنسيق الشكل مربع حوار (أو تنسيق الشكل جزء) ، انقر فوق شغل علامة التبويب ، واسحب سهم الشفافية على اليمين للتأكد 100% عرض في مربع النص. انظر لقطة الشاشة:
5. أغلق مربع الحوار. يمكنك الآن رؤية دائرة حول الخلية.
معلومه- سرية: بشكل افتراضي ، سيتحرك الشكل ويتغير حجمه بالخلية.
ضع دائرة حول خلية باستخدام VBA
إذا كنت تريد أن تدور حول خلية بسرعة ، يمكنك استخدام كود VBA.
1. حدد الخلية التي تريد وضع دائرة حولها واضغط ALT + F11 مفاتيح معًا لفتح ملفات ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
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 مفتاح أو انقر يجري زر لتشغيل رمز فبا ، الآن الخلية المحددة محاطة بدائرة.
نصيحة:
(1) إذا حددت عدة خلايا متجاورة في الخطوة الأولى ، فإن ماكرو VBA هذا سوف يدور حول هذه الخلايا معًا.
(2) إذا حددت عدة خلايا غير متجاورة في الخطوة الأولى ، فإن ماكرو VBA هذا سوف يدور حول كل خلية على حدة.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!