ｐ９９９８７ - 経済統計練習帳

var x=new Array();
var y=new Array();
var v=new Array();
var point=new Array();
 
function sample() {
 
 
 var id="1gCRx-EHdr8yJXDes2DxOmKyRfAnzR7xGhu9S4y3WIO0"; 
 ex1 = SpreadsheetApp.openById(id);
 var sheet = ex1.getSheetByName("data"); 
 
  for(s=1;s<100;s++){
  x[s]=0;
  }
 
 sx=0;
for(s=16;s<100;s++){ 
str=sheet.getRange(s, 1).getValue();
if(str>0)sx=sx+1;
if(str>0)x[sx]=s;
}
 
number=sx;  
 
  sx=0;
for(s=1;s<100;s++){ 
st2=sheet.getRange(14, s).getValue();
if(st2.indexOf("TJ")>-1)sx=sx+1;
if(st2.indexOf("TJ")>-1)y[sx]=s;
} 
 
creditnumber=sx;  
 
  for(s=1;s<100;s++){
  v[s]=new Array();
  }
 
 
  for(s=1;s<100;s++){
  for(sx=1;sx<100;sx++){
  v[s][sx]=sheet.getRange(s, sx).getValue();
  }}
 
 
var shx = ex1.getSheetByName("整理");
 
 
for(s=1;s<number+1;s++){ 
s1=x[s];
shx.getRange(s+1, 1).setValue(v[s1][4]);  
}
 
 
for(s=1;s<creditnumber+1;s++){ 
s1=y[s];
shx.getRange(1, s+1).setValue(v[3][s1]);  
}
 
 
sx=0;  
for(s=1;s<number+1;s++){ 
s1=x[s];
point[s]=new Array();
for(sx=1;sx<creditnumber+1;sx++){  
s2=y[sx];  
point[s][sx]=v[s1][s2]; 
}
}  
 
 
 
 
for(s=1;s<number+1;s++){ 
for(sx=1;sx<creditnumber+1;sx++){  
shx.getRange(s+1, sx+1).setValue(point[s][sx]);  
}
}  
 
 
 
var sh2 = ex1.getSheetByName("検証");
 
 
for(s=1;s<number+1;s++){ 
s1=x[s];
sh2.getRange(s+1, 1).setValue(v[s1][4]);  
}
 
 
for(s=1;s<creditnumber+1;s++){ 
s1=y[s];
sh2.getRange(1, s+1).setValue(v[3][s1]);  
}
 
 
for(s=2;s<4;s++){ 
for(sx=1;sx<creditnumber+1;sx++){  
sh2.getRange(s+1, sx+1).setValue(point[s][sx]);  
}
}   
 
 
s=1;
for(sx=1;sx<creditnumber+1;sx++){  
p1=point[2][sx]+point[3][sx];
sh2.getRange(s+1, sx+1).setValue(p1);    
}
 
s=4;
for(sx=1;sx<creditnumber+1;sx++){  
p1=point[2][sx]+point[3][sx];
sh2.getRange(s+1, sx+1).setValue(p1);    
}
 
 
 for(s=5;s<7;s++){ 
for(sx=1;sx<creditnumber+1;sx++){  
sh2.getRange(s+1, sx+1).setValue(point[s][sx]);  
}
}   
 
 
s=7;
for(sx=1;sx<creditnumber+1;sx++){  
p1=point[4][sx]+point[5][sx]+point[6][sx];
sh2.getRange(s+1, sx+1).setValue(p1);    
}
 
 
for(s=9;s<17;s++){ 
for(sx=1;sx<creditnumber+1;sx++){  
sh2.getRange(s+1, sx+1).setValue(point[s][sx]);  
}
}  
 
s=17;
for(sx=1;sx<creditnumber+1;sx++){  
p1=point[9][sx]+point[10][sx]+point[11][sx]+point[12][sx]+point[13][sx]+point[14][sx]+point[15][sx]+point[16][sx];
sh2.getRange(s+1, sx+1).setValue(p1);    
}
 
for(s=18;s<21;s++){ 
for(sx=1;sx<creditnumber+1;sx++){  
sh2.getRange(s+1, sx+1).setValue(point[s][sx]);  
}
}  
 
 
s=8;
for(sx=1;sx<creditnumber+1;sx++){  
p1=point[18][sx]+point[19][sx]+point[20][sx]+point[17][sx];
sh2.getRange(s+1, sx+1).setValue(p1);    
}  
 
 
for(s=25;s<37;s++){ 
for(sx=1;sx<creditnumber+1;sx++){  
sh2.getRange(s+1, sx+1).setValue(point[s][sx]);  
}
}  
 
s=24;
 
for(sx=1;sx<creditnumber+1;sx++){  
p1=0;
for(s1=25;s1<37;s1++){
p1=p1+point[s1][sx]
  }
sh2.getRange(s+1, sx+1).setValue(p1);  
}
 
 
 
}