列幅を取得・設定・する(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 |
実行結果
関連記事
-
-
セル内部を参照(Interior プロパティ)
Interior プロパティ Interior プロパティで、セルの内部を参照し …
-
-
セル・セル範囲を切り取る(Cut メソッド)
Cut メソッド Cut メソッドは、指定したセル範囲を切り取り、引数に指定した …
-
-
書式で検索(Find メソッド,FindFormat プロパティ)
書式で検索 書式を条件にセルを検索する場合、まず、その書式条件を CellFor …
-
-
ワイルドカードを使って検索(Find メソッド)
Find メソッド 指定したセル範囲内の特定の情報を含むセルを検索します。 【書 …
-
-
対象のセルが参照している全てのセルを取得(Precedents プロパティ)
Precedents プロパティ Precedents プロパティは、対象のセル …
-
-
次の検索(FindNext メソッド,FindPrevious メソッド)
FindNext メソッド Find メソッドで開始された検索を継続します。引数 …
-
-
文字列の横位置を取得・設定する(HorizontalAlignment プロパティ)
HorizontalAlignment プロパティ HorizontalAlig …
-
-
セル範囲内を検索(Find メソッド)
Find メソッド 指定したセル範囲内の特定の情報を含むセルを検索します。 【書 …
-
-
オートフィルタの設定と解除(AutoFilter メソッド)
AutoFilter メソッド オートフィルタを設定する場合、AutoFilte …
-
-
セルの位置を取得(Left プロパティ、Top プロパティ)
Left プロパティ・Top プロパティ Left プロパティは、「A列」の左端 …