简单聊一下WPS.JS

OKJSJSF

OKJSJSF

        下面四种单元格的操作语法，请问哪种速度最快？
第一种，录制的宏
        Range("A1:F14").Select();
        Selection.Interior.Pattern = xlPatternNone;     //填充颜色无
        (obj=>{
                obj.Bold = false;     //字体不加粗
                obj.ColorIndex = xlColorIndexAutomatic;     //颜色自动
        })(Selection.Font);
        (obj=>{
                obj.ColorIndex = xlColorIndexAutomatic;     //边框颜色自动，6种边框可单独设置.item()
                obj.LineStyle = xlContinuous;     //采用细边框
        })(Selection.Borders);

第二种，取消了选择，直接单元格区域，使用4次obj
        Range("A1:F14").Interior.Pattern = xlPatternNone;     //填充颜色无
        (obj=>{
                obj.Bold = false;     //字体不加粗
                obj.ColorIndex = xlColorIndexAutomatic;     //颜色自动
        })(Range("A1:F14").Font);
        (obj=>{
                obj.ColorIndex = xlColorIndexAutomatic;     //边框颜色自动，6种边框可单独设置.item()
                obj.LineStyle = xlContinuous;     //采用细边框
        })(Range("A1:F14").Borders);

第三种，直接单元格区域，使用5次obj
        (obj=>{
                obj.Interior.Pattern = xlPatternNone;     //填充颜色无
                obj.Font.Bold = false;     //字体不加粗
                obj.Font.ColorIndex = xlColorIndexAutomatic;     //颜色自动
                obj.Borders.ColorIndex = xlColorIndexAutomatic;     //边框颜色自动，6种边框可单独设置.item()
                obj.Borders.LineStyle = xlContinuous;     //采用细边框
        })(Range("A1:F14");

第四种，直接使用5次单元格区域，取消obj
        Range("A1:F14").Interior.Pattern = xlPatternNone;     //填充颜色无
        Range("A1:F14").Font.Bold = false;     //字体不加粗
        Range("A1:F14").Font.ColorIndex = xlColorIndexAutomatic;     //颜色自动
        Range("A1:F14").Borders.ColorIndex = xlColorIndexAutomatic;     //边框颜色自动，6种边框可单独设置.item()
        Range("A1:F14").Borders.LineStyle = xlContinuous;     //采用细边框

OKJSJSF

xd3210 发表于 2024-5-3 16:04
ActiveCell.Address();

请教老师，下面的代码总是错，这输入输出对话框在JSA这么难做,一窃不通,这里Msgbox没有括号就不行，也不能自动弹出Address，好像不能识别ran是单元格对像。
        var ran=Application.InputBox("请选个列标题单元格：","参数设置1","","","","","",8);
        var str=ran.Address();
        Msgbox(str);

OKJSJSF

JSA中输入对话框的三种写法：
function test1(){
        var myNum = Application.InputBox("请录入数字", "取值", 32,"","","","",1)
        Console.log(myNum)
        ActiveCell.Value2=myNum
}

function test2(){
        var myNum = Application.InputBox("请录入数字", "取值", 32,undefined,undefined,undefined,undefined,1)
        Console.log(myNum)
        ActiveCell.Value2=myNum
}

function test3(){
        var myNum = Application.InputBox({Prompt:"请录入数字", Title:"取值", Default:32,Type:1})
        Console.log(myNum)
        ActiveCell.Value2=myNum
}

OKJSJSF

通过试用VBA中的各种数据类型，JSA中inputbox方法未能返回单元格对象，只返回数字、字符、逻辑值、单元格中的值四种

OKJSJSF

终于获得地址字符串
function test(){
        var ran = Application.InputBox({Prompt:"请选个单元格", Title:"参数设置", Type:8})
                console.clear()
        Console.log(ran.Address())
        ActiveCell.Value2=ran.Address()
}

OKJSJSF

        终于发现错误所在，MsgBox写成Msgbox，居然其中还有一个大写字母。
var ran=Application.InputBox("请选个列标题单元格：","参数设置1","","","","","",8);
        MsgBox(ran.Address());

OKJSJSF

        var ran=Application.InputBox("请选个列标题单元格：","参数设置1","","","","","",8);
        MsgBox(ran.Row);
这个正常了。

OKJSJSF

OKJSJSF 发表于 2024-5-4 16:47
通过试用VBA中的各种数据类型，JSA中inputbox方法未能返回单元格对象，只返回数字、字符、逻辑值、单元格中 ...

还有一个引用与名称

OKJSJSF

接下来代码继续出错：
if(c2<51){
    ...     //如果列数50列以内，则不分栏排版
    }
else{
    if(c2 mod 2==0){
        ...     //否则（列数50列以上）且列数是偶数，那么这么计算位置剪切粘贴分栏排版
        }
    else{
        ...     //否则（列数50列以上）但列数非偶数，那么另外计算位置剪切粘贴分栏排版
        }
    }