GBKEE

¦^´_ 1# swatt

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim a
   
4.     'a = """abc"""  'aÅܼƴN¬O¥Î¨Ó¨ú±o©ñ¦b¼Æ¦r«á­±ªº¤å¦r
   
5.     a = """GBK"""  '¦r¦ê¥[¤W"
   
6.     Selection.NumberFormat = "0.0" & a
   
7. End Sub

½Æ»s¥N½X