使用Range.BorderAround方法时如何正确设置边框颜色？

问题核心误区 #

• 误区1：误将读取到的近似ColorIndex值作为精确传参
  当边框使用的自定义颜色不在工作簿默认56色调色板范围内时，读取.ColorIndex属性只会返回和当前颜色最接近的调色板索引值，并非精确匹配的颜色参数。你拿到的ColorIndex=24就是近似值，直接传入方法后会调用调色板内实际的24号色（紫色），和目标淡蓝色不符。
• 误区2：传Color参数时未正确处理ColorIndex占位，触发Excel 2007版本逻辑bug
  BorderAround方法的参数优先级为：ColorIndex > Color > ThemeColor。你按位置传参写的MyRange.BorderAround xlContinuous, xlThin, , 15849925中，第三个ColorIndex参数留空时，方法默认传入xlColorIndexAutomatic（自动配色），会直接忽略后面传入的自定义Color值，最终渲染为默认黑色边框。你之前尝试传xlColorIndexAutomatic/xlColorIndexNone时如果是按位置传参，大概率是参数位置错位导致设置未生效。
• 误区3：混淆VBA颜色值通道顺序
  VBA的.Color属性接收的长整型值为BGR通道顺序（低字节到高字节依次为蓝、绿、红），如果是手动从RGB取色值转换长整型，容易出现通道顺序反转导致的颜色错位，你直接从已生效边框读取的15849925是系统生成的正确值，不存在该问题。

适配Excel 2007的正确写法 #

强烈建议显式指定参数名传参，彻底避免位置错位问题，必须显式将ColorIndex设为xlColorIndexNone，强制方法读取自定义Color参数值：

MyRange.BorderAround _
    LineStyle:=xlContinuous, _
    Weight:=xlThin, _
    ColorIndex:=xlColorIndexNone, _
    Color:=15849925

校验方式 #

如果执行后颜色仍有偏差，可直接获取准确的颜色长整型值：选中已设置好正确淡蓝色外边框的单元格，按Ctrl+G调出VBA编辑器立即窗口，输入?Selection.Borders(xlEdgeTop).Color按回车，输出的数值即为可直接传入Color参数的精确值。

内容的提问来源于stack exchange，提问作者Toddleson