麻辣家族討論版版 » Excel程式區 » 再問儲存格列高的設定

返回列表下一主題上一主題發帖

再問儲存格列高的設定

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-10-3 22:20 | 只看該作者

再問儲存格列高的設定

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

樓主熱帖

收藏

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

11^#

發表於 2012-10-8 21:26 | 只看該作者

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 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

複製代碼

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

9^#

發表於 2012-10-6 21:36 | 只看該作者

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

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

1.jpg (70.43 KB)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 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

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2012-10-5 07:14 | 只看該作者

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

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

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

6^#

發表於 2012-10-4 21:34 | 只看該作者

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

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

5^#

發表於 2012-10-4 21:12 | 只看該作者

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

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2012-10-4 07:54 | 只看該作者

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

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

複製代碼

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

3^#

發表於 2012-10-3 23:37 | 只看該作者

謝謝,可是沒有用耶!!

靜思自在 : 受人點水之恩，須當湧泉以報。

返回列表下一主題上一主題