كيفية تطبيق التدرج اللوني عبر خلايا متعددة؟
في Excel ، يمكننا بسهولة ملء لون الخلفية لخلية أو عدة خلايا ، ولكن في بعض الأحيان ، نحتاج إلى ملء اللون بالتدرج كما هو موضح في لقطة الشاشة التالية ، كيف يمكن الحصول على تدرج اللون في خلية أو عبر خلايا متعددة في Excel؟
قم بتطبيق لون متدرج على خلية واحدة باستخدام ميزة تنسيق الخلايا
قم بتطبيق لون متدرج عبر خلايا متعددة باستخدام كود VBA
قم بتطبيق لون متدرج على خلية واحدة باستخدام ميزة تنسيق الخلايا
في Excel ، يمكن أن تساعدك ميزة تنسيق الخلايا على ملء التدرج اللوني في خلية واحدة ، يرجى القيام بما يلي:
1. حدد خلية أو خلايا متعددة تريد تعبئتها بتدرج لوني لكل خلية ، ثم انقر بزر الماوس الأيمن للاختيار تنسيق الخلايا من قائمة السياق ، في تنسيق الخلايا مربع الحوار ، تحت شغل علامة التبويب ، الرجاء الضغط تأثيرات التعبئة زر ، انظر لقطة الشاشة:
2. في تأثيرات التعبئة الحوار ، حدد لونين تريد استخدامهما من القائمتين المنسدلتين الألوان ، ثم حدد أحد أنماط التظليل كما تريد ، مثل أفقي وعمودي وما إلى ذلك. انظر لقطة الشاشة:
3. ثم اضغط OK > OK لإغلاق مربعات الحوار ، ويتم تعبئة لون التدرج لكل خلية كما هو موضح في لقطة الشاشة التالية:
افتح Excel Magic باستخدام Kutools AI
- التنفيذ الذكي: تنفيذ عمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك مدفوع بأوامر بسيطة.
- الصيغ المخصصة: قم بإنشاء صيغ مخصصة لتبسيط سير عملك.
- ترميز VBA: كتابة وتنفيذ كود VBA دون عناء.
- تفسير الصيغة: فهم الصيغ المعقدة بسهولة.
- ترجمة النص: كسر حواجز اللغة داخل جداول البيانات الخاصة بك.
قم بتطبيق لون متدرج عبر خلايا متعددة باستخدام كود VBA
يمكن أن تساعدنا الطريقة أعلاه على التدرج اللوني داخل خلية فردية ، إذا كنت بحاجة إلى تظليل التدرج اللوني عبر خلايا متعددة ، فأنت بحاجة إلى تطبيق رمز VBA لحلها.
1. أولاً ، قم بتعبئة لون خلفية معين في نطاق من الخلايا.
2. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
3. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: تطبيق لون متدرج عبر خلايا متعددة:
Sub colorgradientmultiplecells()
'Updateby Extendoffcie
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xColor As Long
Dim I As Long
Dim K As Long
Dim xCount As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("please select the cells range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
xCount = xRg.Rows.Count
For K = 1 To xRg.Columns.Count
xColor = xRg.Cells(1, K).Interior.Color
For I = xCount To 1 Step -1
xRg.Cells(I, K).Interior.Color = xColor
xRg.Cells(I, K).Interior.TintAndShade = (xCount - (I - 1)) / xCount
Next
Next
End Sub
4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ويظهر مربع موجه لتذكيرك بتحديد الخلايا الملونة التي تريد أن تملأ لون التدرج ، انظر الصورة:
5. ثم انقر فوق OK الزر ، تم عرض اللون داخل خلايا متعددة كلون متدرج ، انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!