EXCELでセルの数値にあわせて列幅を自動的に変更したい。

質問

例えば、Ａ１のセルに２を入力すると
Ａ列の幅が２になるようにする方法を
教えてください。

なお、当方使用ソフトはEXCEL2000です。

回答No.2

Hageoyadi · ベストアンサー

Sub 列幅()
Worksheets("Sheet1").Select
Columns().ColumnWidth = Range("A1")
End Sub

あまり汎用性がありませんが、あくまでも一例です。

お礼

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

マクロを実行すると全ての列の幅が
一斉に変わりました。

回答No.1

papayuka

こんにちは。

VBAで、、、
シート名のタブを右クリックし、コードの表示で出てきた画面の空白部分にコピペします。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　On Error Resume Next
　If Target.Cells(1, 1).Address = "$A$1" Then
　　 Target.ColumnWidth = Target.Cells(1, 1).Value
　End If
End Sub

お礼

ありがとうございました。
数値を入力するたびに自動的に幅が変わりました。