12
返回列表 上一主題 發帖

再問儲存格列高的設定

modelcrazyer

帖子
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兩個方法都沒法解決列高的問題
但又因為每次抓的資料數量又不固定,所以如果要一個一個調整列高實在很麻煩
不知道各位先進有沒有人可以解決這個問題
謝謝!!
收藏 分享

modelcrazyer

帖子
66 
主題
28 
精華
0 
積分
95 
點名
0  
作業系統
Win7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2012-10-1 
最後登錄
2018-6-26 
11#
發表於 2012-10-8 21:26 | 只看該作者
謝謝!!配合一個一個欄寬的設定加上您的語法,終於調好了

TOP

GBKEE

帖子
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
試試看
  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
複製代碼

TOP

modelcrazyer

帖子
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)

1.jpg

TOP

GBKEE

帖子
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
請自行調整合於你的要求.
   
  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
複製代碼

TOP

c_c_lai

帖子
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

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

TOP

modelcrazyer

帖子
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嗎??

TOP

modelcrazyer

帖子
66 
主題
28 
精華
0 
積分
95 
點名
0  
作業系統
Win7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2012-10-1 
最後登錄
2018-6-26 
5#
發表於 2012-10-4 21:12 | 只看該作者
謝謝您的解答!!不過不是我要的結果

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2012-10-4 07:54 | 只看該作者
回復 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
複製代碼

TOP

modelcrazyer

帖子
66 
主題
28 
精華
0 
積分
95 
點名
0  
作業系統
Win7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2012-10-1 
最後登錄
2018-6-26 
3#
發表於 2012-10-3 23:37 | 只看該作者
謝謝,可是沒有用耶!!

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
12
返回列表 上一主題