エクセルVBAで列幅設定

質問

• エクセルVBAを使用して、A列の幅をC〜F列の幅に設定したいが、ColumnWidthとWidthの単位の違いによりエラーが発生する。
• 同じ単位で設定するためには、Columns("A").ColumnWidthにColumns("C").ColumnWidth + Columns("D").ColumnWidth + Columns("E").ColumnWidth + Columns("F").ColumnWidthを代入する必要がある。
• より簡単な方法はわからない。

回答No.3

cj_mover

こんにちは。お邪魔します。

ちょっと、やりたい事の解釈に迷っていましたが、
何故迷ったのか、の説明から始めます。

とりあえず、添付画像をみてください。
それぞれ１行めの黄色い背景色で示しているのは、
「範囲Ｃ：Ｆの幅」（Excelシート上での絶対幅）を表す比較用のスケールです。
また、半角"0"を２１桁、統一して並べているのも比較の為です。

添付画像の仕様(1)と仕様(2)で何が違うかというと、
仕様(1)は、
「範囲Ｃ：Ｆの幅」をピクセルで採ったものを「Ａ列の幅」として適用しています。
対して仕様(2)は、
「範囲Ｃ：Ｆ各列の表示可能な文字数（によって決まる幅）の合計」を「Ａ列の表示可能な文字数（によって決まる幅）」として適用しています。

仕様(1)は範囲Ｃ：Ｆ全体の絶対的な幅、
仕様(2)はセルの幅をセル内に表示出来る文字数で解釈した幅の合計です。

元質問でご提示のふたつの例は、どちらも(2)のような結果を返しますが、
"A列の幅を、C～F列の幅に設定"、、、ということだと、ちょっと違うようにも思えたりしました。
仕様(2)のような結果を求めているのであれば、一例めの
> Columns("A").ColumnWidth = Columns("C").ColumnWidth + Columns("D").ColumnWidth + Columns("E").ColumnWidth + Columns("F").ColumnWidth
のようなやり方で十分、シンプルな記述と言えるように思います。

ちょっと脇に逸れますが、.ColumnWidthについて、
ＶＢＡのヘルプでは、
> 列幅の単位は、標準スタイルの 1 文字分の幅に相当します。プロポーショナル フォントでは、数字の 0 の幅が列幅の単位になります。
と説明されています。
Excelの［オプション］［基本設定］［新しいブックの作成時］の
［使用するフォント］と［フォントサイズ］で設定された値によって、返す値が違ってくる、
ということのようです。

という前置きをしておいて、
例えば、自分の仕事環境だと、フォント：「ＭＳ　Ｐ　ゴシック」、フォントサイズ：「１１」という
（ありきたりな）基本設定で（その他の環境も）統一されていたりするので、
簡便さだけを追求して決め打ち的に、ざっくりと手抜きをして、次のような方法もアリなのかも知れません。
（検証不十分かも？ですけれども(^^;)、、、）

　仕様(1)
　　Columns("A").ColumnWidth = (Range("C1:F1").Width * 4 / 3 - 5) / 8

　仕様(2)
　　With Range("C1:F1")
　　　　Columns("A").ColumnWidth = (.Width * 4 / 3 - .Columns.Count * 5) / 8
　　End With

仕様(1)については、もう少し汎用的な例をひとつ。
Range("C1:F1").WidthとRange("A1").Widthでピクセル幅は取得出来るので、
ピクセル幅が同値になるまでループして、
Range("A1").ColumnWidthを繰り返し設定し直す、みたいなこと、昔書いてた覚えがあります。
実際はＡＰＩとか組み合わせた方がいいんでしょうけれど、とりあえず、パラメータは適当に書いています。
こんなアプローチもアルって紹介程度で、、、。

Sub Re8490019jj()
　　Dim dblTgtWidth As Double
　　dblTgtWidth = Range("C1:F1").Width
　　Application.ScreenUpdating = False
　　With Range("A1")
　　　　' ' 横幅を一旦、小さめに設定
　　　　.ColumnWidth = dblTgtWidth * 0.16　　 '　　「４：３画面」なら * 0.117　　数値は大き過ぎず適当に
　　　　' ' 横幅を一旦、やや大きめに設定
　　　　' ' 横幅が目標値より小さい間ループして、1/2文字分ずつ横幅を拡げる
　　　　Do While dblTgtWidth > .Width
　　　　　　.ColumnWidth = .ColumnWidth + 0.5　　 '　　数値は大き過ぎず適当に
　　　　Loop
　　　　' ' 横幅が目標値より大さい間ループして、指定の精度ずつ横幅を狭める
　　　　Do While dblTgtWidth < .Width
　　　　　　.ColumnWidth = .ColumnWidth - 0.068　　　　'　　数値は小さ過ぎず適当に
　　　　Loop
　　End With
　　Application.ScreenUpdating = True
End Sub

（私は印刷関連の扱いが不得手ですので、以下の説明に出てくる"幅"についてはあくまでも
　ＰＣ画面に表示されたExcelシート上でのお話です。
　また、各種ＰＣ環境やバージョンの違いについても疎い私です。）
以上、ご参考まで。

お礼

ありがとうございます。
質問の意図をもっと詳しく書いとけばよかったですね、すみません。
正しくは、列幅というより表示出来る文字数でした。

実は、レイアウトの都合上、どうしても一部の行で複数列を結合した表をつくらなければなりません。そしてそこに自動表示させるのは、計算によって求められらたある値に対応する長文の文字列なのです。
この長文文字列を折り返して表示させるのですが、表示させるのは数種類のうちの1つなので、行の高さをあらかじめ固定できません。
しかし行の高さの自動調整は結合セルでは使えません。そこで同じ行に、結合させる複数列と同じ幅の１列を作って、そこにいったん長文を折り返して表示させ、そこで行の高さの自動調整をかける仕掛けを作っていたのです。

補足

すみません、以下のようにやってみました。
結合セル（C～F）の各セルColumnWidth合計と一つのセル（M）のColumnWidthは同一です。
フォント種類サイズも同一です。しかし、不完全なものになってしまいます。
Sub test03()
Dim c As Range
Dim x As Single
Dim i As Long
For Each c In Range("C1:F1")
c.Value = c.ColumnWidth
x = x + c.ColumnWidth
Next
Columns("M").ColumnWidth = x
Range("M1").Value = Columns("M").ColumnWidth
For i = 2 To 10
Cells(i, "M").Value = Cells(i, "C").Value
Next
Rows("2:10").AutoFit
End Sub