怎么写wps宏代码运行区域

Question

代码需要在指定的表格区域生效
生效区域为B9:J17

function Application_SheetSelectionChange()
{
    for(var ii=9;ii<=17;ii++)
    {
       switch (true)
        {
     
        case Cells(ii,2).Value2 != undefined && Cells(ii,4).Value2 > 0 && Cells(ii,5).Value2 > 0:
            Cells(ii,8).Value2=Cells(ii,4).Value2*Cells(ii,5).Value2;
            break;
        default:
            Cells(ii,8).Value2="";
            break;
        }
        switch (true)
        {
        case Cells(ii,2).Value2 != undefined && Cells(ii,9).Value2 > 0 && Cells(ii,10).Value2 > 0:
            Cells(ii,11).Value2=Cells(ii,9).Value2*Cells(ii,10).Value2;
            break;
        default:
            Cells(ii,11).Value2="";
            break;
        }
    }

}

Answer 1

思路：1判断目标的工作表名称是否符合；2判断目标是否在B9:L17单元格区域，用Application.Intersect方法；3获取B9:L17单元格数据，用forEach循环处理数据

function Workbook_SheetSelectionChange(Sh, Target) {
    if (Sh.Name != '销售单') return
    let rng = Application.Intersect(Target, Range('B9:L17'))
    if (rng) {
        let data = Range('B9:L17').Value2
        let ros = 9
        data.forEach(i => {
            if (i[0] && i[2] && i[3]) {
                Cells(ros, 8).Value2 = i[2] * i[3]
            } else { Cells(ros, 8).Value2 = '' }

            if (i[0] && i[7] && i[8]) {
                Cells(ros, 11).Value2 = i[7] * i[8]
            } else { Cells(ros, 11).Value2 = '' }

            ros++
        })

    }
}