כיצד ליישם מילוי צבע מדורג על פני מספר תאים?

ב-Excel, אנחנו יכולים בקלות למלא צבע רקע לתא או מספר תאים, אבל לפעמים אנו צריכים שהצבע ימולא בצורה מדורגת כפי שמוצג בסcreenshot הבא, כיצד ניתן לקבל מילוי צבע מדורג בתא אחד או על פני מספר תאים ב-Excel?

מילוי צבע מדורג לתא אחד

מילוי צבע מדורג על פני מספר תאים

ליישם צבע מדורג לתא אחד עם תכונת עיצוב תאים

ליישם צבע מדורג על פני מספר תאים עם קוד VBA

ליישם צבע מדורג לתא אחד עם תכונת עיצוב תאים

ב-Excel, תכונת עיצוב התאים יכולה לעזור לך למלא את הצבע המדורג בתא אחד, אנא עשה את הפעולות הבאות:

1. בחר תא או מספר תאים שברצונך למלא בצבע מדורג בכל תא, ולאחר מכן לחץ לחיצה ימנית ובחר עיצוב תאים מהתפריט הקונטקסטואלי, בתיבת הדו-שיח עיצוב תאים, תחת הטאב מילוי, לחץ על כפתור אפקטי מילוי, ראה צילום מסך:

2. בתיבת הדו-שיח אפקטי מילוי, בחר שני צבעים שתרצה להשתמש בהם משתי הרשימות הנפתחות של סעיף צבעים, ולאחר מכן בחר סגנון מצללה שאתה מעדיף, כגון אופקי, אנכי, וכן הלאה. ראה צילום מסך:

3. לאחר מכן לחץ אישור > אישור לסגירת הדו-שיחים, והצבע המדורג ממולא לכל תא כפי שמוצג בסcreenshot הבא:

פתחו את הקסם של Excel עם Kutools AI

• ביצוע חכם: בצעו פעולות בתאים, ניתוח נתונים ויצירת תרשימים - הכל מונע על ידי פקודות פשוטות.
• נוסחאות מותאמות אישית: צור נוסחאות מותאמות אישית כדי להיעיל את זרימת העבודה שלך.
• תכנות VBA: כתבו והטמיעו קוד VBA ללא מאמץ.
• פרשנות נוסחאות: הבינו נוסחאות מורכבות בקלות.
• תרגום טקסט: שברו את מחסומי השפה בגיליונות הנתונים שלכם.

שפרו את יכולות ה-Excel שלכם עם כלים המופעלים על ידי AI. הורידו עכשיו וחוו יעילות כ никогда קודם לכן!

ליישם צבע מדורג על פני מספר תאים עם קוד VBA

שיטת לעיל יכולה לעזור לנו למלא צבע מדורג בתוך תא יחיד, אם אתה צריך לצבוע את הצבע המדורג על פני מספר תאים, יהיה עליך להפעיל קוד VBA כדי לפתור זאת.

1. ראשית, מלא צבע רקע מסוים לטווח תאים.

2. החזק את המקשים ALT + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

3. לחץ הוסף > מודול, והדבק את הקוד הבא בחלון ה מודול.

קוד VBA: ליישם צבע מדורג על פני מספר תאים:

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. ואז לחץ על כפתור אישור, הצבע בתוך מספר תאים מוצג בצבע מדורג, ראה צילום מסך: