- 日時： 2007/08/09 11:11
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：列幅,列の幅,自動設定,オートフィット *
***********************************************************************************
元質問： Excelの列幅を設定したいです。 - ゆうや 2002/10/08-18:12 No.917
Excelで列幅(行幅)をダブルクリックすると、セル内容にあわせて自動的に幅を変更できますが、VBからExcelに対してこれをやりたい時、何かコマンドで一発実行できるのでしょうか。
-----------------------------------------------------------------------------------
Re: Excelの列幅を設定したいです。 - batchman 2002/10/09-08:58 No.932
-----------------------------------------------------------------------------------
SheetオブジェクトのColumnsプロパティで列のRangeオブジェクトを取得して、AutoFitメソッド実行すれば出来ますよ。
-----------------------------------------------------------------------------------
列幅を取得・列幅を設定・セルの文字列長に合せて列幅を設定 - 花ちゃん 2007/08/09
-----------------------------------------------------------------------------------
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
'Excel 操作部分(列幅を取得・列幅を設定・セルの文字列長に合せて列幅を設定する）
'列幅を取得(列幅の単位は、標準スタイルの 1 文字分の幅に相当します。
'プロポーショナル フォントでは、数字の 0 の幅が列幅の単位になります)
Debug.Print xlSheet.Range("A:X").ColumnWidth '8.38(72ピクセル）
'列幅を取得(ポイント単位)
Debug.Print xlSheet.Range("A:X").Width '1296
'A列〜X列までの列幅を20に設定
xlSheet.Range("A:X").ColumnWidth = 20
'仮データを入力
xlSheet.Range("B1:G1").Value = 1234567
'仮データの文字列長に合せて列幅を自動調整
xlSheet.Range("B:G").Columns.AutoFit
'下記でも設定できますが、上記が正しいようです。
' xlSheet.Columns("B:G").AutoFit
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
|
列幅を取得・設定・セルの文字列長に合て列幅を設定（VB6.0 基本編）