有沒有任何辦法鎖死整個活頁薄字體 (新細明體 + Arial)
- 帖子
- 37
- 主題
- 10
- 精華
- 0
- 積分
- 63
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-8-25
- 最後登錄
- 2016-5-24
|
有沒有任何辦法鎖死整個活頁薄字體 (新細明體 + Arial)
有沒有任何辦法鎖死整個活頁薄字體 (新細明體 + Arial) ?
因每次用任何方法貼上都改用了 (細明體 + Times New Roman) |
|
|
|
|
|
|
|
- 帖子
- 37
- 主題
- 10
- 精華
- 0
- 積分
- 63
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-8-25
- 最後登錄
- 2016-5-24
|
回復 2# GBKEE
這個我知道, 如果用 新細明體 英文字也跟隨 新細明體
但是我就偏偏改用 標準字型為 Arial (為什麼我要這樣呢? 因為我要將 英文及數字做 Arial )
因為我 貼上的資料 是包含 中文字及數字 (如下資料) , 可惜的是 中文字 變了 細明體..............
細明體 有不好處的地方 就是將字體擴闊 , 還有如果 再覆蓋貼上 也會變了全部都是 細明體(中英數)
(如下資料)
更新:28/08/2012 14:42 <~~~~~~~~~ 要鎖死為 中文為 新細明體 英數為 Arial
最後:28/08/2012 14:49
而我知道 C:\WINDOWS\Fonts ( 細明體 & 新細明體 MINGLIU.TTC ) 電腦設定為 細明體 是 ~~~> "首選先" |
|
|
|
|
|
|
|
- 帖子
- 37
- 主題
- 10
- 精華
- 0
- 積分
- 63
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-8-25
- 最後登錄
- 2016-5-24
|
回復 4# GBKEE - Private Sub Worksheet_Change(ByVal Target As Range)
- Dim rCell As Range
- Application.EnableEvents = False
- For Each rCell In Target
- If Len(rCell.Text) > 1 Or _
- Val(rCell.Value) > 1 Then
- rCell.Font.Name = "Arial"
- Else
- rCell.Font.Name = "Arial"
- End If
- Next
- Application.EnableEvents = True
- End Sub
我找了以上方法, 將excel option 設定回 新細明體 再用以上語句 Private Sub Worksheet_Change,
基本上跟平常 貼上沒分別(以萬個cell), 還發現 比較 我手動改字體的時間還快, 可能是 "覆蓋貼上的時間" 快過 "手動改自體的時間" |
|
|
|
|
|
|
|
- 帖子
- 37
- 主題
- 10
- 精華
- 0
- 積分
- 63
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-8-25
- 最後登錄
- 2016-5-24
|
|
|
|
|
|
|
|
- 帖子
- 37
- 主題
- 10
- 精華
- 0
- 積分
- 63
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-8-25
- 最後登錄
- 2016-5-24
|
回復 7# GBKEE
但是我刪減了語句後就沒有轉了 Arial |
|
|
|
|
|
|
|
發表於 2013-9-8 11:33
| 
