Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

列幅を取得・設定・する（ColumnWidth プロパティ）

2015/07/13

ColumnWidth プロパティ

ColumnWidth プロパティは、対象セルの列の幅を標準フォントの半角文字数で、取得・設定します。プロポーショナル（文字によって文字幅が異なる）フォントの場合は、数字の「0」の幅が文字数の基準になります。

【書式】

＜取得＞
Object.ColumnWidth

＜設定＞
result = Object.ColumnWidth

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。
result ・・・セル幅（標準フォントの半角文字数。プロポーショナル（文字によって文字幅が異なる）フォントの場合は、数字の「0」の幅が文字数の基準）

Width プロパティとの違い
Width プロパティは、取得のみで設定することはできません。また、ポイント単位で取得します。
Width プロパティで、対象オブジェクトをセル範囲にした場合、範囲内すべてのセルの列幅の合計値を返しますが、ColumnWidth プロパティの場合は、範囲内の 1 つのセルの列幅を返します。（指定されたセル範囲内すべての列の幅が同じでない場合やその中に結合セルが含まれている場合は、Null を返します。）

ColumnWidth プロパティ使用例

サンプルVBAソース

　
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

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

　

実行結果

- セルの操作 ColumnWidth プロパティ, Range オブジェクト, VBA基本, エクセルVBA, セルの操作, 列幅の取得, 列幅の設定

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: オートフィルタ（日付・時刻のグループ化）AutoFilter メソッド

グループ化された日付や時刻で、レコードを抽出する Excel 2007 から日付 …

: セルを挿入する（Insert メソッド）

Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …

: オートフィルタ（日付による抽出）AutoFilter メソッド

日付で、抽出する（AutoFilter メソッド）【書式】 object.Au …

: 網かけ（パターン）の取得・設定（Pattern プロパティ）

網かけ（パターン）を取得・設定するセルの背景に網かけ（パターン）を設定したり、 …

: 書式で検索（Find メソッド,FindFormat プロパティ）

書式で検索書式を条件にセルを検索する場合、まず、その書式条件を CellFor …

: 終端セルを参照する（End プロパティ）

End プロパティ End プロパティは、基準となるセルが含まれる領域の指定した …

: セルが結合セルの一部である場合、その結合セルの範囲を取得（MergeArea プロパティ）

MergeArea プロパティ MergeArea プロパティは、指定したセルが …

: セルの幅・高さの自動調整（AutoFit メソッド）

AutoFit メソッド AutoFit メソッドは、指定したセル・セル範囲（R …

: 対象のセルが参照している全てのセルを取得（Precedents プロパティ）

Precedents プロパティ Precedents プロパティは、対象のセル …

: アクティブなセルを参照する（ActiveCell プロパティ）

ActiveCell プロパティ ActiveCell プロパティは、各ウィンド …

PREV: セルの高さ・幅を取得（Height プロパティ・Width プロパティ）
NEXT: 行の高さを取得・設定・する（RowHeight プロパティ）