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

¦³¨S¦³¥ô¦ó¿ìªkÂꦺ¾ã­Ó¬¡­¶Á¡¦rÅé (·s²Ó©úÅé + Arial)

¦³¨S¦³¥ô¦ó¿ìªkÂꦺ¾ã­Ó¬¡­¶Á¡¦rÅé (·s²Ó©úÅé + Arial)

¦³¨S¦³¥ô¦ó¿ìªkÂꦺ¾ã­Ó¬¡­¶Á¡¦rÅé (·s²Ó©úÅé + Arial) ?

¦]¨C¦¸¥Î¥ô¦ó¤èªk¶K¤W³£§ï¥Î¤F  (²Ó©úÅé + Times New Roman)

¦^´_ 1# jakcy1234
¬O³o¼Ë¶Ü?

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

³o­Ó§Úª¾¹D, ¦pªG¥Î ·s²Ó©úÅé ­^¤å¦r¤]¸òÀH ·s²Ó©úÅé
¦ý¬O§Ú´N°¾°¾§ï¥Î ¼Ð·Ç¦r«¬¬° Arial  (¬°¤°»ò§Ú­n³o¼Ë©O? ¦]¬°§Ú­n±N ­^¤å¤Î¼Æ¦r°µ Arial )
¦]¬°§Ú ¶K¤Wªº¸ê®Æ ¬O¥]§t ¤¤¤å¦r¤Î¼Æ¦r (¦p¤U¸ê®Æ) , ¥i±¤ªº¬O ¤¤¤å¦r ÅܤF ²Ó©úÅé..............
²Ó©úÅé ¦³¤£¦n³Bªº¦a¤è ´N¬O±N¦rÅéÂXÁï ,  ÁÙ¦³¦pªG ¦AÂл\¶K¤W ¤]·|ÅܤF¥þ³¡³£¬O ²Ó©úÅé(¤¤­^¼Æ)

(¦p¤U¸ê®Æ)
§ó·s:28/08/2012 14:42     <~~~~~~~~~ ­nÂꦺ¬°  ¤¤¤å¬° ·s²Ó©úÅé    ­^¼Æ¬° Arial
³Ì«á:28/08/2012 14:49

¦Ó§Úª¾¹D C:\WINDOWS\Fonts   ( ²Ó©úÅé & ·s²Ó©úÅé MINGLIU.TTC  ) ¹q¸£³]©w¬°  ²Ó©úÅé ¬O ~~~>  "­º¿ï¥ý"

TOP

¦^´_ 3# jakcy1234
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim C As Range, i As Integer
  4.     For Each C In ActiveSheet.UsedRange
  5.         For i = 1 To Len(C)
  6.             If Asc(Mid(C, i, 1)) >= 0 And Asc(Mid(C, i, 1)) <= 255 Then
  7.                 C.Characters(Start:=i, Length:=i).Font.Name = "Arial"
  8.             Else
  9.                 C.Characters(Start:=i, Length:=i).Font.Name = "·s²Ó©úÅé"
  10.             End If
  11.         Next
  12.     Next
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Dim rCell As Range

  3.             Application.EnableEvents = False
  4.         For Each rCell In Target
  5.             If Len(rCell.Text) > 1 Or _
  6.               Val(rCell.Value) > 1 Then
  7.                 rCell.Font.Name = "Arial"

  8.             Else
  9.                 rCell.Font.Name = "Arial"

  10.             End If
  11.         Next
  12.         Application.EnableEvents = True

  13. End Sub
½Æ»s¥N½X
ÁÂÁ§A¦^µª~~
§Ú§ä¤F¥H¤W¤èªk, ±Nexcel option ³]©w¦^ ·s²Ó©úÅé ¦A¥Î¥H¤W»y¥y Private Sub Worksheet_Change,
°ò¥»¤W¸ò¥­±` ¶K¤W¨S¤À§O(¥H¸U­Ócell), ÁÙµo²{ ¤ñ¸û §Ú¤â°Ê§ï¦rÅ骺®É¶¡ÁÙ§Ö,   ¥i¯à¬O "Âл\¶K¤Wªº®É¶¡" §Ö¹L "¤â°Ê§ï¦ÛÅ骺®É¶¡"

TOP

°ÝÃD¥X²{¤F  ¤£¯àundo..........

TOP

¦^´_ 5# jakcy1234
  1. If Len(rCell.Text) > 1 Or   Val(rCell.Value) > 1 Then
  2.                rCell.Font.Name = "Arial"
  3.             Else
  4.                 rCell.Font.Name = "Arial"
  5.            End If
½Æ»s¥N½X
³oµ{¦¡½X¤£ºÞ¦³µL IF §PÂ_¦¡,³£¬O°õ¦æ rCell.Font.Name = "Arial"
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE

¦ý¬O§Ú§R´î¤F»y¥y«á´N¨S¦³Âà¤F Arial

TOP

¦^´_ 8# jakcy1234
³o¤£»P§A5#ªºµ{¦¡½X¤@¼Ë?
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Dim rCell As Range
  4.     Application.EnableEvents = False
  5.     For Each rCell In Target
  6.         rCell.Font.Name = "Arial"           ' ¤@¼Ëªº ¦r«¬
  7.         '********************************************************
  8.         'If Len(rCell.Text) > 1 Or Val(rCell.Value) > 1 Then   '*
  9.          '       rCell.Font.Name = "Arial"  ' ¤@¼Ëªº ¦r«¬      '*
  10.         'Else                                                  '*
  11.         '        rCell.Font.Name = "Arial"  ' ¤@¼Ëªº ¦r«¬      '*
  12.         'End If                                                '*
  13.         '********************************************************
  14.     Next
  15.     Application.EnableEvents = True
  16. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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