写真だけでもアップ ↓これ、何かの素材に使えそう・・・

#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.Val…