列幅を取得・設定・する(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 |
実行結果
関連記事
-
-
セルが結合セルの一部である場合、その結合セルの範囲を取得(MergeArea プロパティ)
MergeArea プロパティ MergeArea プロパティは、指定したセルが …
-
-
入力規則(日本語入力)Validation オブジェクト,IMEMode プロパティ
IMEMode プロパティ Validation.IMEMode プロパティ を …
-
-
オートフィルタ(色で抽出する)AutoFilter メソッド
オートフィルタ(色で抽出する) フォントの色、セルの背景色(条件付き書式による設 …
-
-
オートフィルタ(日付・時刻のグループ化)AutoFilter メソッド
グループ化された日付や時刻で、レコードを抽出する Excel 2007 から日付 …
-
-
使用中のセル範囲を取得(UsedRange プロパティ)
UsedRange プロパティ UsedRange プロパティは、指定したワーク …
-
-
AutoFilter オブジェクト(メソッド・プロパティ)
AutoFilter.ShowAllData メソッド AutoFilter.S …
-
-
セルに値を設定する・セルの値を参照する(Value プロパティ)
Value プロパティ Value プロパティは、セルの値を取得したり、値を設定 …
-
-
ワイルドカードを使って検索(Find メソッド)
Find メソッド 指定したセル範囲内の特定の情報を含むセルを検索します。 【書 …
-
-
終端セルを参照する(End プロパティ)
End プロパティ End プロパティは、基準となるセルが含まれる領域の指定した …
-
-
任意のセルを含む行または列全体を参照(EntireRow プロパティ,EntireColumn プロパティ)
EntireRow プロパティ・EntireColumn プロパティ Entir …