Autofit VBAエクセルエクセル

Question

エクセルでエクストラクトを作成しています。私はSQL Serverからデータを取得しています - それをExcelに書き出します。最初に私は、私が出くわす問題は、「コメントであるレコードを

While Not g_RS3.EOF 
For i = xlCol To rCount 
    Cells(xlRow, xlCol).Value = g_RS3("Location") 
    Cells(xlRow, xlCol).Font.Bold = True 
    xlCol = xlCol + 1 
    Cells(xlRow, xlCol).Value = g_RS3("LastName") & " ," & g_RS3("FirstName") 
    xlCol = xlCol + 1 
    Cells(xlRow, xlCol).Value = g_RS3("Q01") 
    xlCol = xlCol + 1 
    Cells(xlRow, xlCol).Value = g_RS3("Comments") 
next i 
wend 

を使用して、データを書き込む

With xlSheetInfo 
.Cells(5, 1).ColumnWidth = 50 
.Cells(5, 1).Value = "School" 
.Cells(5, 2).ColumnWidth = 25 
.Cells(5, 2).Value = "Name" 
.Cells(5, 3).Value = "Q1" 
.Cells(5, 4).Value = "Comments" 
end with 

....下記参照、行を指定してヘッダを作成しますこのフィールドには最大500文字まで入力できます。これは私の抽出物の最後の列なので、AUTOFITにしたいと思います。実際にはたくさんのレコードがあるので、一番長いコメントの長さに応じて自動フィットまたは自動サイズ調整したいと思います。私はそれを自動作成するためにこれを含めるべきかわからない。どうすればこの問題を解決できますか？

Answer 1

使用AutoFit方法：

Cells(xlRow, xlCol).Value = g_RS3("Comments") 
Cells(xlRow, xlCol).EntireColumn.AutoFit