请求将按颜色求和的VBA代码转换为Office Scripts代码

先纠正原VBA里的变量名错误：代码中的celda应为cell，Celdacolor应为Cellcolor，修正后的逻辑是遍历目标求和区域，匹配指定单元格的颜色索引，累加符合条件的单元格数值。

对应的Office Scripts实现如下，功能与原VBA完全一致：

// 作为Excel自定义函数的版本（可直接在单元格中调用，比如=SUMBYCOLOR(A1, B1:B10)）
/**
 * 按指定单元格颜色对目标区域求和
 * @param colorCell 参考颜色的单元格
 * @param sumRange 需要求和的目标区域
 * @returns 符合颜色条件的单元格数值总和
 */
function SUMBYCOLOR(colorCell: ExcelScript.Range, sumRange: ExcelScript.Range): number {
  let total = 0;
  // 获取参考单元格的颜色索引
  const targetColorIndex = colorCell.getFormat().getFill().getColorIndex();
  // 遍历目标区域的每个单元格
  const cells = sumRange.getCells();
  for (let row of cells) {
    for (let cell of row) {
      const cellColorIndex = cell.getFormat().getFill().getColorIndex();
      if (cellColorIndex === targetColorIndex) {
        // 仅累加数字类型的单元格值
        const cellValue = cell.getValue();
        if (typeof cellValue === 'number') {
          total += cellValue;
        }
      }
    }
  }
  return total;
}

补充说明 #

• Office Scripts基于TypeScript编写，上述代码是符合Excel自定义函数规范的版本，调用方式和原VBA函数完全一致。
• 相比原VBA，脚本增加了数值类型判断，避免非数字单元格触发错误，逻辑更健壮。
• 原VBA中的ColorIndex属性，对应Office Scripts里的getColorIndex()方法，颜色匹配逻辑完全对齐。

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