p fff - 経済統計練習帳

var x=new Array();
var y=new Array();
var v=new Array();
var point=new Array();
 
function sample() {
 
 
 var id="1plmkwtrdvkVFL2OYh7cxW2xHOqk0Gr3khuUSv6gU0-w"; 
 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("rev");
 
 
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]);  
}
}  
 
play();
 
}
 
 
function play(){
 
var z=new Array();
  for(s=1;s<number+1;s++){
  z[s]=new Array();
  }
 
 
var sh3 = ex1.getSheetByName("plus");  
 
 
for(s=1;s<number+1;s++){ 
s1=x[s];
sh3.getRange(s+1, 1).setValue(v[s1][4]);  
}
 
 
for(s=1;s<creditnumber+1;s++){ 
s1=y[s];
sh3.getRange(1, s+1).setValue(v[3][s1]);  
}
 
for(s=1;s<number+1;s++){ 
for(sx=1;sx<creditnumber+1;sx++){  
z[s][sx]=0;
}}
 
 
for(sx=1;sx<creditnumber+1;sx++){  
z[2][sx]=point[2][sx];
z[3][sx]=point[3][sx];
}
 
 
for(sx=1;sx<creditnumber+1;sx++){  
z[1][sx]=z[2][sx]+z[3][sx];
z[4][sx]=z[2][sx]+z[3][sx];
}
 
for(sx=1;sx<creditnumber+1;sx++){  
z[5][sx]=point[5][sx];
z[6][sx]=point[6][sx];
}
 
 
 
 
for(sx=1;sx<creditnumber+1;sx++){  
z[7][sx]=z[5][sx]+z[6][sx]+z[4][sx];
}
 
 
for(sx=1;sx<creditnumber+1;sx++){  
z[9][sx]=point[9][sx];
z[10][sx]=point[10][sx];
z[11][sx]=point[11][sx];
z[12][sx]=point[12][sx];
z[13][sx]=point[13][sx];
z[14][sx]=point[14][sx];
z[15][sx]=point[15][sx];
z[16][sx]=point[16][sx];  
}
 
  for(sx=1;sx<creditnumber+1;sx++){  
z[17][sx]=z[9][sx]+z[10][sx]+z[11][sx]+z[12][sx];
z[17][sx]=z[17][sx]+z[13][sx]+z[14][sx]+z[15][sx]+z[16][sx];
  }
 
for(sx=1;sx<creditnumber+1;sx++){  
z[18][sx]=point[18][sx];
z[19][sx]=point[19][sx];
z[20][sx]=point[20][sx];
} 
 
 
  for(sx=1;sx<creditnumber+1;sx++){  
z[8][sx]=z[18][sx]+z[19][sx]+z[20][sx]+z[17][sx];
 }
 
 
 
for(sx=1;sx<creditnumber+1;sx++){  
z[23][sx]=point[23][sx];
}   
 
 
for(sx=1;sx<creditnumber+1;sx++){  
for(s=25;s<37;s++){
z[s][sx]=point[s][sx];
}
}   
 
 
for(sx=1;sx<creditnumber+1;sx++){  
z1=0;
for(s=25;s<37;s++){
z1=z1+z[s][sx];
}
z[24][sx]=z1;
}  
 
for(sx=1;sx<creditnumber+1;sx++){  
for(s=38;s<53;s++){
z[s][sx]=point[s][sx];
}
}   
 
for(sx=1;sx<creditnumber+1;sx++){  
z1=0;
for(s=38;s<53;s++){
z1=z1+z[s][sx];
}
z[37][sx]=z1;
}  
 
for(sx=1;sx<creditnumber+1;sx++){  
z[53][sx]=point[53][sx];
}   
 
 
for(sx=1;sx<creditnumber+1;sx++){  
for(s=56;s<61;s++){
z[s][sx]=point[s][sx];
}
}   
 
 
for(sx=1;sx<creditnumber+1;sx++){  
z1=0;
for(s=56;s<61;s++){
z1=z1+z[s][sx];
}
z[55][sx]=z1;
}    
 
 
for(sx=1;sx<creditnumber+1;sx++){  
for(s=62;s<66;s++){
z[s][sx]=point[s][sx];
}
}     
 
for(sx=1;sx<creditnumber+1;sx++){  
z1=0;
for(s=62;s<66;s++){
z1=z1+z[s][sx];
}
z[61][sx]=z1;
}      
 
for(sx=1;sx<creditnumber+1;sx++){  
z[54][sx]=z[55][sx]+z[61][sx];
}      
 
 for(sx=1;sx<creditnumber+1;sx++){  
z[22][sx]=z[23][sx]+z[24][sx]+z[37][sx];
}   
 
for(sx=1;sx<creditnumber+1;sx++){  
z[66][sx]=z[22][sx]+z[53][sx]+z[54][sx];
}   
 
 
for(sx=1;sx<creditnumber+1;sx++){  
for(s=68;s<71;s++){
z[s][sx]=point[s][sx];
}
}   
 
 
for(sx=1;sx<creditnumber+1;sx++){  
z1=0;
for(s=68;s<71;s++){
z1=z1+z[s][sx];
}
z[67][sx]=z1;
}       
 
 
for(sx=1;sx<creditnumber+1;sx++){  
z[21][sx]=z[66][sx]+z[67][sx];
}     
 
for(s=1;s<number+1;s++){ 
for(sx=1;sx<creditnumber+1;sx++){  
sh3.getRange(s+1, sx+1).setValue(z[s][sx]);  
}
}    
 
 
}