- ©«¤l
 - 5923 
 - ¥DÃD
 - 13 
 - ºëµØ
 - 1 
 - ¿n¤À
 - 5986 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - win10 
 - ³nÅ骩¥»
 - Office 2010 
 - ¾\ŪÅv
 - 150 
 - ©Ê§O
 - ¨k 
 - ¨Ó¦Û
 - ¥xÆW°ò¶© 
 - µù¥U®É¶¡
 - 2010-5-1 
 - ³Ì«áµn¿ý
 - 2022-1-23 
 
           
 | 
                
 ¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-3-16 14:33 ½s¿è  
 
¦^´_ 1# cmo140497 - Sub Ex()
 
 -     Dim A As String
 
 -     
 
 -     A = "a1:a10"
 
 -     Range(A) = 10   '->Range("a1:a10") ±µ¨üÅܼƪº¦r¦ê,¤u§@ªí¦³¤ÏÀ³.
 
 -     
 
 -     A = "B1:B10"
 
 -     [A] = 10        '->["a1:a10"] ¤£±µ¨üÅܼƪº¦r¦ê,¤u§@ªí¨S¤ÏÀ³.
 
 -     
 
 -     [D1:D10] = 10    'D1:D10 ¬°¤u§@ªíªº½d³ò  ,¤u§@ªí¦³¤ÏÀ³.
 
 -     
 
 -     ActiveWorkbook.Names.Add Name:="TEST", RefersTo:=Sheets("Sheet2").Range("G1:G10")
 
 -     'Sheet2¿ï©w½d³ò,©w¸q¦WºÙ ¬°TEST
 
 -     
 
 -     [TEST] = 10    '±µ¨ü¤u§@ªí©w¸q¦WºÙªº½d³ò ,Sheet2 ¤u§@ªí¦³¤ÏÀ³.
 
 - End Sub
 
  ½Æ»s¥N½X |   
 
 
 
 |