エクセル 列幅の指定調整

質問

エクセルで列Bをインプットボックスで指定した数値に変更できるようにしたいのですが、どの様にやればいいのか分かりません。
初心者ですので、
よろしくお願いします。

インプットボックスが表示され、数値で「10」と入力すると、
列Bが10の幅になる様にVBAで設定したいのです。

よろしくお願いします。

回答No.1

n-jun · ベストアンサー

Dim col
col = Application.InputBox("Ｂ列の幅は？", Type:=2)
If col = False Or col = "" Then Exit Sub
Columns("B:B").ColumnWidth = col

こうゆう事でしょうか？

お礼

そうです。
その通りです。
急いでいたので、本当に助かりました。
ありがとうございます。