ejemplo de código hexadecimal vba de color de celda de Excel

Ejemplo: excel vba resaltar celdas usando el valor de color hexadecimal dentro de las celdas

'VBA function to color cells in selected range based on the hex
'color number entered in each cell. For example, #FF69B4

Sub ColorCellsByHex()
    Dim r
    If TypeName(Selection) <> "Range" Then Exit Sub
    For Each r In Selection
        r.Interior.Color = Abs(("&H" & Mid(r, 6, 2) & Mid(r, 4, 2) & Mid(r, 2, 2)))
    Next
End Sub

---

---

Utiliza Nuestro Buscador