简单聊一下WPS.JS

OKJSJSF

OKJSJSF 发表于 2024-5-4 10:40
录制了一段宏，对代码进行了精减后如下
function 全行数据一览无余(){
        Range("A1:AA1").Copy();     // ...

这个程序的作用是：工作中，有的工作表列数过多，几十列甚至上百列，一般显示器或宽屏显示器都不能完全显示表格中一行的全部数据，有时还需打印这一行数据。所以，必须把这行数据进行“复制粘贴、转置、剪切粘贴”操作，分左右二栏进行排版，这样做以后，一般17寸普屏显示器即可全部显示一行100列默认字号数据，A4纸可一页打印。
不过好像有个新函数能直接实现这个功能，还没试过。

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方法未能返回单元格对象，只返回数字、字符、逻辑值、单元格中 ...

还有一个引用与名称