//注意function只能全部用小写
function demo(){
alert("你好!")
}
function 使用录制宏自动生成代码以JS宏为例()//使用相对引用
{
Selection.Copy(undefined);
ActiveCell.Offset(5, 0).Range("A1:M4").Insert(xlShiftDown, undefined);
Application.CutCopyMode = false;
ActiveCell.Offset(5, 0).Range("A1:M4").Select();
}
function test1(){
for(var txt of ["春花","秋月","夏风","冬雪"]){
Console.log(txt)
}
}
function test2(){
for(var txt of "java"){//注意这里是逐字母输出
console.log(txt)
}
}
function test3()//输出所有工作表名称
{
for(var shs of Sheets){
Console.log(shs.Name)
}
}
function test6(){
for(var sc of Range("a2:b17").Value2){
Console.log(sc[0]+" = "+sc[1]+"分")//数组的第一序列数为0
if(sc[1]>=90){
Console.log("优异")
}else{
Console.log("普通")
}
}
}
function 批量创建工作表2(){
for (var xingming of Range("a2:a17").Value2){
if (xingming != ""){
Worksheets.Add();
ActiveSheet.Name = xingming[0]
}
}
}
function 批量创建工作簿2(){
for(var jijie of ["春花","秋月","冬雪"]){
Workbooks.Add();
ActiveWorkbook.SaveAs("C:/Users/54240/Desktop/新建文件夹/"+jijie);
//注意是右斜杆,如果是左斜杠应该写成-C:\\Users\\54240\\Desktop\\新建文件夹\\
ActiveWorkbook.Close()
}
}
function 批量拆分工作表到工作簿(){
for (var sh of Sheets){
sh.Copy();'如果没有指定工作簿,则会自动创建一个新的工作簿'
ActiveWorkbook.SaveAs("C:/Users/54240/Desktop/新建文件夹/"+sh.Name);
ActiveWorkbook.Close();
}
}
function test(){
var Arr1=[];
var Arr2=[];
var Arr3=[];
var Arr4=Range("A2:b17").Value();
for (var ar of Arr4){
if (ar[1]>=60){
Arr1.push(ar);//追加到后面
Arr2.unshift(ar)//追加到前面
Arr3.splice(Arr3.length,0,ar)
//splice()
}
}
if(Arr1.length == 0 || Arr2.length == 0){ //也可以用arr1 == false
//JS的与(&&)或(||)非(!)
//JS的=(==)不等于(!=)
alert("没有数值!")
}else{
Range("d2").Resize(Arr1.length,2).Value2= Arr1 //注意arr1为空值的话会出错
Range("f2").Resize(Arr2.length,2).Value2 = Arr2
Range("h2").Resize(Arr3.length,2).Value2 = Arr3
}
}
splice用法
push用法
unshift用法