列幅を取得・設定・する(ColumnWidth プロパティ)
ColumnWidth プロパティ
ColumnWidth プロパティは、対象セルの列の幅を標準フォントの半角文字数で、取得・設定します。プロポーショナル(文字によって文字幅が異なる)フォントの場合は、数字の「0」の幅が文字数の基準になります。
<取得>
Object.ColumnWidth
<設定>
result = Object.ColumnWidth
引数・戻り値
- object ・・・ 対象となる Range オブジェクトを指定します。
- result ・・・ セル幅(標準フォントの半角文字数。プロポーショナル(文字によって文字幅が異なる)フォントの場合は、数字の「0」の幅が文字数の基準)
Width プロパティとの違い
Width プロパティは、取得のみで設定することはできません。 また、ポイント単位で取得します。
Width プロパティで、対象オブジェクトをセル範囲にした場合、範囲内すべてのセルの列幅の合計値を返しますが、ColumnWidth プロパティの場合は、範囲内の 1 つのセルの列幅を返します。(指定されたセル範囲内すべての列の幅が同じでない場合やその中に結合セルが含まれている場合は、Null を返します。)
ColumnWidth プロパティ 使用例
サンプルVBAソース
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 |
実行結果
関連記事
-
-
外枠罫線の設定(BorderAround メソッド)
外枠罫線の設定 罫線の設定には、Borders プロパティを使用しますが、範囲内 …
-
-
セルを参照する(Range プロパティ)
Range プロパティ 任意のセルにアクセスするには Range プロパティを使 …
-
-
フリガナの設定(SetPhonetic メソッド)
フリガナの設定(SetPhonetic メソッド) SetPhonetic メソ …
-
-
オートフィルタ(抽出条件で使用できる演算子・記号)AutoFilter メソッド
AutoFilter メソッド 【書式】 object.AutoFilter ( …
-
-
オートフィルタの設定と解除(AutoFilter メソッド)
AutoFilter メソッド オートフィルタを設定する場合、AutoFilte …
-
-
セルを削除する(Delete メソッド)
Delete メソッド Delete メソッドで、指定したセル・セル範囲を削除し …
-
-
文字列の縦位置を取得・設定する(VerticalAlignment プロパティ)
VerticalAlignment プロパティ VerticalAlignmen …
-
-
使用中のセル範囲を取得(UsedRange プロパティ)
UsedRange プロパティ UsedRange プロパティは、指定したワーク …
-
-
オートフィルタ(アイコンで抽出する)AutoFilter メソッド
オートフィルタ(アイコンで抽出する) Excel 2007 から、条件付き書式で …
-
-
重複するデータを削除(RemoveDuplicates メソッド)
RemoveDuplicates メソッド 指定したセル範囲から重複データを含む …