Get Value Background

  1. 11 bulan yang lalu

    Share code, moga bermanfaat :D

    Private Sub CommandButton1_Click()
    Dim str0 As String, str As String
    Dim cel As Range
    For Each cel In Selection
    str0 = Right("000000" & Hex(cel.Interior.Color), 6)
    str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2)
    If str = "FFFF00" Then 'kuning
    cel = "2"
    ElseIf str = "FF0000" Then 'merah
    cel = "3"
    ElseIf str = "007100" Then 'hijau
    cel = "1"
    End If:
    'cel = "#" & str & ""
    Next cel
    done:
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    End Sub

  2. SetiawanAgus

    24 Jan 2018 Terverifikasi Kebumen + 702 Poin

    ini kode buat apa mas?
    maap, masih belajar :D

  3. Qo gagal ya
    Warnanya ngga berubah... ting.... (sambil nyoba lagi)

  4. 10 bulan yang lalu

    sebenarnya code diatas bukan untuk merubah warna, tapi untuk memberi nilai pada setiap cell yang ada fill warnanya sesuai dengan kode warnanya

  5. Ya, yang dikatakan mas robyrnl betul. Itu buat memberikan nilai pada cell yang memiliki background color. Dan code diatas juga hanya berlaku untuk warna kuning, hijau, merah. Untuk menambahkan warna atau mengubah nilai silahkan ditambah sendiri. :D

 

atau Mendaftar untuk ikut berdiskusi!