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

関連記事

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

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

: ワイルドカードを使って検索（Find メソッド）

Find メソッド指定したセル範囲内の特定の情報を含むセルを検索します。【書 …

: フリガナ（Phonetics プロパティ）

Phonetics プロパティ Phonetics コレクションを返します。値の …

: オートフィルタ（抽出条件で使用できる演算子・記号）AutoFilter メソッド

AutoFilter メソッド【書式】 object.AutoFilter ( …

: 対象のセルが配列数式の一部かどうか（HasArray プロパティ）

HasArray プロパティ HasArray プロパティは、対象のセルが配列数 …

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

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

: ハイパーリンク（Hyperlink オブジェクト）

Hyperlink オブジェクト Hyperlinks コレクションのメンバー …

: フリガナの取得（GetPhonetic メソッド）

GetPhonetic メソッド GetPhonetic メソッドは、指定した文 …

: セル・セル範囲に名前を定義・削除（Name プロパティ・Names コレクション）

セル・セル範囲に名前を定義（Name プロパティ） Range オブジェクトのN …

: オートフィルタ（日付フィルタ）AutoFilter メソッド

日付フィルタを使用してレコードを抽出する Excel 2007 から「日付フィル …

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