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

¸Ó¦p¦ó´M§ä¤Î§ïÅܦrÅéÃC¦â

¸Ó¦p¦ó´M§ä¤Î§ïÅܦrÅéÃC¦â

¦U¦ì¤j¤j   §Ú·Q½Ð°Ý¤@¤U§Úªºªí³æ¦b²ÂàÁc®É·|§â¤U¦Cªº¦r¤@°_ÂàÅܦp ©¨->À®£¿ªN->³Ç£¿§E->¾l
§Ú¸Ó¦p¦ó§â¥¦¼Ð­p¥X¨Ó   ©¨£¿ªN£¿§E   §Ú·Q§â¥¦³£¼Ð¦¨¶À¦â  ¸Ó¦p¦ó¼g  ³Â·Ð¤@¤U  ·P®¦

Columns("A:A").Select
    Selection.Replace What:="©¨", Replacement:="À®", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "·s²Ó©úÅé"
        .FontStyle = "¼Ð·Ç"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveCell.Characters(Start:=2, Length:=1).Font
        .Name = "·s²Ó©úÅé"
        .FontStyle = "¼Ð·Ç"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16711681
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

ÁÂÁ¤j¤j  §Ú¹Á¸Õ¬Ý¬Ý ·P¿E¤£ºÉ

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD