// Selected Area Refresh // 選択範囲のセル幅をセルの文字数にあわせます。 // ・プロポーショナルフォントでは最適幅にはできません。 // ・フォントにあわせて編集して利用してください。 // ・今のところセル内改行は考えていません。 // 2005/08/02 by Asukaze (http://www.asukaze.net/) // FONT_WIDTHの値は実行する環境によって調整してください。 FONT_WIDTH = 10; MIN_WIDTH = 32; T = SelTop; B = SelBottom; L = SelLeft; R = SelRight; for(x = L; x <= R; x++){ w = MIN_WIDTH; for(y = T; y <= B; y++){ wy = len([x,y]) * FONT_WIDTH; if(w < wy){ w = wy; } } SetColWidth(x,w); }