返回列表 上一主題 發帖

有沒有任何辦法鎖死整個活頁薄字體 (新細明體 + Arial)

jakcy1234

帖子
37 
主題
10 
精華
0 
積分
63 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2013-8-25 
最後登錄
2016-5-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-9-8 11:33 | 只看該作者

有沒有任何辦法鎖死整個活頁薄字體 (新細明體 + Arial)

有沒有任何辦法鎖死整個活頁薄字體 (新細明體 + Arial) ?

因每次用任何方法貼上都改用了  (細明體 + Times New Roman)
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2013-9-8 14:02 | 只看該作者
回復 1# jakcy1234
是這樣嗎?

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

jakcy1234

帖子
37 
主題
10 
精華
0 
積分
63 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2013-8-25 
最後登錄
2016-5-24 
3#
發表於 2013-9-8 15:16 | 只看該作者
回復 2# GBKEE

這個我知道, 如果用 新細明體 英文字也跟隨 新細明體
但是我就偏偏改用 標準字型為 Arial  (為什麼我要這樣呢? 因為我要將 英文及數字做 Arial )
因為我 貼上的資料 是包含 中文字及數字 (如下資料) , 可惜的是 中文字 變了 細明體..............
細明體 有不好處的地方 就是將字體擴闊 ,  還有如果 再覆蓋貼上 也會變了全部都是 細明體(中英數)

(如下資料)
更新:28/08/2012 14:42     <~~~~~~~~~ 要鎖死為  中文為 新細明體    英數為 Arial
最後:28/08/2012 14:49

而我知道 C:\WINDOWS\Fonts   ( 細明體 & 新細明體 MINGLIU.TTC  ) 電腦設定為  細明體 是 ~~~>  "首選先"

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2013-9-8 16:02 | 只看該作者
回復 3# jakcy1234
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim C As Range, i As Integer
  4.     For Each C In ActiveSheet.UsedRange
  5.         For i = 1 To Len(C)
  6.             If Asc(Mid(C, i, 1)) >= 0 And Asc(Mid(C, i, 1)) <= 255 Then
  7.                 C.Characters(Start:=i, Length:=i).Font.Name = "Arial"
  8.             Else
  9.                 C.Characters(Start:=i, Length:=i).Font.Name = "新細明體"
  10.             End If
  11.         Next
  12.     Next
  13. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

jakcy1234

帖子
37 
主題
10 
精華
0 
積分
63 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2013-8-25 
最後登錄
2016-5-24 
5#
發表於 2013-9-8 19:05 | 只看該作者
回復 4# GBKEE
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Dim rCell As Range

  4.             Application.EnableEvents = False
  5.         For Each rCell In Target
  6.             If Len(rCell.Text) > 1 Or _
  7.               Val(rCell.Value) > 1 Then
  8.                 rCell.Font.Name = "Arial"

  10.             Else
  11.                 rCell.Font.Name = "Arial"

  13.             End If
  14.         Next
  15.         Application.EnableEvents = True

  17. End Sub
複製代碼
謝謝你回答~~
我找了以上方法, 將excel option 設定回 新細明體 再用以上語句 Private Sub Worksheet_Change,
基本上跟平常 貼上沒分別(以萬個cell), 還發現 比較 我手動改字體的時間還快,   可能是 "覆蓋貼上的時間" 快過 "手動改自體的時間"

TOP

jakcy1234

帖子
37 
主題
10 
精華
0 
積分
63 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2013-8-25 
最後登錄
2016-5-24 
6#
發表於 2013-9-8 19:26 | 只看該作者
問題出現了  不能undo..........

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2013-9-8 20:33 | 只看該作者
回復 5# jakcy1234
  1. If Len(rCell.Text) > 1 Or   Val(rCell.Value) > 1 Then
  2.                rCell.Font.Name = "Arial"
  3.             Else
  4.                 rCell.Font.Name = "Arial"
  5.            End If
複製代碼
這程式碼不管有無 IF 判斷式,都是執行 rCell.Font.Name = "Arial"
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

jakcy1234

帖子
37 
主題
10 
精華
0 
積分
63 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2013-8-25 
最後登錄
2016-5-24 
8#
發表於 2013-9-8 21:42 | 只看該作者
回復 7# GBKEE

但是我刪減了語句後就沒有轉了 Arial

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2013-9-9 07:52 | 只看該作者
回復 8# jakcy1234
這不與你5#的程式碼一樣?
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Dim rCell As Range
  4.     Application.EnableEvents = False
  5.     For Each rCell In Target
  6.         rCell.Font.Name = "Arial"           ' 一樣的 字型
  7.         '********************************************************
  8.         'If Len(rCell.Text) > 1 Or Val(rCell.Value) > 1 Then   '*
  9.          '       rCell.Font.Name = "Arial"  ' 一樣的 字型      '*
  10.         'Else                                                  '*
  11.         '        rCell.Font.Name = "Arial"  ' 一樣的 字型      '*
  12.         'End If                                                '*
  13.         '********************************************************
  14.     Next
  15.     Application.EnableEvents = True
  16. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題