- ©«¤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 |
|