- 861 名前：デフォルトの名無しさん mailto:sage [2009/05/13(水) 07:53:34 ]
- Dim c As Long
Dim s As String
c = RGB(&H12, &H34, &H56)
s = _
"R: " & Right("00000000" & Hex(c And &HFF), 8) & vbCrLf & _
"G: " & Right("00000000" & Hex(c And &HFF00), 8) & vbCrLf & _
"B: " & Right("00000000" & Hex(c And &HFF0000), 8)
MsgBox s
と書いて
R: 00000012
G: 00563400
B: 00560000
が表示されるんですが
G を 00003400 として加工するにはどうすればいいですか？
