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

自我感覺良好

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

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.
風把我的帽子吹走

自我感覺良好

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

Andy2483

回復 1# 自我感覺良好


    謝謝前輩發表此主題
後學藉此帖練習錄製的巨集改為迴圈巨集,練習方案如下,請前輩參考
20231122_1.zip (10.65 KB)

下載次數: 3

2023-11-22 09:46

執行前:

下載 (87.97 KB)

2023-11-22 09:47

執行結果:

下載 (86.88 KB)

2023-11-22 09:47

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

自我感覺良好

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

自我感覺良好

回復 3# Andy2483


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

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

Andy2483

回復 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

自我感覺良好

回復 6# Andy2483

OK了總算完成了
太感謝了