كيفية التكبير أو تكبير الخلايا المحددة في Excel؟
كما نعلم جميعًا، يحتوي Excel على ميزة التكبير لمساعدتنا على زيادة حجم قيمة الخلية في ورقة العمل بأكملها. ولكن في بعض الأحيان، قد نحتاج فقط إلى تكبير أو تكبير الخلايا المحددة فقط. هل هناك أي أفكار جيدة يمكننا من خلالها تكبير الخلايا المحددة فقط في ورقة العمل؟
تكبير أو تكبير الخلية المحددة باستخدام كود VBA
تكبير أو تكبير الخلية المحددة باستخدام كود VBA
قد لا يكون هناك طريقة مباشرة لتكبير الخلايا المحددة في Excel، لكن هنا يمكنني أن أقدم لك كود VBA للتعامل مع هذه المهمة كحل بديل. يرجى القيام بما يلي:
1. انقر بزر الماوس الأيمن على تبويب الورقة التي تريد تكبير الخلايا المحددة فيها تلقائيًا، ثم اختر عرض الكود من قائمة السياق، في نافذة Microsoft Visual Basic for applications المفتوحة، انسخ والصق الكود التالي في الوحدة الفارغة:
كود VBA: تكبير أو تكبير الخلايا المحددة:
Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xShape As Variant
Set xRg = Target.Areas(1)
For Each xShape In ActiveSheet.Pictures
If xShape.Name = "zoom_cells" Then
xShape.Delete
End If
Next
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
Application.ActiveSheet.Pictures.Paste.Select
With Selection
.Name = "zoom_cells"
With .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
With .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Solid
.Transparency = 0
End With
End With
End With
xRg.Select
Application.ScreenUpdating = True
Set xRg = Nothing
End Sub
2. ثم احفظ وأغلق نافذة الكود هذه، الآن، عندما تقوم بتحديد أو النقر على بعض خلايا البيانات، سيتم تكبير الخلايا تلقائيًا كصورة، انظر إلى لقطة الشاشة:
ملاحظة: ستعود الخلايا المحددة إلى حجمها الأصلي بعد تحديد خلايا أخرى.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد