نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية تغيير حجم الخط بسرعة استنادا إلى قيمة الخلية في إكسيل؟

دوك تغيير حجم الخط استنادا إلى قيمة شنومك
في إكسيل، يمكنك تغيير حجم خط الخلية كما تريد، ولكن هل حاولت من أي وقت مضى لتغيير حجم خط الخلية استنادا إلى قيمة عمود آخر كما هو مبين أدناه لقطة شاشة؟ في هذه المقالة، أعرض بعض التعليمات البرمجية فبا لمساعدتك بسرعة تغيير حجم الخط استنادا إلى قيمة الخلية في إكسيل.
تغيير حجم الخط استنادا إلى قيمة عمود آخر

تغيير حجم الخط بناء على قيمة الخلية وطول الحرف

حدد خلايا محددة

مع كوتولس ل إكسيل's حدد خلايا محددة فائدة، يمكنك تحديد خلايا / صف / أعمدة على أساس واحد خام اثنين من المعايير، ثم تنسيقها ما تحتاج إليه، مثل تغيير حجم الخط والخلفية وهلم جرا.

دوك حدد خلايا محددة
علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في الشركة.

السهم الأزرق الفقاعة اليمنى تغيير حجم الخط استنادا إلى قيمة عمود آخر


لتغيير حجم الخط استنادا إلى قيمة عمود آخر، هنا يمكن أن يساعدك رمز فبا.

1. انتقل إلى الورقة التي تريد تغيير حجم الخط استنادا إلى عمود آخر، ثم اضغط على ALT + F11 مفتاح في وقت واحد لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ثم لصق أدناه فبا إلى وحدة. انظر لقطة الشاشة:

فبا: تغيير حجم الخط استنادا إلى قيمة عمود آخر

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. انقر OK، ثم تم تعديل الخلايا في العمود المحدد حجم الخط استنادا إلى قيم في العمود التالي.
دوك تغيير حجم الخط استنادا إلى قيمة شنومك


السهم الأزرق الفقاعة اليمنى تغيير حجم الخط بناء على قيمة الخلية وطول الحرف

كوتولس ل إكسيل, مع أكثر من 120 وظائف إكسيل مفيد، وتعزيز كفاءة العمل الخاص بك وتوفير وقت العمل الخاص بك.

من ناحية أخرى، إذا كنت ترغب في تغيير حجم الخط استنادا إلى قيمة الخلية الخاصة أو طول الحرف، على سبيل المثال، عندما تكون قيمة الخلية أكبر من شنومك، أو طول الحرف هو أكثر من شنومك، ثم تغيير حجم الخط إلى شنومك، وتغيير الخط إلى أريال، وإلا، وحجم الخط هو شنومك، والخط هو كالبري كما هو مبين أدناه قطة الشاشة.
دوك تغيير حجم الخط استنادا إلى قيمة شنومك

1. صحافة ALT + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق أقل من التعليمات البرمجية ل وحدة النصي. انظر لقطة الشاشة:

فبا: تغيير حجم الخط بناء على قيمة الخلية أو طول الحرف

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 مفتاح لتشغيل التعليمات البرمجية، والقيم التي هي أكبر من شنومكس أو طول حرف أكثر من شنومكس تم تغيير الخط إلى أريال وحجم الخط إلى شنومك.

تلميح: في التعليمات البرمجية أعلاه، يمكنك تغيير نطاق غنومكس: بكسنومكس للآخرين كما تريد.

دوك تحميل شنومكس


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 60.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.