エクセルVBAで列幅設定

質問

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

回答No.4

cj_mover

＃３、ｃｊです。お礼欄のみ投稿されている時点でのお礼欄へのレスです。

> 正しくは、列幅というより表示出来る文字数でした。
＃３の回答主旨に沿って言えば、仕様(1)絶対的な幅（ピクセル幅）ということのようです。
　[列幅]（Excelの用語）　＝　（フォントの種類とサイズに準じて）表示可能な文字数によって表す列の幅
　[文字数]（便宜上の用語）　＝　表示可能な文字数
　[文字幅単位]（便宜上の用語）　＝　（フォントの種類とサイズに準じて）基準となる１文字に割り振られる[ピクセル]値
　[余白]（便宜上の用語）　＝　表示に必要な幅に加える余地。１列にひとつ設定される。
　　※何れも[表示100%]を基準にしますが、異なるズーム表示したもの同士を比較した場合に表示可能な文字数が変化するだけで、
　　[列幅]と[ピクセル]の相対関係はズームに係りません。
という風に定義したとすると、
　　[列幅]で表す[文字数]　＊　[文字幅単位]　＋　[余白]
という風に絶対的な幅が【各列毎に】決まっているので、
"複数列[列幅]の合計"から"単列の[列幅]"を設定しようとすると、列数に比例した[余白]の分の誤差が出てしまいます。

> 実は、レイアウトの都合上、どうしても一部の行で複数列を結合した表をつくらなければなりません。そしてそこに自動表示させるのは、計算によって求められらたある値に対応する長文の文字列なのです。
> この長文文字列を折り返して表示させるのですが、表示させるのは数種類のうちの1つなので、行の高さをあらかじめ固定できません。
> しかし行の高さの自動調整は結合セルでは使えません。そこで同じ行に、結合させる複数列と同じ幅の１列を作って、そこにいったん長文を折り返して表示させ、そこで行の高さの自動調整をかける仕掛けを作っていたのです。
"数種類"というのがよく解りませんが、セル内で何行分文表示させる（[折り返して全体を表示する]の仕様に準）か、
実行前に予測ができない、という意味かと思います。
フォントサイズが統一されているなら、とか、等幅フォントを使っているなら、とか、
条件によっては、簡単にできる部分もあるでしょうけれど、この手の課題は汎用性を考えることで、
周りからは手が付けられない課題になってしまうことが多いです。
「結合セルについて[折り返して全体を表示する]機能の自動に準じた行の高さを設定する」ということでしたら、
それはそのテーマで質問してみてもいいかも知れません。
その場合は、環境や条件を限定するか、または汎用型を求めているとハッキリ意思表示するかすれば、
役立つ回答も付き易いと思います。
[折り返して全体を表示する]機能も実は必要以上の行高を返したり（１行分多かったり）する場合が多いので、
必要十分な行高を返すように書く他のアプローチでも結構悩んだ覚えがあります。
また、印刷した時の仕上がり、とか、ページレイアウトへの影響とか、も考慮するべきかも知れません？
不得手な私には何が必要でどこまでやれば十分か判断がつきませんです。
簡易簡略、という方向で、とりあえず、＃３の主旨にそって、
「ざっくり手抜き版」の仕様(1)に書き加えると、以下のような感じでも、まぁ、使えるのではないでしょうか？
こちらの環境では、
Ａ列の単セルとＣ：Ｆ列の結合セルで、[折り返して全体を表示する]機能による見かけ上の改行ポイントを揃えられること
を確認しています。
　4 / 3
　5
　8
などのパラメータはPC環境、フォントに合わせて変える必要がありますが、
書式としては共通している、と思います。
' ' ///
Sub Re8490019n()
　　Dim i As Long
　　i = 3
　　Columns("A").ColumnWidth = (Range("C1:F1").Width * 4 / 3 - 5) / 8
　　With Cells(i, "A")
　　　　.WrapText = True
　　　　.Value = Cells(i, "C")
　　End With
End Sub
' ' ///

お礼

ありがとうございました。
たすかりました。