كيفية التكبير أو تكبير الخلايا المحددة في 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.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!