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

関連記事

: 行・列の表示・非表示（Hidden プロパティ）

Hidden プロパティ Hidden プロパティに True を設定することで …

: セルの値を置換（Replace メソッド）

Replace メソッド任意のセル範囲内から特定の値を一括して置換します。Fi …

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

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

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

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

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

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

: セルの高さ・幅を取得（Height プロパティ・Width プロパティ）

Height プロパティ・Width プロパティ Height プロパティは、指 …

: セルの文字列を取得（Text プロパティ）

Text プロパティセルに表示されている文字列を取得します。Text プロパテ …

: セル幅・高さの既定値（StandardHeight プロパティ・StandardWidth プロパティ）

StandardHeight プロパティ・StandardWidth プロパティ …

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

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

: セル範囲を結合・結合を解除（Merge メソッド・UnMerge メソッド）

Merge メソッド・UnMerge メソッドセルを結合するには、指定したセル …

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