简单聊一下WPS.JS

OKJSJSF · 发表于 2024-5-5 09:32

function 全行数据一览无余(){

OKJSJSF · 发表于 2024-5-5 09:33

这网页有问题呀

OKJSJSF · 发表于 2024-5-5 09:44

function 全行数据一览无余(){
//Range("A1")
var ran=Application.InputBox("请选个列标题单元格：","参数设置1","","","","","",8);
var r=ran.Row;    //引用单元格的行号、列号、当前区域总列数、工作表名称
var c1=ran.End(xlToLeft).Column;
var c2=ran.CurrentRegion.Columns;
var n=ran.Parent.Name
Worksheets(n).Cells(r,c1).Resize(1,c2).Copy();    //复制，这句不知错在哪？执行不下去
Sheets.Add();    //新建工作表
Cells(2).PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);    //转置粘贴
Cells(1).Formula = "1";
Cells(1).AutoFill(Range("A1:A" + c2), xlFillDefault);    //填充自然数
let rang=Application.InputBox("请选个数据单元格：","参数设置2","","","","","",8);
Worksheets(n).Cells(rang.Row,c1).Resize(1,c2).Copy();
Cells(3).PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);
ActiveSheet.Usedrange.Select();
(obj=>{
obj.WrapText=false    //不自动换行
obj.Interior.Pattern = xlPatternNone;    //无填充颜色
})(Selection);
(obj=>{
obj.Bold = false;    //字体不加粗
obj.ColorIndex = xlColorIndexAutomatic;    //颜色自动
})(Selection.Font);
(obj=>{
obj.ColorIndex = xlColorIndexAutomatic;    //边框颜色自动，6种边框可单独设置.item()
obj.LineStyle = xlContinuous;    //采用细边框
})(Selection.Borders);
if(c2<51){
Columns.Item("A:C").AutoFit();    //不分栏排版3列列宽正好容纳
}
else{
if(Mod(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+0.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;
}
Columns.Item("A:F").AutoFit();
}
Range("G1").Select();
MsgBox("排版完毕。")
}

OKJSJSF · 发表于 2024-5-5 12:55

发现自己不会写代码了
var c2=ran.CurrentRegion.Columns;
少了.Count

OKJSJSF · 发表于 2024-5-5 13:39

求助
if(Mod(c2,2)==0){}
if(Mod(c2,2)){}
if(c2 Mod 2==0){}
为什么都是错的？

OKJSJSF · 发表于 2024-5-5 14:25

OKJSJSF 发表于 2024-5-5 13:39
求助
if(Mod(c2,2)==0){}
if(Mod(c2,2)){}

找到答案，要用百分号求余数。哎呀怎么是这样。

OKJSJSF · 发表于 2024-5-5 22:20

任务完成：
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();    //新建工作表
Cells(2).PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);    //转置粘贴
Cells(1).Formula = "1";
Cells(1).AutoFill(Range("A1:A" + c2), xlFillDefault);    //填充自然数
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();
Cells(3).PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);
with(ActiveSheet.UsedRange){
WrapText=false    //不自动换行
Interior.Pattern = xlPatternNone;    //无填充颜色
}
with(ActiveSheet.UsedRange.Font){
Bold = false;    //字体不加粗
ColorIndex = xlColorIndexAutomatic;    //字体颜色默认
}
with(ActiveSheet.UsedRange.Borders){
ColorIndex = xlColorIndexAutomatic;    //边框颜色自动，6种边框可单独设置.Item()
LineStyle = xlContinuous;    //采用细边框
}
if(c2<51){
Columns.Item("A:C").AutoFit();    //不分栏排版3列列宽正好容纳
}
else{
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;
}
Columns.Item("A:F").AutoFit();    //每列都自动适应列宽
}
Range("G1").Select();
MsgBox("排版完毕。")
}

OKJSJSF · 发表于 2024-5-26 20:32

本帖最后由 OKJSJSF 于 2024-5-26 21:54 编辑

多行多列数组原来是这么表达的，如下：
      var arr=Range("h7:l12").Value2;
      var brr=[11,222,3333,44444,55555];
      var crr=[];
      crr.push(...arr);    //变量数组追加至空数组末尾
      //crr.push(6666,"汉字","Javascript",777);    //常数元素追加至数组末尾
      //crr.unshift(-22,-1);    //常数元素追加至数组开头
      //crr.shift();    //删除数组首元素，只能一个
      //crr.pop();    //删除数组末元素，只能一个
      //crr.push.apply(crr,arr)
      console.clear();
      console.log("元素个数："+crr.length*crr[0].length);
      console.log("首元素："+crr[0][0]);
      console.log("首元素字符个数："+String(crr[0][0]).length);
      console.log("末元素："+crr[crr.length-1][crr[0].length-1]);
      console.log("末元素字符个数："+String(crr[crr.length-1][crr[0].length-1]).length);
      console.log("首行元素："+crr[0,0]);
      console.log("末行元素："+crr[0,crr.length-1]);
      console.log("首列元素：？";
      console.log("末列元素：？";
      //alert(Array.isArray(arr));
      //alert(Array.isArray(brr));
      //alert(Array.isArray(crr));
      //alert(Array.isArray(crr.push.apply(arr,brr)));
      //alert(Array.isArray(Array.prototype.push.apply(arr,brr)));
      Range("a1").Resize(crr.length,crr[0].length).Value2=crr;    //事先必须确定是否多行多列

OKJSJSF · 发表于 2024-5-26 22:06

如果数组由工作表单元和赋值产生，则可以用push()追加至另一个数组的末尾。如果是一行常数数组，则无法追加。如一定要把它追加上去，可以把一行常数数组尾随一个空数组 ,[]，生成一个新数组，再追加。这好像是一维与二维的关系。单元格赋值不管几行都算二维，都可追加，合并数组。

A刘志勇 · 发表于 2024-10-19 21:15

学习了，希望看到更多的内容

		自动登录	找回密码
密码			免费注册

[原创] 简单聊一下WPS.JS

浏览过的版块