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

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

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

¤£¦n·N«ä,½Ð°Ývba¨Ï¥Î¤¤¬A¸¹range[],¥Nªí¤°»ò·N«ä?¬°¦ó¤£¯à¥u¨Ï¥Î()©O?

¥»©«³Ì«á¥Ñ 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

³¡¥÷¤F¸Ñ,¥t¦A¸Õ°Ý«e½ú,[A] = 10        '->["a1:a10"] ¤£±µ¨üÅܼƪº¦r¦ê,¤u§@ªí¨S¤ÏÀ³.

¤£±µ¨üÅܼƪº¦r¦ê,«üªº¬O¥Nªí¨ä¤º§t­È,¦ý¤£Åã¥Ü¦b¤u§@ªí«ü©w¤§½d³ò¤º¶Ü?

TOP

¦^´_ 3# cmo140497

¤¤¬A¸¹ªº¨Ï¥Î¡A²³æªº»¡¬O¦WºÙ¥]¸Ë
¤¤¬A¸¹¤ºªº¤å¦r±Ô­z¡A´N¬O¬¡­¶Ã¯¤¤ªº¦WºÙ
¦WºÙ¦bAPPLICATION¤¤¥L´N¬O¤@­ÓÅܼƦWºÙªº©Ê½è
[A]³o¼Ëªº¼gªk¡A§A¥²»Ý¦A¤u§@ªí¤¤¦³³]¸m¤@­Ó¦W¬°Aªº©w¸q¦WºÙ
[A]´N·|«ü¦V¸Ó©w¸q¦WºÙ
¦P¼Ë¹D²z
[A1:A10]³o¼Ë´N·|«ü¨ìA1:A10ªº½d³ò
¤¤¬A¸¹¤¤¬O¤£¤¹³\¨Ï¥Î¦r¦ê±`¼Æªº
·í§A¥ÎÂù¤Þ¸¹§â¦WºÙ¥]ÂЮÉ["A1:A10"]¡A¦¹®É¬O­Ó¦r¦ê«¬ºA¦Ó¤£¬ONAMEª«¥ó
³o¼Ë´N¤£³QEXCEL©Ò±µ¨ü
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁª©¥Dªº«ü©ú,¤S¾Ç¤@©Û¤F,¤Ó·PÁ±z¤F!

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD