エクセルVBAで列幅設定

質問

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

回答No.5

cj_mover · ベストアンサー

＃３、４、ｃｊです。
＃４投稿して３０分後に新たに＃３補足欄が投稿されたのを受けて＃３補足欄へのレスです。
たぶん、＃４を見る前に書かれたものなのかな？と思っていますけれど、
こちらの主旨が伝わっていない、ということだけは、よりハッキリしましたので、
相も変わらず下手な説明しか出来ませんが、もう少し書いてみます。

> すみません、以下のようにやってみました。
> 結合セル（C～F）の各セルColumnWidth合計と一つのセル（M）のColumnWidthは同一です。
はい、そのようにした時の、
"各セルColumnWidth合計と一つのセル（M）のColumnWidthは同一"ですが、
【結合セル（C～F）全体】の横幅　＞　【単セル（M）】の横幅、
この、実際の横幅の違い、引いては、１行で表示可能な文字数の違い、に目を向けて貰いたい、
ということを伝えようと一連の回答を投稿しているのです。

> フォント種類サイズも同一です。しかし、不完全なものになってしまいます。
単純にColumnWidth合計を基準にしている限りは避けられない不完全さ、と思いますが、
確かに私の環境でも、＃３補足欄のコードを走らせた結果は、
行高が合わないですし、それ以前に列の幅が違っていますので。
当初の質問文と＃３補足欄でご提示の記述では正しい列の幅がトレース出来ていません。

まず「Excel用語としての列の"幅"=ColumnWidth」の数値を見るのではなくて
「絶対的な列の幅」がきちんとトレース出来ているか視覚的に確認してみてはどうですか？
簡単な確認方法として（＃３でも触れているように）Ｃ：Ｆ列の結合セルをひとつ選んで色付けしてコピーして、
それをＡ列なりＭ列なりに[図]として貼り付ければ、「絶対的な列の幅」の合否を視認できると思うのですけれど。

「Excel用語としての列の"幅"=ColumnWidth」
と
「Excel用語としての（列の幅に関する）"ピクセル"∝Width」
とでは、単位が違うということだけではなくて算出方法が違う、ということなのです。
例えば
＃３で示したＣ：Ｆ列については、{5,3,6,7}という「Excel用語としての列の"幅"=ColumnWidth」
になっていますので、【それぞれの列】に表示可能な文字数を合計すると、２１、になります。
ところが、Ｃ：Ｆ列にセルの結合を適用した場合は、Ｃ：Ｆ列全体に表示可能な文字数は、２３弱、です。
なので、Ａ列なりＭ列なりに「絶対的な列の幅」をトレースする必要があって、
その値をColumnWidthに換算すると、凡そ、２２．８８、になります。
つまり、（今回のように複数列を扱う場合は）
「Excel用語としての列の"幅"=ColumnWidth」を単純に加算したものを列の"幅"に指定しただけでは、
「絶対的な列の幅」よりも小さな幅になってしまう、ということです。

＃３での提案の繰り返しになってしまいますが、
【結合セル（C～F）全体】の「Excel用語としての（列の幅に関する）"ピクセル"∝Width」を基準に
【単セル（M）】の.ColumnWidthに換算した上で設定する方が、楽なのでは？
Ｃ：Ｆ列の結合セル全体の、「Excel用語としての（列の幅に関する）"ピクセル"∝Width」、を取得して、
この∝（比例）関係（フォント由来）を、/ 8
PixelとScreenのXSize（横方向サイズ）の∝（比例）関係を逆数で、* 4 / 3
元々セルの[余白]としてのサイズを、-5
のように演算して求めた結果を
Ａ列なりＭ列なりの「Excel用語としての列の"幅"=ColumnWidth」として設定してあげる、
という例を示したつもりなのです。
それぞれのパラメータを汎用的に取得することは可能でしょうけれど、
そもそもが"もっと簡単な方法はないでしょうか？"というご質問を受けての回答ですから、
あとは調整、修正、運用、の範疇でこなして貰えたら、って思うのです。

まぁ、こちら説明が下手で話が噛み合わないようでもあるので、同じ話はこれぐらいにしておきますが、
どうしても「Excel用語としての列の"幅"=ColumnWidth」だけで実現させたい？という特別なお考えでしたら、
"簡単"ではないにしろWeb上に情報はあるようですし、私の回答に際しての内規からは逸れてしまいますので、
本当にすみませんが、お応えするつもりはありませんので、あしからず。

ただ何ていうか、この課題、Excelクンの一般機能面がもう少し易しい設計だったら悩まずに済むのになぁ、
と思うことが何点かあって、そういう意味では、考えさせられる事が多くて刺激的でありました。

では、また。

お礼

すみません、回答4があるのを気づかないで書いてしまいました。
注意不足のうえ理解が悪くすみません。

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

この換算式でうまくいきました！
なんどもありがとうございます。

これでうまくいったと思ったら、また難題が一つ。
それは別質問といたします。
ありがとうございました。