[已解决]getpixel返回坐标点的rgb,12775390这个是什么值？怎么转换？

daniel32

getpixel返回坐标点的rgb,12775390这个是什么值？怎么转换？

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2017-2-9 17:38

Sub sdf()
s = 12775390
MsgBox h2d(s)
End Sub
Function h2d(aa)
    bb = VBA.Hex(aa)
    If Len(bb) < 3 Then
        bb = "0000" & bb
    ElseIf Len(bb) < 6 Then
        bb = "00" & bb
    End If
    x3 = Left(bb, 2)
    x3 = hex2dec(x3)
    x2 = Mid(bb, 3, 2)
    x2 = hex2dec(x2)
    x1 = Right(bb, 2)
    x1 = hex2dec(x1)
    h2d = "红色" & x1 & "," & "绿色" & x2 & "," & "蓝色" & x3
End Function
颜色是由红绿蓝三色合成
12775390是十进制数，经过h2d函数转换成三种颜色的十进制数

跳转到最佳答案楼层

daniel32

为什么那个值跟一般的rgb不一样？

蓝桥玄霜

Sub sdf()
s = 12775390
MsgBox h2d(s)
End Sub
Function h2d(aa)
    bb = VBA.Hex(aa)
    If Len(bb) < 3 Then
        bb = "0000" & bb
    ElseIf Len(bb) < 6 Then
        bb = "00" & bb
    End If
    x3 = Left(bb, 2)
    x3 = hex2dec(x3)
    x2 = Mid(bb, 3, 2)
    x2 = hex2dec(x2)
    x1 = Right(bb, 2)
    x1 = hex2dec(x1)
    h2d = "红色" & x1 & "," & "绿色" & x2 & "," & "蓝色" & x3
End Function
颜色是由红绿蓝三色合成
12775390是十进制数，经过h2d函数转换成三种颜色的十进制数

daniel32

蓝桥玄霜 发表于 2017-2-9 17:38
Sub sdf()
s = 12775390
MsgBox h2d(s)

显示hex2dec函数未定义？@蓝桥玄霜

再请教一下，getpixel的像素点x,y值，跟一般的屏幕坐标xy一样吗，还是以指定窗口的左上角为起点？

daniel32

原来是worksheetfunction