Excel VBA について（列幅）

倍率を指定して、複数列の列幅を一括して比率を保持したまま変更する（添付参照）
プログラムコードを提供しているウェブサイトなどはないでしょうか？

詳しい方、何卒 お願い申し上げます。

No.1 回答者： mygoonickname 回答日時： 2022/02/08 01:01

こんばんは。

その様なサイトは分からないのと、まとめて変更は不可だと思います。
内部処理としては、１列ずつ幅を設定する形になるかと思います。
例えば、下記の様なコードでどうでしょうか？

サンプルでは、セルの１行に、セルの基本の幅を入れています。
（実際には、別のシートにセルの幅を保存しておく様な形でしょうか？）
変更したいセル、又は列を選んだ状態で、マクロを実行すると、
インプットボックスが表示され、それに数値を入れると、1行目のセルの
数値×インプットボックスの数値を掛けた値を、選択されたセルを対象に
セルの幅に設定します。


Sub 幅の変更()
Dim myRng As Range, myInpDat As Single, myColNo As Long, myCalDat As Single
myInpDat = Application.InputBox("幅の係数", Type:=1)
For Each myRng In Selection.Columns
myColNo = myRng.Cells(1, 1).Column
Columns(myColNo).ColumnWidth = Cells(1, myColNo).Value * myInpDat
Next
End Sub