供給４ - 経済統計練習帳

var x=new Array();
var y=new Array();
var v=new Array();
var point=new Array();
 
function sample() {
 
 
 var id="1qUi-Unz-ujpF971SL9oYY-bmdK8Y3LW_fa7m7zxqHGI"; 
 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);    
}
 
 
 
 
}