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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-11-28 14:25 | 只看該作者

如何判斷儲存格是否換行

各位達人:
小弟製作表格時因為儲存格的內容長短不一,又用自動換列，因此使用Autofit後感覺表格很亂
因此想要規則化儲存格表格美觀一點，因此想要讓沒有自動換列的儲存格列高都統一
所以想請問如何判斷儲存格內的內容是否超過一列?或是如何知道儲存格是否有換行?

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2012-11-28 14:56 | 只看該作者

本帖最後由 mark15jill 於 2012-11-28 14:58 編輯

回復 1# modelcrazyer

換列? 分行?

請問如何判斷儲存格內的內容是否超過一列?或是如何知道儲存格是否有換行

依據? 如一行內要幾個字？或向左右偏? 置中?

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

modelcrazyer

中學生 Rank: 2

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

3^#

發表於 2012-11-28 15:35 | 只看該作者

是第二種,因為儲存格大小已固定了!!

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2012-11-28 15:41 | 只看該作者

本帖最後由 mark15jill 於 2012-11-28 15:43 編輯

回復 1# modelcrazyer

以圖為例，分別10個國字為分段，此方法為第一種。

若須第二種，要先判斷
預設儲存格寬、高為何？字體大小為何？單行字數為何？

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

modelcrazyer

中學生 Rank: 2

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

5^#

發表於 2012-11-28 15:58 | 只看該作者

謝謝您熱心回答，
回應您的提問，目前儲存格寬知道,字體大小知道,單行字數因為內容含有符號,所以字數就是不知道要怎麼固定故無法判斷,至於欄高我將來會寫判斷式如果是單行會讓它固定，多行的話則會用Autofit產生,所

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

6^#

發表於 2012-11-28 16:12 | 只看該作者

本帖最後由 mark15jill 於 2012-11-28 16:17 編輯

回復 5# modelcrazyer

先前有貼過兩張圖和一段程式
就是簡易判斷

例如
1. If Cells(sii, 1) <> "" Then Cells(sii, 2) = Len(Cells(sii, 1))
這段意思，就是不管 A欄位內容是數字文字符號都在B欄位內顯示總字數，以便自行研判。

2.單行固定的話，就取大約值。
以正常來說(自動緊縮後寬度)
若儲存格內文字單一個字  寬度約為 2.88 (單位我就不寫
                     文字兩個字以上 <如 7個字寬度約為 (2*7 )+ 0.88>
                  半形符號  寬度約為 1.88
                  全形符號  寬度約為 2.88

舉例： [A1]  = ◎┐中華民國┌◎    寬度約為  17.75  < 因為 EXCEL 有預設緊縮字元 >
            [B1]  = ◎中華民國◎          寬度約為  13.25 < 因為 EXCEL 有預設緊縮字元 >
            [C1]  =中華民國                寬度約為 8.88 <(4*2 ) +0.88>

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

7^#

發表於 2012-11-28 19:14 | 只看該作者

本帖最後由 stillfish00 於 2012-11-28 19:15 編輯

回復 5# modelcrazyer
檢查儲存格是否有勾選自動換行:
If Range("A1").WrapText=true then
...

檢查儲存格中的字元是否有換行字元 , 像是Alt+Enter產生的換行
If InStr(1, Range("A2"), vbLf)>0 then
...

我的話, 會考慮換行字元都取代掉, 勾選自動換行, 手動調整欄寬, 列高用autofit

TOP

modelcrazyer