標題: { }內改變字型 [打印本頁]

---

作者: 自我感覺良好    時間: 2012-8-26 20:55     標題: { }內改變字型

<NO00,huge                         {hjud.}
adj.  龐大的


我想要在excel裡改變字型為 KKJubi2 也就是kk音標
只要改變在{    } 裡面的音標字型
Sub Macro406()
'
' Macro406 Macro
'
' 快速鍵: Ctrl+l
'
    With ActiveCell.Characters(Start:=20, Length:=120).Font
        .Name = "KKJubi2"
        .FontStyle = "標準"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    ActiveCell.Select
End Sub

---

作者: GBKEE    時間: 2012-8-27 07:02

回復 1# 自我感覺良好

1. Option Explicit
   
2. Sub Ex()
   
3.     With ActiveCell
   
4.         With .Characters(InStr(.Cells, "{") + 1, InStr(.Cells, "}") - 1).Font
   
5.             .Name = "KKJubi2"
   
6.             .FontStyle = "標準"
   
7.             .Size = 20
   
8.            ' .ThemeColor = xlThemeColorLight1 '2003版 不適用
   
9.            ' .TintAndShade = 0
   
10.            ' .ThemeFont = xlThemeFontNone
    
11.         End With
    
12.         With .Characters(InStr(.Cells, "}"), Len(.Cells)).Font
    
13.              ' }....  如還有字串 會比照為前面字串的設定  須再設定為 ...{ 前的設定
    
14.             .Name = Application.StandardFont        '活頁簿預設的字型
    
15.             .FontStyle = "標準"
    
16.             .Size = Application.StandardFontSize    '活頁簿預設的文字大小
    
17.            '.ThemeColor = xlThemeColorLight1
    
18.            '.TintAndShade = 0
    
19.            '.ThemeFont = xlThemeFontNone
    
20.         End With
    
21.     End With
    
22. End Sub

複製代碼

---

作者: 自我感覺良好    時間: 2012-8-27 10:47

回復 2# GBKEE


       {m4'k1n6k}
{}仍然照舊的字型
只能一個個儲存格的改
若要整個工作表更改要如何作…？[attach]12300[/attach]

---

作者: GBKEE    時間: 2012-8-27 10:57

回復 3# 自我感覺良好

1.    Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range
   
4.     For Each E In Sheet1.UsedRange   '已使用的範圍
   
5.         With E.Characters(InStr(E, "{") + 1, InStr(E, "}") - 1)
   
6.             With .Font
   
7.             .Name = "KKJubi2"
   
8.             .FontStyle = "標準"
   
9.             .Size = 20
   
10.            ' .ThemeColor = xlThemeColorLight1 '2003版 不適用
    
11.            ' .TintAndShade = 0
    
12.            ' .ThemeFont = xlThemeFontNone
    
13.             End With
    
14.         End With
    
15.         With E.Characters(InStr(E, "}"), Len(E))
    
16.             With .Font
    
17.              ' }....  如還有字串 會比照為前面字串的設定  須再設定為 ...{ 前的設定
    
18.                 .Name = Application.StandardFont        '活頁簿預設的字型
    
19.                 .FontStyle = "標準"
    
20.                 .Size = Application.StandardFontSize    '活頁簿預設的文字大小
    
21.             End With
    
22.            '.ThemeColor = xlThemeColorLight1
    
23.            '.TintAndShade = 0
    
24.            '.ThemeFont = xlThemeFontNone
    
25.         End With
    
26.     Next
    
27. End Sub

複製代碼

---

作者: 自我感覺良好    時間: 2012-8-27 13:51

回復 4# GBKEE

太謝謝了
只是影幕會一直閃礫到完成。
更加肯定excel    好用

---

作者: taiabc1234    時間: 2012-8-27 15:44

程式前面加上
Application.ScreenUpdating = False
最後加上
Application.ScreenUpdating =True
可以關閉螢幕更新

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)