Excel列寬的秘密

Excel列寬的秘密

我們知道，Range對象的Width屬性能夠返回單元格的寬度，但不能夠給Width屬性賦值以指定單元格的寬度。要設置單元格的寬度，可以使用ColumnWidth屬性，當然，該屬性也可以返回單元格的寬度值。

單元格的寬度也就是單元格所在列的列寬。在VBA幫助中明確指出，列寬的1個單位等于采用標準樣式的1個字符的寬度。對于比例字體，使用字符0的寬度。Width屬性以磅為單位返回列寬。

如果我們要設置列的寬度（width）為100磅，使用下面的語句：

WithActiveSheet.Range(“A1”)

.ColumnWidth = 100 / .Width * .ColumnWidth

End With

并不會等于100。

奇怪的是，如果循環2至3次，則會得到接近目標寬度的值。測試代碼如下：

Sub testwidth()

Dim i As Long, j As Long

With ActiveSheet.Range(“A1”)

For i = 100 To 300 Step 100

.ColumnWidth = 8.38

Debug.Print “——“& i & “——”

For j = 1 To 3

.ColumnWidth = i / .Width *.ColumnWidth

Debug.Print j, .ColumnWidth,.Width

Next j

Next i

End With

End Sub

結果如下圖1所示。

圖1

基本上，經過最多兩次循環后，所得到的列寬值與目標值之差在0.25。循環3次后，所行到的列寬值基本上穩定下來并等于或者接近目標值。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。