İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də hüceyrə rənginə əsaslanan dəyəri dəyişdirmək üçün necə?

Bu məqalə Excel-də fon rənginə əsasən avtomatik olaraq cell dəyərinin dəyişdirilməsindən bəhs edir. Məsələn, seçkidə qırmızı fon rəngli hüceyrələr doldurduqda, bu hüceyrələri 1 sayı ilə doldurun və mavi fon rəngli hüceyrələr üçün 0 nömrəsini doldurun.

VBA kodu ilə hüceyrə rənginə əsaslanan dəyəri dəyişdirin


arrow mavi sağ bubble VBA kodu ilə hüceyrə rənginə əsaslanan dəyəri dəyişdirin


Excel-də hüceyrə rənginə əsaslanan dəyəri dəyişdirmək üçün aşağıdakı VBA kodu çalıştırabilirsiniz. Xahiş edirik bunu edin.

1. Arka plan rənglərinə əsaslanan dəyərləri dəyişdirmək üçün lazım olan aralığı seçin və sonra basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules, sonra aşağıdakı VBA kodu Module pəncərəsinə kopyalayıb yapışdırın.

VBA kodu: Excel-də hüceyrə rənginə əsaslanan dəyəri dəyişdirin

Sub ChangeValueBasedOnCellColor()
    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 255 'Red
                    .Value = 1
                Case Is = 15773696 'Blue
                    .Value = 0
            End Select
        End With
    Next
    Application.DisplayAlerts = False
End Sub

3. Basın F5 kodunu çalıştırmak üçün düyməni seçə bilərsiniz, sonra seçilmiş aralığın bütün qırmızı hüceyrələri 1 sayı ilə doldurulur və mavi hüceyrələr 0 nömrəsi ilə göstərilən ekran görüntüsünün altındakı kimi doldurulur.



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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.
  • To post as a guest, your comment is unpublished.
    JBrinx · 28 days ago
    Excel seems to crash whenever I try to run the VBA code. Seems like a bust.
  • To post as a guest, your comment is unpublished.
    Dan · 1 years ago
    I'm looking to give a cell a name based on the colour within one worksheet. i.e. if a cell is red then it gets named "name", if it is orange then it gets names "surname" etc.



    What code would need to change to have the range as the whole sheet/tab and a name instead of a value?
  • To post as a guest, your comment is unpublished.
    Tim · 1 years ago
    What changes to the code would be needed if you wanted this to apply to the text color of a cell, rather than the cell color?