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

[µo°Ý] §ïÅܦr«¬

[µo°Ý] §ïÅܦr«¬

½Ð±Ð¦U¦ì¤j¤j:
ªþ¥ó: fonts.zip (22.13 KB)

¦p¦ó¦bC:FÄæ¨ÌBÄæ¦ì©Ò«ü©wªº¦r«¬§ïÅÜ­ì¥ýªº¦r?

P.S. ¹q¸£¤¤ªº¦r«¬,¥i¯à·|¤@ª½¼W¥[,¦]¦r«¬«Ü¦h,·Q¤@¦¸©Ê¬Ý¨ì©Ò¦³ªº¦r«¬¥H¨Ñ®M¥Î,¦p¦ó¿ì¨ì?

¦^´_ 1# PJChen
  1. Sub ex()
  2. On Error Resume Next '¦r«¬¤£¦s¦b·|¥X¿ù¡AÅýµ{§ÇÄ~Äò°õ¦æ
  3. Dim A As Range
  4. For Each A In Range([B2], [B2].End(xlDown))
  5.   ft = Split(A, ".")(0)
  6.   A.Resize(, 5).Font.Name = ft
  7.   Err.Clear '²M°£¿ù»~
  8. Next
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
¤j¤j,

¥i§_À°¦£¬Ý¤@¤U,¦r«¬¦Û²Ä305¦C´NµLªk¦Û°Ê§ïÅܦr«¬¤F,§Ú±N±z¼gªºµ{¦¡¤w¥[¦bÀɮפ¤.

fonts.zip (46.29 KB)

TOP

¦^´_ 3# PJChen

¶W¥XEXCELªº³W®æ­­¨î
°ß¤@ªº¦r«¬Ãþ«¬ 1,024 ºØ³q¥Î¦r«¬¡F¨C¤@­Ó¬¡­¶Ã¯¥i¨Ï¥Î 512 ºØ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh
¤j¤j,

¤F¸Ñ,©Ò¥H§Ú¥i¥H±N§ïÅܪº¦r«¬¥t¦s,¦A°µ¤U¤@¨B! TKS.

TOP

¤j®a¤@°_¬ã¨s¾Ç²ß¦¨ªø

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD