excel text 長度

LaMancha

請問如何將cell內的文字截成固定的長度。如用right 或 left 只能固定它的字母數目，但不同字體或文字出來的長度都不一樣.

狂蜂一號

請問如何將cell內的文字截成固定的長度。如用right 或 left 只能固定它的字母數目，但不同字體或文字出來的 ...
LaMancha 發表於 2017-2-23 17:56

Impossible.

You can only show them by using fixed font.

C_Law

是否想做到由 Column A 變做 Column B 的效果？

下載 (12.18 KB)

2017-2-27 16:54

上圖由 Row 1 開始，用不同 Font size 做示範(10, 12, 14, 16....etc)，不同 Font、Bold、Italic...etc 都得。

做法係加個 ActiveX 的 Label 落去張 Sheet，檢查個 Label 的 Width，太闊就縮短字串。

例如用 CommandButton1，Select Column A 的一個 Cell 之後 Click CommandButton1，就會根據 myWidth 的闊度縮短字串然後放在 Column B。

1. Private Sub CommandButton1_Click()
   
2.    Dim myWidth As Integer
   
3.    myWidth = 50
   
4.    
   
5.    Dim myRow As Integer
   
6.    myRow = ActiveCell.Row
   
7.    
   
8.    Label1.AutoSize = True
   
9.    Label1.WordWrap = False
   
10.    Label1.Visible = False
    
11.    Label1.Enabled = False
    
12.    
    
13.    Label1.Caption = Cells(myRow, 1)
    
14.    Label1.Font.Name = Cells(myRow, 1).Font.Name
    
15.    Label1.Font.Bold = Cells(myRow, 1).Font.Bold
    
16.    Label1.Font.Italic = Cells(myRow, 1).Font.Italic
    
17.    Label1.Font.Size = Cells(myRow, 1).Font.Size
    
18.    
    
19.    While (Label1.Width > myWidth And Len(Label1.Caption) > 1)
    
20.       Label1.Caption = Left(Label1.Caption, Len(Label1.Caption) - 1)
    
21.    Wend
    
22.    
    
23.    Cells(myRow, 2).Font.Name = Cells(myRow, 1).Font.Name
    
24.    Cells(myRow, 2).Font.Bold = Cells(myRow, 1).Font.Bold
    
25.    Cells(myRow, 2).Font.Italic = Cells(myRow, 1).Font.Italic
    
26.    Cells(myRow, 2).Font.Size = Cells(myRow, 1).Font.Size
    
27.    Cells(myRow, 2) = Label1.Caption
    
28.    
    
29. End Sub

複製代碼

LaMancha

是否想做到由 Column A 變做 Column B 的效果？

上圖由 Row 1 開始，用不同 Font size 做示範(10, 12, 14, ...
C_Law 發表於 2017-2-27 17:00

我意思是同樣數目字母的長度，所顯示的長度是一樣。例如 123，456.00 和 **1，234.56 的長度是一樣。在網上查了，原來有種字體叫monospace。就解決了問題。

LaMancha

Courier new, Windows default己有, 唔洗特登搵fixed font
myricky 發表於 2017-3-1 15:59

我寫得不好。應該是有些字體是monospace。courier 是其中一種。不過我不喜歡它的字型。比較喜歡droid sans mono. 字體較圓滑。