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

11^#

發表於 2012-11-30 09:55 | 只看該作者

回復 10# modelcrazyer

寬度固定，那就比較好解決。舉個例： "國家" 這兩個字，用AUTO功能縮緊後，寬度為 4.88 。
如果今天要10個字一行，寬度為 20.88 = (2*10 )+0.88 。
總字數如果為 135 個字， 135/10 = 13 行又5個字。

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

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

  少看=只看不做也枉然

TOP

modelcrazyer

中學生 Rank: 2

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

10^#

發表於 2012-11-30 09:44 | 只看該作者

謝謝,因為版面的關係,所以每個儲存格寬度是固定的，但是高度不固定，所以只能從字元數來判斷，本來是想用Chr(10)或是Chr(13)來判斷,但是因為是自動換列而非強迫換列所以有找不到Chr(10)或是Chr(13)這兩個控制碼

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

9^#

發表於 2012-11-30 09:01 | 只看該作者

回復 8# modelcrazyer

一行幾個字元看寬度而定，轉過來說今天一行我要30個字元，但我只要反過來設定30字元的寬度

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

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

  少看=只看不做也枉然

TOP

modelcrazyer

中學生 Rank: 2

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

8^#

發表於 2012-11-29 23:39 | 只看該作者

謝謝兩位的回答,後來用try and error的方法用Len函數,判斷一行大概幾個字元

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

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

modelcrazyer