VBA　Griffin編

【3】色の表現RGBとBGRの対応

EXCELのセルの色は#BBGGRRで表現されるのでHTMLの書式#RRGGBBへ変換する必要があります。
Dim w_s As String, w_bgc As String
　　w_s = Format(Hex(Cells(i, j).Interior.Color), "@@@@@@")　'桁数を常に16進数6桁にするために
　　w_s = Replace(w_s, " ", "0")　　　　　　　　　'スペースは0へ変換
　　'BGRをRGBへ変換
　　w_bgc = Mid(w_s, 5, 2) & Mid(w_s, 3, 2) & Mid(w_s, 1, 2)