// tL連番.cms ver 1.00 ( '03.08.11 Tanabe S. ) /*******************************************************************************/ // 連番を振るマクロです。 // // 機能:行方向にタイトル行の下のセルから連番を振ります。 //  カーソルはタイトル行の連番を振るセルに置いてください。 //  カーソルのあるセルが数値で有れば、それを開始として連番を振ります。 // 制限:連番は1づつの増加です。 // /*******************************************************************************/ // ############################ function ################################## // // 機能 : 任意の開始値で1の増加値の連番を振る // // 返り値 : なし // // 引き数 : ARG1 - 開始セル行 // ARG2 - 開始セル列 // ARG3 - 連番開始値 // // 機能説明 : 最終セルまで一挙に振ります。 // // 備考 : // function SetSeqNumber(row,col,strt) { seqnum=strt; // 振りはじめの番号 for(funcR=row;funcR<=Bottom;funcR++) { [col,funcR]=seqnum; seqnum++; } } //-------------------------------------------------------------------------------- // /*############################# Start Main process ###############################*/ // // 機能 : マクロ開始時にあるセル位置から下に連番を振る // // 機能説明 : 起動時のセル位置が連番のタイトル文字とします。 // 連番のセルを指定したの時、 // 1 空欄なら、そこを1として連番を振ります。 // 2 数値が入っているなら、その数値を開始として連番を振ります。 // 3 文字が入っているなら、その下のセルに1から連番を振ります。 // // 備考 : // string=[Col,Row]; if(0==len(string)) { // 連番の最初の空白セルとみなす start=1; }else if("1"<=left(string,1) && left(string,1)<="9" ) { start=string; }else { // タイトル行とみなし1行分下げる Row++; start=1; } SetSeqNumber(Row,Col,start); /*********************************** End of Program ******************************/