Birden çok hücreye renk gradyanı nasıl uygulanır?
Excel'de, arka plan rengini bir hücreye veya birden çok hücreye kolayca doldurabiliriz, ancak bazen aşağıdaki ekran görüntüsünde gösterildiği gibi renk gradyanının doldurulması gerekir, renk gradyanını bir hücrede veya Excel'de birden çok hücre arasında nasıl alabiliriz?
| Bir hücreye renk gradyanı | Birden çok hücreye renk geçişi |
 |
 |
Hücreleri Biçimlendir özelliğiyle bir hücreye degrade rengi uygulayın
VBA kodu ile birden çok hücreye gradyan rengi uygulayın
Hücreleri Biçimlendir özelliğiyle bir hücreye degrade rengi uygulayın
Excel'de, Hücreleri Biçimlendir özelliği, renk gradyanını bir hücrede doldurmanıza yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:
1. Her bir hücrenin renk gradyanıyla doldurulmasını istediğiniz bir hücre veya birden çok hücre seçin ve ardından seçmek için sağ tıklayın biçim Hücreler bağlam menüsünden biçim Hücreler iletişim kutusunun altında Doldurmak sekmesi, lütfen tıklayın Dolgu Efektleri düğmesi, ekran görüntüsüne bakın:
2. In Dolgu Efektleri iletişim kutusu, iki açılır listeden kullanmak istediğiniz iki rengi seçin. Renkler bölümünü seçin ve ardından yatay, Dikey vb. gibi istediğiniz şekilde bir gölgeleme stili seçin. Ekran görüntüsüne bakın:
3. Sonra tıklayın OK > OK diyalogları kapatmak için ve degrade rengi gösterilen aşağıdaki ekran görüntüsü gibi her hücre için doldurulur:
VBA kodu ile birden çok hücreye gradyan rengi uygulayın
Yukarıdaki yöntem, tek bir hücrede renk gradyanını renklendirmemize yardımcı olabilir, renk gradyanını birden çok hücre boyunca gölgelemeniz gerekiyorsa, çözmek için bir VBA kodu uygulamanız gerekir.
1. İlk olarak, belirli bir arka plan rengini bir hücre aralığına doldurun.
2. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
3. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Birden çok hücreye degrade rengi uygulayın:
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir anahtar ve gradyan rengini doldurmak istediğiniz renkli hücreleri seçmenizi hatırlatan bir istem kutusu görüntülenir, ekran görüntüsüne bakın:
5. Ve sonra tıklayın OK düğmesi, birden çok hücre içindeki renk gradyan rengi olarak görüntülendi, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
