Interior.Color如何转成Color或RGB

getset

正常我们从Interior.Color讲到的是一串Long整数，我试了好几个办法都有问题

1、使用Color.ColorTranslator.FromOle()，报索引值index错误。
2、使用VBA的转换值那个


            int r = Convert.ToInt32(m / 65536);

            int g = Convert.ToInt32((m % 65536) / 256);

            int b = Convert.ToInt32((m % 65536) % 256);

报有参数超过256错误。

我的需求就是想读取interior的颜色值，用于其他控件。输出的是RGB，16进程……总之能让Color类接收的值就行。
请高手指导【不要让我上附件，没法上】

约定的童话

Dim colorIndex As Integer
Dim cellColor As Variant
Dim rgbColor As String

' 获取Interior.Color的索引值
colorIndex = Range("A1").Interior.Color

' 将索引转换成Color值
cellColor = Range("A1").Interior.Color

' 将Color值转换成RGB值
rgbColor = RGB(cellColor Mod 256, (cellColor \ 256) Mod 256, cellColor \ 65536)

' 输出结果
MsgBox "Color Index: " & colorIndex & vbNewLine & _
        "Cell Color: " & cellColor & vbNewLine & _
        "RGB Color: " & rgbColor

getset

约定的童话 发表于 2023-7-5 19:27
Dim colorIndex As Integer
Dim cellColor As Variant
Dim rgbColor As String

谢谢，前面应该是我的C#语法写错了，VBA挺简单的一个计算，用C#确认要好好检查，下面是我写的C#的转化
      double colorindex = ActiveSheet.Range["A1"].Interior.Color;
            int r, g, b;
            r = Convert.ToInt32(colorindex % 256);  
            g = Convert.ToInt32(Math.Floor(Math.Floor(colorindex / 256)%256));
            b = Convert.ToInt32(Math.Floor(colorindex / 65536));

临沂-枸杞

ColorTranslator我还没遇到过这个报错,你的color的值是多少?