標題: 請問要如何設定{ }內的字型 [打印本頁]

---

作者: 自我感覺良好    時間: 2023-11-22 07:23     標題: 請問要如何設定{ }內的字型

請問要如何設定{  }內的字型
只要{ ｝內

KKJubi2

##LESSON01
<NO00,garden
{'g3rdx}
n.  花園
<The flowers in the garden smell really good.
花園裡的花聞起來很香。

<NO02,prince
{pr6ns}
n.  王子
<How old is the prince?
那位王子幾歲？

<NO04,rain
{ren}
v.  下雨
<Will it rain today?
今天會下雨嗎？

<NO06,wind
{w6nd}
n.  風
<The wind blew my hat away.
風把我的帽子吹走

---

作者: 自我感覺良好    時間: 2023-11-22 07:55

KKJubi2字型和做不成的excel
放在這裡…
https://drive.google.com/drive/folders/1ToE6_67n8g5doDFQBzd9Hf-DxgosbxCY?usp=sharing

---

作者: Andy2483    時間: 2023-11-22 09:48

本帖最後由 Andy2483 於 2023-11-22 09:56 編輯

回復 1# 自我感覺良好


    謝謝前輩發表此主題
後學藉此帖練習錄製的巨集改為迴圈巨集,練習方案如下,請前輩參考
[attach]37061[/attach]

執行前:
[attach]37062[/attach]

執行結果:
[attach]37063[/attach]

Option Explicit
Sub TEST()   '含{}_整格變字型
Call 還原
Dim A As Range
For Each A In Cells.SpecialCells(2)
   If A Like "{*}" Then A.Font.Name = "微軟正黑體"
Next
End Sub

Sub 還原()
Cells.Font.Name = "新細明體"
End Sub

Sub TEST_1()   '只{}內變字型,  PS:同一格多組{}時只變第1組內的字型
Call 還原
Dim A As Range
For Each A In Cells.SpecialCells(2)
   If A Like "{*}" Then
      With A.Characters(Start:=InStr(A, "{") + 1, Length:=InStr(A, "}") - InStr(A, "{") - 1).Font
        .Name = "微軟正黑體"
    End With
   End If
Next
End Sub

---

作者: 自我感覺良好    時間: 2023-11-22 10:16

不錯不錯
太感謝了
十年前還會的
害我搞了好幾天…
https://forum.twbts.com/viewthread.php?tid=7596

---

作者: 自我感覺良好    時間: 2023-11-22 15:47

回復 3# Andy2483


https://docs.google.com/spreadsheets/d/1GjBcE6v5wYof_gRRo2yssKWWodNGDj-d/edit?usp=sharing&ouid=108670679754604825745&rtpof=true&sd=true

幫我看一下
不知那裡不對了…

---

作者: Andy2483    時間: 2023-11-22 16:15

回復 5# 自我感覺良好


    謝謝前輩提點
請置換藍色部分

Sub TEST_1()
Call 還原
Dim A As Range
For Each A In Cells.SpecialCells(2)
   If A Like "*{*}*" Then
      With A.Characters(Start:=InStr(A, "{") + 1, Length:=InStr(A, "}") - InStr(A, "{") - 1).Font
        .Name = "微軟正黑體"
    End With
   End If
Next
End Sub

---

作者: 自我感覺良好    時間: 2023-11-22 17:01

回復 6# Andy2483

OK了總算完成了
太感謝了

---

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