16進数→10進数(RGB)
#80CADE → R:128 G:202 B:222
Dim StrHex As String Dim intVal As Integer Dim R As Range Set R = Range("I30") Do Until R.Value = "" 'R StrHex = Mid(R.Value, 2, 2) intVal = Val("&H" & StrHex) R.Offset(, -4).Value = intVal 'G StrHex = Mid(R.Value, 4, 2) intVal = Val("&H" & StrHex) R.Offset(, -3).Value = intVal 'B StrHex = Mid(R.Value, 6, 2) intVal = Val("&H" & StrHex) R.Offset(, -2).Value = intVal Set R = R.Offset(1) Loop