麻辣家族討論版版 - Powered by Discuz! Board

標題: 再問儲存格列高的設定 [打印本頁]

作者: modelcrazyer 時間: 2012-10-3 22:20 標題: 再問儲存格列高的設定

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

作者: luhpro 時間: 2012-10-3 23:04

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

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

作者: modelcrazyer 時間: 2012-10-3 23:37

謝謝,可是沒有用耶!!

作者: c_c_lai 時間: 2012-10-4 07:54

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

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

複製代碼

[attach]12690[/attach]

作者: modelcrazyer 時間: 2012-10-4 21:12

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

作者: modelcrazyer 時間: 2012-10-4 21:34

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

作者: c_c_lai 時間: 2012-10-5 07:14

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

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

作者: GBKEE 時間: 2012-10-5 08:38

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

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

複製代碼

作者: modelcrazyer 時間: 2012-10-6 21:36

本帖最後由 modelcrazyer 於 2012-10-6 21:39 編輯

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

作者: GBKEE 時間: 2012-10-7 08:55

回復 9# modelcrazyer
試試看

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

複製代碼

作者: modelcrazyer 時間: 2012-10-8 21:26

謝謝!!配合一個一個欄寬的設定加上您的語法,終於調好了

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)