كيفية تكبير أو تكبير الخلايا المحددة في إكسيل؟
كما نعلم جميعًا ، يحتوي Excel على ميزة Zoom لمساعدتنا على زيادة حجم قيمة الخلية في ورقة العمل بأكملها. لكن ، في بعض الأحيان ، نحتاج فقط إلى تكبير أو تكبير الخلايا المحددة فقط. هل توجد أي أفكار جيدة لنا لتكبير الخلايا المحددة في ورقة العمل فقط؟
تكبير أو تكبير الخلية المحددة برمز VBA
تكبير أو تكبير الخلية المحددة برمز VBA
قد لا يكون هناك طريقة مباشرة لنا لتكبير الخلايا المحددة في Excel ، ولكن ، هنا ، يمكنني تقديم رمز VBA للتعامل مع هذه الوظيفة كحل بديل. الرجاء القيام بما يلي:
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريدها لتكبير الخلايا المحددة تلقائيًا ، ثم اختر عرض الرمز من قائمة السياق ، في فتح Microsoft Visual Basic للتطبيقات نافذة ، انسخ والصق الكود التالي في الوحدة النمطية الفارغة:
كود فبا: تكبير أو تكبير الخلايا المحددة:
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 for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!