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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 連続データを入力する（AutoFill メソッド）

AutoFill メソッド Excel で、連続するデータを入力する「オートフィ …

: 行の高さを取得・設定・する（RowHeight プロパティ）

RowHeight プロパティ RowHeight プロパティは、対象セルの高さ …

: 指定したセルへ移動（Goto メソッド）

指定したセルへ移動指定したシートの指定したセルへジャンプするには、Goto メ …

: 非連続のセルが選択されているか確認する（Areas コレクション）

Areas コレクションの使い方複数の離れた位置にあるセル範囲を選択した場合 …

: 入力規則（リストで制限する）Validation.Add メソッド

ドロップダウンリストで入力値を制限 Validation.Add メソッド（また …

: 文字列の一部の書式を変更（Characters プロパティ）

文字列の一部を参照（Characters プロパティ） Characters プ …

: 罫線の設定（Borders プロパティ）

罫線の設定罫線を一括（上下左右すべて）で設定するには、Borders プロパテ …

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

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

: オートフィルタ（色で抽出する）AutoFilter メソッド

オートフィルタ（色で抽出する）フォントの色、セルの背景色（条件付き書式による設 …

: セルの行番号または列番号を取得（Row プロパティ,Column プロパティ）

Row プロパティ・Column プロパティ Row プロパティは、指定したセル …

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