天修改一個用Excel的報表,有一個數據格是跨兩列,一般單格的數據格用自動換行就可以實現自適應高度,但是跨列是不行的.查找google良久,也沒發現適合的辦法,一陣頭痛之后,突然有了靈感,于是馬上做試驗,還真的實現了.先寫出來,如果有困于這個問題的朋友偶然路過,或許還能有一點用處.
原理:在另外一個sheet里面利用單元格換行和自適應高度的特性,將一個 試驗單元格寬度設置成 實際跨列單元格的寬度,然后將需要輸入的字符放入該 試驗單元格,取得高度返回給 實際跨列單元格就可以了.

以下是vb的代碼
Private?Sub?Command1_Click()
??????Dim?objExcel?As?New?Excel.Application
??????Dim?wkSheet?As?Excel.Worksheet
??????objExcel.Workbooks.Open?"E:/book1.xls"

??????Set?wkSheet?=?Worksheets("Sheet1")
??????wkSheet.Select
??????Dim?iWidth?As?Double
??????iWidth?=?wkSheet.Columns("A:A").ColumnWidth?+?wkSheet.Columns("B:B").ColumnWidth
??????
???????Set?wkSheet?=?Worksheets("Sheet2")
???????wkSheet.Select
???????wkSheet.Columns("A:A").ColumnWidth?=?iWidth
??????
???????Range("A1").Select
????????With?Selection
????????????.HorizontalAlignment?=?xlGeneral
????????????.VerticalAlignment?=?xlCenter
????????????.WrapText?=?True
????????????.Orientation?=?0
????????????.AddIndent?=?False
????????????.IndentLevel?=?0
????????????.ShrinkToFit?=?False
????????????.ReadingOrder?=?xlContext
????????????.MergeCells?=?False
????????End?With
????????
????????ActiveCell.Value?=?"dsfsdafsdafasfsdafsadfdsafsdafa"
????????Dim?iHeight?As?Double
????????iHeight?=?ActiveCell.RowHeight

????????Set?wkSheet?=?Worksheets("Sheet1")
????????wkSheet.Select
????????Range("A1:B1").Select
????????
????????With?Selection
????????????.HorizontalAlignment?=?xlGeneral
????????????.VerticalAlignment?=?xlCenter
????????????.WrapText?=?True
????????????.Orientation?=?0
????????????.AddIndent?=?False
????????????.IndentLevel?=?0
????????????.ShrinkToFit?=?False
????????????.ReadingOrder?=?xlContext
????????????.MergeCells?=?True
????????End?With
????????Rows("1:1").Select
????????Selection.RowHeight?=?iHeight
????????
????????Range("A1:B1").Select
????????ActiveCell.Value?=?"dsfsdafsdafasfsdafsadfdsafsdafa"
????????
????????objExcel.ActiveWorkbook.SaveAs?"e:/book2.xls"
????????objExcel.AlertBeforeOverwriting?=?False
????????objExcel.Quit
End?Sub

?

總結

以上是生活随笔為你收集整理的实现自适应高度的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。