返回列表 上一主題 發帖

[發問] 儲存格自動變換列高問題請教

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-11-17 15:32 | 只看該作者

[發問] 儲存格自動變換列高問題請教

DEAR ALL 大大
1.儲存格自動變換列高問題請教
1.1 SHEET1.RANGE("A1") 內書寫涵數 = SHEET2.RANGE("B1")
      因  SHEET2.RANGE("B1")內之字元數目不一定.所以於SHEET1.RANGE("A1") 內
    有設定儲存格自動換列.但當 SHEET2.RANGE("B1")字元過多時SHEET1.RANGE("A1")
     並無自動變換列高以符合秀出ALL文字
2.請教如何寫SHEET1.RANGE("A1") 之VBA讓其依內容字元數自動變換秀出ALL字元之列高.
  煩不吝賜教  THANKS*10000
收藏 分享
羅

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
17  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-11-19 

2016猴年全勤獎章
2#
發表於 2017-11-18 19:01 | 只看該作者
回復 1# rouber590324
  1. Sub zz()
  2. With sheet1
  3.     .Rows(1).WrapText = True
  4.     .Rows(1).AutoFit
  5. End With
  6. End Sub
複製代碼

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2017-11-20 10:00 | 只看該作者
DEAR ikboy 大大
1.您之內容用於一般OK
  但我試還是不行
  此除存格使用 儲存格自動換列 已無法自動換列 THANKS
羅

TOP

naruto018

帖子
91 
主題
5 
精華
0 
積分
130 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-5-14 
最後登錄
2020-5-17 
4#
發表於 2017-11-21 17:00 | 只看該作者
回復 3# rouber590324


    A1那格是不是有合併多個儲存格？

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題