كيف يمكن تغيير حجم الخط بسرعة بناءً على قيمة الخلية في Excel؟
تغيير حجم الخط استنادًا إلى قيمة عمود آخر
تغيير حجم الخط استنادًا إلى قيمة الخلية وطول الأحرف
تغيير حجم الخط استنادًا إلى قيمة عمود آخر
لتغيير حجم الخط استنادًا إلى قيمة عمود آخر، إليك كود VBA الذي يمكنه مساعدتك.
1. انتقل إلى الورقة التي تريد تغيير حجم الخط فيها استنادًا إلى عمود آخر، ثم اضغطAlt + F11 معًا لفتحنافذة Microsoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة، ثم الصق كود VBA أدناه فيالوحدة. راجع لقطة الشاشة:
VBA: تغيير حجم الخط استنادًا إلى قيمة عمود آخر
Sub fontchange()
'UpdatebyExtendoffice20160614
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells that you want to change font size:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
MsgBox "Only can select one column", vbInformation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For Each xCell In xRg
xCell.Font.Size = xCell.Offset(, 1).Value
Next
Application.ScreenUpdating = True
End Sub
3. اضغط علىF5، وستظهر نافذة منبثقة؛ حدد الخلايا التي تريد تغيير حجم خطها. راجع لقطة الشاشة:
4. انقر فوقموافق، وبذلك يتم تعديل حجم خط خلايا العمود المحدد استنادًا إلى القيم في العمود المجاور.
تغيير حجم الخط استنادًا إلى قيمة الخلية وطول الأحرف
إذا كنت ترغب في تغيير حجم الخط استنادًا إلى قيمة الخلية نفسها أو طول نصها — على سبيل المثال، عندما تكون القيمة أكبر من 10 أو يتجاوز طول النص 5 أحرف — فسيتم ضبط حجم الخط تلقائيًا على 16 مع استخدام خط Arial؛ وإلا، يبقى حجم الخط 11 بخط Calibri، كما هو موضح في لقطة الشاشة أدناه.
1. اضغط علىAlt + F11 لفتحنافذة Microsoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة، ثم الصق الكود أدناه فينص الوحدة. راجع لقطة الشاشة:
VBA: تغيير حجم الخط استنادًا إلى قيمة الخلية أو طول الأحرف
Private Sub Worksheet_Calculate()
'UpdatebyExtendoffice20160614
Dim xCell As Range
For Each xCell In Range("G2:H9")
With xCell
If Len(.Text) > 5 Or Val(.Value) > 10 Then
.Font.Name = "Arial"
.Font.Size = 16
Else
.Font.Name = "Calibri"
.Font.Size = 11
End If
End With
Next
End Sub
3. اضغط علىF5 لتشغيل الكود، حيث تم تغيير الخط إلى Arial وحجم الخط إلى 16 للقيم التي تزيد عن 10 أو التي يتجاوز طول أحرفها 5 أحرف.
تلميح:في الكود أعلاه، يمكنك تغيير النطاق G2:B9 إلى أي نطاق آخر تريده.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل