「VBAによるExcel結合セルの幅の計算結果」の修正方法

Question

前提・実現したいこと

結合セルの幅をVBAで取得しようとしています。
やり方はMergeAreaで列の幅を足していけばいいとわかったのですが、
以下の画像のとおり実際の値とあいません。

N21からAA21が結合セルで列幅は画像のとおりです。
合計の33.71をAC列に設定したのですが、結合セルの方が見てわかる通り大きいです。

なぜこのようなことが起きるのでしょうか？
原因と解決策を教えて頂けると幸いです。

よろしくお願い致します。

Dim i
Dim iWidth As Double: iWidth = 0

' 結合セルの幅を取得
For i = 1 To Range(結合セル).MergeArea.Columns.Count
    iWidth = iWidth + outputSheet.Range(cell).MergeArea.Item(i).ColumnWidth
Next

補足情報（FW/ツールのバージョンなど）

Excel 2016

Comments

[meg_]

コードを掲載してください。

[tokoro47]

コード追加しました。
よろしくお願い致します。

[meg_]

outputSheetとcellが突然出てきて良く分かりませんが、「Range(結合セル)」と「outputSheet.Range(cell)」は同じセル（範囲）なのですよね？

[tokoro47]

すみません。その通りです。
ただ、論点が少しずれた気がするので修正させていただきます。
主に知りたいのは原因です。
最終的にはVBAで実行するのですが、各セルの幅の取得もシート上で操作し取得しました。
原因わかりますでしょうか？

[meg_]

自分のPCで試してみましたが、ほぼ同じ列幅で設定できました。(Excel2013)
結合セルの幅は本当に「33.71」ですか？

[meg_]

>ただ、論点が少しずれた気がするので修正させていただきます。
>主に知りたいのは原因です。
そのためには正確なコードが必要だと思います。回答者側で検証可能なコード（パス以外はそのまま動くようなコード）がないと回答しずらいです。

[tokoro47]

＞自分のPCで試してみましたが、ほぼ同じ列幅で設定できました。(Excel2013)
＞結合セルの幅は本当に「33.71」ですか？
　本当ですか！？
　N21からAA21までのセル幅は画像の通りになっており、AC列は33,71にしてあります。
　しかし、結合セルN21には「"123456789012345678901234567890123456789"」が入るのに対し
　、AC21には「"123456789012345678901234567890123」までしか入りません。

[tokoro47]

＞そのためには正確なコードが必要だと思います。回答者側で検証可能なコード（パス以外はそのまま動くよ
　うなコード）がないと回答しずらいです。
申し訳ありません、浅はかな考えでした。
今回は、幅の問題でVBAがなくとも検証可能なため、コードは必要ないと考えておりました。

[meg_]

・コードに間違いがないことが明確でしたら、microsoftに問い合わせてみてはどうでしょうか？Excelの仕様上の問題かもしれませんね。（以前は問い合わせ用のサイトがありました）
・質問を読んで試したので「セル幅」のことしか確認していません。質問に書いてなかったため、文字が見切れるかどうかについては検証しておりません。

Answer 1

Option Explicit

Sub test()
    Dim rng As Range
    Dim c As Range
    Dim d As Double

    Set rng = Range("A1").MergeArea
    ' 結合セルの幅を取得
    For Each c In rng.Columns
        d = d + c.EntireColumn.ColumnWidth
    Next
    
    rng.Cells(1, rng.Count + 2).ColumnWidth = d + (rng.Count - 1) * 0.6125
    
    Debug.Print rng.Width
    Debug.Print rng.Cells(1, rng.Count + 2).Width
End Sub

力技で微調整してみた^^;
（真面目に数式なりマクロなり考えるのがめんどくさいんで、
それっぽい値を10回位試したらなぜかそれっぽくなった＾＾；）
列と列の間には罫線用の間があると思われます。(罫線の太さで罫線用の幅もかわらないか不安）
ネットで検索してもその辺の情報が見つからなかった。

ぴったりあわせて何をしたいかが分かりませんが、
いずれにしてもこの辺の幅とかはエクセルはざっくりな感じなので、
あんまりこだわっても上手くいかないかもしれません。

Comments

[tokoro47]

ご回答ありがとうございます。
私もとりあえず定数足して、対応しています。
ただ、私だけだはなく、他の人も使用するものなので、バージョンの違いなどでずれが生じないかが心配です。
それで、明確な原因を知っている方がいればと思い質問させていただきました。

ちなみに何をしたいかですが、結合セルの高さの自動調整です。
自動調整のために1度結合をとき、幅を結合セルに合わせなければいけません。

[mattuwan]

あぁ、なるほど、、、、
その件は「絶対の方法」がなさそうです。
オートフィットを使っても文字切れは起り得ます。
結合セルを一旦解除してもいいですが、
作業用のシートを用意しておいてそっちでオートフィットさせてみて値を取ってくるのが一番簡便かと思います。
高さの調整なら、セルのフォントの大きさを取ってきて、定数を足して罫線分等を微調整というのも出来るのかなぁ。。。と思ってますが、実際には試してないのでなんとも。。。
文字切れを防ぐには、画面で確認出来たら、その範囲を画像としてコピーしたら文字切れは無くなりますが、手間が面倒です＞＜

[tokoro47]

今回、VBAを始めて触ったのですが、そんな感じなんですね。
今回はとりあえず力技で乗り切ろうと思います。
ご回答ありがとうございました。
Excelの仕様上という形で、根本的な解決にはなりませんでしたが、原因がなんとなくわかり安心しました。
ベストアンサーとさせていただきます。

[mattuwan]

VBAを使ったところで、手動で操作するか、VBAで遠隔操作するかの違いなので、
エクセルで出来ないことはできないです。
プロポーザルフォントは文字毎に文字の幅が違うので、
多分その辺を厳密に表示できるようにしたら、再計算とか再表示とかに時間が掛かって、
表計算ソフトという本分を果たせなくなるのではと個人的に想像してます。