再問儲存格列高的設定

modelcrazyer

昨天的問題馬上就有回答,讓我對這個園地信心大增
所以想再請問另一個問題?
我寫了一段VBA把A表內的東西抓到B表
但是每次B表中儲存格中的B欄總有幾格沒法完整顯示所有的內容
已經試過Wraptext和AutoFit兩個方法都沒法解決列高的問題
但又因為每次抓的資料數量又不固定,所以如果要一個一個調整列高實在很麻煩
不知道各位先進有沒有人可以解決這個問題
謝謝!!

luhpro

昨天的問題馬上就有回答,讓我對這個園地信心大增
所以想再請問另一個問題?
我寫了一段VBA把A表內的東西抓 ...
modelcrazyer 發表於 2012-10-3 22:20

Worksheets("Sheet1").Rows("3:9").AutoFit

modelcrazyer

謝謝,可是沒有用耶!!

c_c_lai

回復 3# modelcrazyer
試試看這個！ (不知這是否是你所描述的需求？)

1. Sub Test()
   
2.     ' 工作表2.[F2] = "=工作表1!A3"
   
3.     工作表1.[A3].Copy 工作表2.[F2]
   
4.     ' 以上兩種用法會得到一樣的答案，
   
5.     ' 只是第一種是帶入公式，另一個是直接複製。
   
6.    
   
7.     工作表2.[F2].WrapText = True
   
8. End Sub

複製代碼

下載 (12.03 KB)

2012-10-4 07:53

modelcrazyer

謝謝您的解答!!不過不是我要的結果

modelcrazyer

我的VBA碼是這樣:
ActiveSheet.UsedRange.Select
Selection.WrapText = True
Selection.EntireRow.AutoFit
但是就是有欄位無法完全顯示???請問這是Excel的Bug嗎??

c_c_lai

我的VBA碼是這樣:
ActiveSheet.UsedRange.Select
Selection.WrapText = True
Selection.EntireRow.Au ...
modelcrazyer 發表於 2012-10-4 21:34

你應該貼附上你的檔案說明，不然大家會不清楚你的問題。

GBKEE

回復 6# modelcrazyer
請自行調整合於你的要求.
   

1. Option Explicit
   
2. Sub Ex()
   
3. ActiveSheet.UsedRange.Select
   
4. Selection.WrapText = False '不換行
   
5. Selection.EntireColumn.AutoFit  '欄位完全顯示
   
6. 'Selection.EntireRow.AutoFit  '列位完全顯示
   
7. End Sub

複製代碼

modelcrazyer

謝謝各位的解答
ToGBKEE大:
因為我的欄寬受限於頁面所以不能自動調整
所以如果不換行,欄寬會太大
To c_c_lai大:
以下是我的圖檔
煩您能提供幫助

GBKEE

回復 9# modelcrazyer
試試看

1. Sub Ex()
   
2.     With ActiveSheet.UsedRange
   
3.         .WrapText = True                    '換行
   
4.         .EntireColumn.AutoFit               '全部欄位完全顯示.
   
5.         .Range("A:A").ColumnWidth = 20      '指定欄位寬度
   
6.         .Range("k:k").ColumnWidth = 15      '指定欄位寬度
   
7.         .RowHeight = 80                     '指定全部列寬
   
8.     End With
   
9. End Sub

複製代碼