セルの幅を自動調整
下記の様にセルを全選択してセルの幅を文字の長さに応じて自動調整します。
↓
↓
これをマクロで書くと、下記となります。
Dim AppExcel As Excel.Application
Set AppExcel = New Excel.Application
AppExcel.Workbooks.Add 'ブックを新規追加
AppExcel.Visible = True '表示
'10 * 10 のセルに i * j の結果を記入
For i = 1 To 10
For j = 1 To 10
AppExcel.Cells(i, j) = i * j
Next j
Next i
'セルを全選択
AppExcel.Cells.Select
'セルの幅を自動調整
AppExcel.Cells.EntireColumn.AutoFit
'セルA1を選択
AppExcel.Range("A1").Select
Set AppExcel = New Excel.Application
AppExcel.Workbooks.Add 'ブックを新規追加
AppExcel.Visible = True '表示
'10 * 10 のセルに i * j の結果を記入
For i = 1 To 10
For j = 1 To 10
AppExcel.Cells(i, j) = i * j
Next j
Next i
'セルを全選択
AppExcel.Cells.Select
'セルの幅を自動調整
AppExcel.Cells.EntireColumn.AutoFit
'セルA1を選択
AppExcel.Range("A1").Select
セルの幅を個別に設定
セルの高さを調整します。
AppExcel.Cells(1, 1).RowHeight = 100
セルの幅を調整します。
AppExcel.Cells(1, 1).ColumnWidth = 100
