½Ð°Ý­n¦p¦ó³]©w{ }¤ºªº¦r«¬

¦Û§Ú·Pı¨}¦n

½Ð°Ý­n¦p¦ó³]©w{  }¤ºªº¦r«¬
¥u­n{ ¡b¤º

KKJubi2

##LESSON01
<NO00,garden
{'g3rdx}
n.  ªá¶é
<The flowers in the garden smell really good.
ªá¶é¸Ìªºªá»D°_¨Ó«Ü­»¡C

<NO02,prince
{pr6ns}
n.  ¤ý¤l
<How old is the prince?
¨º¦ì¤ý¤l´X·³¡H

<NO04,rain
{ren}
v.  ¤U«B
<Will it rain today?
¤µ¤Ñ·|¤U«B¶Ü¡H

<NO06,wind
{w6nd}
n.  ­·
<The wind blew my hat away.
­·§â§Úªº´U¤l§j¨«

¦Û§Ú·Pı¨}¦n

KKJubi2¦r«¬©M°µ¤£¦¨ªºexcel
©ñ¦b³o¸Ì¡K
https://drive.google.com/drive/folders/1ToE6_67n8g5doDFQBzd9Hf-DxgosbxCY?usp=sharing

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

¦Û§Ú·Pı¨}¦n

¤£¿ù¤£¿ù
¤Ó·PÁ¤F
¤Q¦~«eÁÙ·|ªº
®`§Ú·d¤F¦n´X¤Ñ¡K
https://forum.twbts.com/viewthread.php?tid=7596

¦Û§Ú·Pı¨}¦n

¦^´_ 3# Andy2483


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

À°§Ú¬Ý¤@¤U
¤£ª¾¨º¸Ì¤£¹ï¤F¡K

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

¦Û§Ú·Pı¨}¦n

¦^´_ 6# Andy2483

OK¤FÁ`ºâ§¹¦¨¤F
¤Ó·PÁ¤F