ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

{ }¤º§ïÅܦr«¬

{ }¤º§ïÅܦr«¬

<NO00,huge                         {hjud.}
adj.  Ãe¤jªº


§Ú·Q­n¦bexcel¸Ì§ïÅܦr«¬¬° KKJubi2 ¤]´N¬Okk­µ¼Ð
¥u­n§ïÅܦb{    } ¸Ì­±ªº­µ¼Ð¦r«¬
Sub Macro406()
'
' Macro406 Macro
'
' §Ö³tÁä: 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
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# ¦Û§Ú·Pı¨}¦n
  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ª© ¤£¾A¥Î
  9.            ' .TintAndShade = 0
  10.            ' .ThemeFont = xlThemeFontNone
  11.         End With
  12.         With .Characters(InStr(.Cells, "}"), Len(.Cells)).Font
  13.              ' }....  ¦pÁÙ¦³¦r¦ê ·|¤ñ·Ó¬°«e­±¦r¦êªº³]©w  ¶·¦A³]©w¬° ...{ «eªº³]©w
  14.             .Name = Application.StandardFont        '¬¡­¶Ã¯¹w³]ªº¦r«¬
  15.             .FontStyle = "¼Ð·Ç"
  16.             .Size = Application.StandardFontSize    '¬¡­¶Ã¯¹w³]ªº¤å¦r¤j¤p
  17.            '.ThemeColor = xlThemeColorLight1
  18.            '.TintAndShade = 0
  19.            '.ThemeFont = xlThemeFontNone
  20.         End With
  21.     End With
  22. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


       {m4'k1n6k}
{}¤´µM·Óªº¦r«¬
¥u¯à¤@­Ó­ÓÀx¦s®æªº§ï
­Y­n¾ã­Ó¤u§@ªí§ó§ï­n¦p¦ó§@¡K¡H
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 3# ¦Û§Ú·Pı¨}¦n
  1.    Option Explicit
  2. Sub Ex()
  3.     Dim E As Range
  4.     For Each E In Sheet1.UsedRange   '¤w¨Ï¥Îªº½d³ò
  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ª© ¤£¾A¥Î
  11.            ' .TintAndShade = 0
  12.            ' .ThemeFont = xlThemeFontNone
  13.             End With
  14.         End With
  15.         With E.Characters(InStr(E, "}"), Len(E))
  16.             With .Font
  17.              ' }....  ¦pÁÙ¦³¦r¦ê ·|¤ñ·Ó¬°«e­±¦r¦êªº³]©w  ¶·¦A³]©w¬° ...{ «eªº³]©w
  18.                 .Name = Application.StandardFont        '¬¡­¶Ã¯¹w³]ªº¦r«¬
  19.                 .FontStyle = "¼Ð·Ç"
  20.                 .Size = Application.StandardFontSize    '¬¡­¶Ã¯¹w³]ªº¤å¦r¤j¤p
  21.             End With
  22.            '.ThemeColor = xlThemeColorLight1
  23.            '.TintAndShade = 0
  24.            '.ThemeFont = xlThemeFontNone
  25.         End With
  26.     Next
  27. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE

¤ÓÁÂÁ¤F
¥u¬O¼v¹õ·|¤@ª½°{Ät¨ì§¹¦¨¡C
§ó¥[ªÖ©wexcel    ¦n¥Î
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

µ{¦¡«e­±¥[¤W
Application.ScreenUpdating = False
³Ì«á¥[¤W
Application.ScreenUpdating =True
¥i¥HÃö³¬¿Ã¹õ§ó·s

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD