// PadZero.cms 2010.10.09 by あすかぜ // 桁数の少ないセルに「0」を付加して、カーソル列のデータの桁数を揃えます。 // 編集・再配布は自由です。 // 最大桁数を調べる maxDigits = 0; for(y=1; y<=Bottom; y++){ maxDigits = max(maxDigits, len([x,y])); } // 連結用の「000...」を準備 padString = ""; for(i=0; i < maxDigits; i++){ padString = "0" + padString; } // 最大桁数に満たないセルに 0 をつける for(y=1; y<=Bottom; y++){ if([x,y] != ""){ padCount = maxDigits - len([x,y]); [x,y] = left(padString, padCount) + [x,y]; } }