ColumnWidth プロパティ
ColumnWidth プロパティは、対象セルの列の幅を標準フォントの半角文字数で、取得・設定します。プロポーショナル（文字によって文字幅が異なる）フォントの場合は、数字の「0」の幅が文字数の基準になります。
【書式】
＜取得＞
Object.ColumnWidth
＜設定＞
result = Object.ColumnWidth
引数・戻り値
- object ・・・ 対象となる Range オブジェクトを指定します。
- result ・・・ セル幅（標準フォントの半角文字数。プロポーショナル（文字によって文字幅が異なる）フォントの場合は、数字の「0」の幅が文字数の基準）
Width プロパティとの違い
Width プロパティは、取得のみで設定することはできません。 また、ポイント単位で取得します。
Width プロパティで、対象オブジェクトをセル範囲にした場合、範囲内すべてのセルの列幅の合計値を返しますが、ColumnWidth プロパティの場合は、範囲内の 1 つのセルの列幅を返します。（指定されたセル範囲内すべての列の幅が同じでない場合やその中に結合セルが含まれている場合は、Null を返します。）
ColumnWidth プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
Sub Sample_ColumnWidth() Dim DefSize, w1, w2, cw1, cw2 '現在の標準スタイルのフォントサイズを取得（⇒ 11） DefSize = ActiveWorkbook.Styles("Normal").Font.Size 'A列B列の列幅を「20」に設定 Range("A1:B1").ColumnWidth = 20 '列幅取得（フォントサイズ標準） cw1 = Columns("A").ColumnWidth w1 = Columns("A").Width '標準スタイルのフォントサイズを 14 に設定 ActiveWorkbook.Styles("Normal").Font.Size = 14 '列幅取得（フォントサイズ 14） cw2 = Columns("B").ColumnWidth w2 = Columns("B").Width '「ColumnWidth プロパティ（文字数）」と「Width プロパティ（ポイント）」を表示 MsgBox "フォントサイズ（" & DefSize & "）A列 ColumnWidth：" & cw1 & " ／Width：" & w1 & Chr(13) & _ "フォントサイズ（14）B列 ColumnWidth：" & cw2 & " ／Width：" & w2 'フォントサイズを元に戻す ActiveWorkbook.Styles("Normal").Font.Size = DefSize End Sub |
実行結果
