Andy2483

¦^´_ 1# ¦Û§Ú·Pı¨}¦n


    ÁÂÁ«e½úµoªí¦¹¥DÃD
«á¾ÇÂǦ¹©«½m²ß¿ý»sªº¥¨¶°§ï¬°°j°é¥¨¶°,½m²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
20231122_1.zip (10.65 KB)

¤U¸ü¦¸¼Æ: 3

2023-11-22 09:46

°õ¦æ«e:

¤U¸ü (87.97 KB)

2023-11-22 09:47

°õ¦æµ²ªG:

¤U¸ü (86.88 KB)

2023-11-22 09:47

Option Explicit
Sub TEST()   '§t{}_¾ã®æÅܦr«¬
Call ÁÙ­ì
Dim A As Range
For Each A In Cells.SpecialCells(2)
   If A Like "{*}" Then A.Font.Name = "·L³n¥¿¶ÂÅé"
Next
End Sub

Sub ÁÙ­ì()
Cells.Font.Name = "·s²Ó©úÅé"
End Sub

Sub TEST_1()   '¥u{}¤ºÅܦr«¬,  PS:¦P¤@®æ¦h²Õ{}®É¥uÅܲÄ1²Õ¤ºªº¦r«¬
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 = "·L³n¥¿¶ÂÅé"
    End With
   End If
Next
End Sub

Andy2483

¦^´_ 5# ¦Û§Ú·Pı¨}¦n


    ÁÂÁ«e½ú´£ÂI
½Ð¸m´«ÂŦⳡ¤À

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 = "·L³n¥¿¶ÂÅé"
    End With
   End If
Next
End Sub