跟我学JavaScript in WPS

OKJSJSF

OKJSJSF 发表于 2024-5-8 20:23
又想了想，没必要用数组了，数组也简化不了什么了，数组要赋值，相当于复制，最多是省了二句表格切换代码 ...

刚学习了一个东西，当MsgBox输出对话框只需第一个参数时，可以用alert( )。如 alert(“执行完毕。”)

OKJSJSF

WPS表格如何改成个人宏工作簿？象EXCEL一样隐藏所有工作表，再通过XML编辑器，做成加载项。具体步骤？

OKJSJSF

OKJSJSF

OKJSJSF 发表于 2024-5-8 20:23
又想了想，没必要用数组了，数组也简化不了什么了，数组要赋值，相当于复制，最多是省了二句表格切换代码 ...

列宽自动适应的代码作修改，又简化了一点。数组的方法还没试。完整代码如下：
function 全行数据一览无余(){
        while(!rang){
                var ran=Application.InputBox("请选个列标题单元格：","参数设置1","","","","","",8);     //输入对话框        
                if(!ran){
                        return;     //退出过程
                        }        
                var rang=Intersect(ran,ran.Parent.UsedRange);     //是否选择了有效区域
                if(!rang){
                        MsgBox("无效选择。",jsQuestion,"金山提醒：");     //输出对话框        
                        }                        
                }                                
        var r=ran.Row;     //引用单元格的行号、列号、当前区域总列数、工作表名称
        var c1=ran.End(xlToLeft).Column;
        var c2=ran.CurrentRegion.Columns.Count;
        var n=ran.Parent.Name;
        Worksheets(n).Cells(r,c1).Resize(1,c2).Copy();     //复制
        Sheets.Add();     //新建工作表
        var n2=ActiveSheet.Name
        Cells(2).PasteSpecial(xlPasteValuesAndNumberFormats, xlPasteSpecialOperationNone, false, true);     //转置粘贴值与数字格式
        Cells(1).Formula = "1";
        Cells(1).AutoFill(Range("A1:A" + c2), xlFillDefault);     //填充自然数
        Worksheets(n).Select();
        while(!rang2){
                var ran2=Application.InputBox("请选个数据单元格：","参数设置2","","","","","",8);        
                if(!ran2){
                        return;
                        }        
                var rang2=Intersect(ran2,ran2.Parent.UsedRange);
                if(!rang2){
                        MsgBox("无效选择。",jsQuestion,"金山提醒：");        
                        }                        
                }        
        Worksheets(n).Cells(ran2.Row,c1).Resize(1,c2).Copy();
        Worksheets(n2).Select();
        Cells(3).PasteSpecial(xlPasteValuesAndNumberFormats, xlPasteSpecialOperationNone, false, true);
        ActiveSheet.UsedRange.Borders.LineStyle = xlContinuous;     //先添加细边框        
        if(c2>50){     //50列以上才分栏
                if(c2%2==0){     //哎呀，余数是这么求的！函数放着不用靠边站了
                        Cells(c2/2+1,1).Resize(c2/2,3).Cut();     //剪切
                        Cells(4).Select();
                        ActiveSheet.Paste();     //回车粘贴法
                        Cells(1).Resize(c2/2,3).Borders.Item(xlEdgeRight).LineStyle = xlDouble;     //分栏的边框线采用双线                                                
                        }
                else{
                        Cells(c2/2+1.5,1).Resize(c2/2+0.5,3).Cut();   
                        Cells(4).Select();
                        ActiveSheet.Paste();     
                        Cells(1).Resize(c2/2+0.5,3).Borders.Item(xlEdgeRight).LineStyle = xlDouble;                                                                             
                        }
                Cells(1).CurrentRegion.Columns.AutoFit();     //当前区域列宽自动适应                  
                }
        Range("G1").Select();
        alert("排版完毕。")
}

OKJSJSF

数组练习：
Range("a1:h10").Value2=[[1,2],[3,4,5,6],["",7]]
上式为把右边的三个常量数组的无素一次性写入左边的10行8列的单元格区域，程序不会出错。第一个数组相当于1行2列，第二个数组相当于1行4列，第三个数组相当于1行2列。三个数组用 [ ]括起来相当于VBA中的 union( )。由于三个数组组合后最多占用3行4列空间，所以执行赋值后，单元格区域中3行4列以外的单元格会被写入错误值 #N/A。
Range("a1").Value2=[[1,2],[3,4,5,6],["",7]]
上式只有第一个数组的第一个元素被写入指定的那个单元格，程序不会出错。
如果是日期写入数组，再数组写入单元格，则日期变成数字。

OKJSJSF

OKJSJSF

ctp_119 发表于 2022-5-24 08:10
当时我没有想到三元操作符，O(∩_∩)O哈哈~

这里变量 t 不需声明？

OKJSJSF

pc087 发表于 2022-6-3 18:53
jsa里，同一个问题可以有多种解法，比vba数组自由多了

哎呀，这是另一种代码，没见过呀。

OKJSJSF

ctp_119 发表于 2022-6-4 20:10
在此感谢pc087坛友，他提供的flat()方法，后来我查资料，看书，深度学习了一下。现总结如下：
...

可能JSA处理问题方案太多，所以更难学

OKJSJSF

ctp_119 发表于 2022-6-4 20:10
在此感谢pc087坛友，他提供的flat()方法，后来我查资料，看书，深度学习了一下。现总结如下：
...

这数组怎么象一层一层的文件夹与子文件夹及文件。