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

関連記事

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

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

: 入力規則（エラーメッセージの設定）Validation オブジェクト

無効値を入力時に、エラーメッセージの表示 Validation.ShowErro …

: セルを削除する（Delete メソッド）

Delete メソッド Delete メソッドで、指定したセル・セル範囲を削除し …

: 使用中のセル範囲を取得（UsedRange プロパティ）

UsedRange プロパティ UsedRange プロパティは、指定したワーク …

: フリガナの設定（Characters プロパティ,PhoneticCharacters メソッド）

Characters プロパティ Characters プロパティは、文字範囲を …

: セルをアクティブにする・セルを選択する（Activate, Select）

セルをアクティブにする・選択する【書式：セルをアクティブにする】 object …

: セル・セル範囲をコピーする（Copy メソッド）

Copy メソッド Copy メソッドは、セル範囲をコピーし、指定したセル範囲に …

: AutoFilter オブジェクト（メソッド・プロパティ）

AutoFilter.ShowAllData メソッド AutoFilter.S …

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

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

: コメントの設定（Comments, Comment, AddComment, ClearComment）

コメントの設定セルにコメントを新規に挿入するには、AddComment メソッ …

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