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

[µo°Ý] ½Ð°Ývba¨Ï¥Î¤¤¬A¸¹range[],¥Nªí¤°»ò·N«ä

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-3-16 14:33 ½s¿è

¦^´_ 1# cmo140497
  1. Sub Ex()
  2.     Dim A As String
  3.    
  4.     A = "a1:a10"
  5.     Range(A) = 10   '->Range("a1:a10") ±µ¨üÅܼƪº¦r¦ê,¤u§@ªí¦³¤ÏÀ³.
  6.    
  7.     A = "B1:B10"
  8.     [A] = 10        '->["a1:a10"] ¤£±µ¨üÅܼƪº¦r¦ê,¤u§@ªí¨S¤ÏÀ³.
  9.    
  10.     [D1:D10] = 10    'D1:D10 ¬°¤u§@ªíªº½d³ò  ,¤u§@ªí¦³¤ÏÀ³.
  11.    
  12.     ActiveWorkbook.Names.Add Name:="TEST", RefersTo:=Sheets("Sheet2").Range("G1:G10")
  13.     'Sheet2¿ï©w½d³ò,©w¸q¦WºÙ ¬°TEST
  14.    
  15.     [TEST] = 10    '±µ¨ü¤u§@ªí©w¸q¦WºÙªº½d³ò ,Sheet2 ¤u§@ªí¦³¤ÏÀ³.
  16. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD