JS问答练习帖

我的城市你来过

问题2：数组间求和？
举例1：数组{10,20,30}与{0,10,30}相加，得到{10,30,60}?

js:
/*function text(){
        let arr=[10,20,30];arr1=[0,10,30]
        for (a=1;a<4;a++){
                Cells(1,a).Value2=arr[a-1]+arr1[a-1];
        }
}*/

今铭昔

我的城市你来过 发表于 2024-8-10 15:31
问题2：数组间求和？
举例1：数组{10,20,30}与{0,10,30}相加，得到{10,30,60}?

function demo(){
        let arr1 = [10,20,30]
        let arr2 = [0,10,30]
        Cells(1, 1).Resize(1, 3).Value2 = arr1.map((n, i) => n + arr2)
}

一江春水1688

今铭昔 发表于 2024-8-10 21:07
function demo(){
        let arr1 = [10,20,30]
        let arr2 = [0,10,30]

老大，您可能笔误了

1. function demo(){
   
2.     let arr1 = [10,20,30]
   
3.     let arr2 = [0,10,30]
   
4.     Cells(1, 1).Resize(1, 3).Value2 = arr1.map((n, i) => n + arr2[i])
   
5. }

复制代码

我的城市你来过

问题3：如何新建工作表?
举例1：在总表后面新建6个分月表?


/*function text(){
        for (a=6;a>0;a--){
                let sh=Worksheets.Add(null,Sheets("总表"));
                try{
                        sh.Name=a+"月"
                }catch(err){
                        alert(`${a}月表格已创建完成`);
                        sh.Delete();
                }
        }
}*/

我的城市你来过

问题4：如何移动工作表?
举例1：将1月表移动至3月表后面?

/*function text(){
        for (let st of Worksheets){
                if (st.Name=="3月"){
                        st.Move(null,Sheets.Item("1月"))
                }else{
                        break
                }
        }
}*/

我的城市你来过

问题Q：如何复制工作表?
举例1：复制当前活动工作表复制移动至1月表后?

/*function text(){
        let st=ActiveSheet;
                st.Copy(null,Sheets.Item("1月"))
}*/

我的城市你来过

问题Q：当前活动工作薄的文件夹内，批量新建工作薄?
举例1：当前活动工作薄的文件夹内，批量新建工作薄?

/*function text(){
        let pah=ActiveWorkbook.Path;
                for (a=1;a<6;a++){
                        let rng=Workbooks.Add();
                                rng.SaveAs(pah+"\\"+a+"月.xlsx");
                                rng.Close()
                }
}*/

我的城市你来过

问题Q：当前工作薄内的工作表，批量拆分并另存于当前文件夹内?
举例1：当前工作薄内的工作表，批量拆分并另存于当前文件夹内?

/*function text(){
        let pah=ThisWorkbook.Path;
                for (let st of ThisWorkbook.Sheets){
                        Workbooks.Add();
                        try{
                                ActiveWorkbook.SaveAs(`${pah}\\${st.Name}.xlsx`);       
                        }catch(err){
                                ActiveWorkbook.Close();
                        }
                }
}*/

我的城市你来过

问题Q：if语句进行条件判断?
举例1：if语句进行条件判断?

/*function text(){
        for (a=2;a<=9;a++){
                let rg=Range("b"+a).Value();
        if (rg>=90){
                Range("c"+a).Value2="优"
        }else{
                Range("c"+a).Value2="继续努力"
        }
        }
}*/