- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
... ³oºØ¸ó¤u§@ªíÅܼƪº»yªkn«ç»ò¼g ...
skyutm µoªí©ó 2012-8-22 22:43
Àx¦s®æªº¤Þ¥Î¥i¥H¥Î¦n´XºØ¤è¦¡,
©³¤UÁ|´XÓ¤ñ¸û²³æ©ö¥Îªº:
1. Sheet¦WºÙ.[Àx¦s®æ]
¨Ò : Sheet1.[c2] = 120 '¥[Åv¤ñ¨Ò
Sheet2.[c3] = 86 '°ê»y¦¨ÁZ¿é¤JÄæ
Sheet3.[c5] = Sheet2.[c3] '¦¨ÁZ³æ°ê»yÄæ
2. Sheets("¤u§@ªí¦WºÙ").Cells(Àx¦s®æ¦C§Ç, Àx¦s®æÄæ§Ç)
Sheets("Sheet1").Cells(2, 3) = 120 '¥[Åv¤ñ¨Ò
Sheets("Sheet2").Cells(3, 3) = 86 '°ê»y¦¨ÁZ¿é¤JÄæ
Sheets("Sheet3").Cells(5, 3) = Sheets("Sheet2").Cells(3, 3) '¦¨ÁZ³æ°ê»yÄæ
3. ³]©w Sheet «ü¼Ð, µM«á¥H«ü¼Ð¥N´À Sheet ¦WºÙ¨Ó¤Þ¥Î
Dim sh1 As Sheet1, sh2 As Sheet2, sh3 As Sheet3
Set sh1 = Sheet1
Set sh2 = Sheet2
Set sh3 = Sheet3
sh1.Range("c2") = 120 '¥[Åv¤ñ¨Ò
sh2.Range("C3") = 86 '°ê»y¦¨ÁZ¿é¤JÄæ
sh3.Range("C5") = sh2.Range("c3") '¦¨ÁZ³æ°ê»yÄæ
¤Wz¤è¦¡¤¤, Sheet ¤Þ¥Î¤è¦¡»P Àx¦s®æ ¤Þ¥Î¤è¦¡³£¥i¥H¤¬¬Û¥N´«,
¨Ò¦p§A¥i¥H¥Î
Sheet1.Cells(2, 3) = 120 '¥[Åv¤ñ¨Ò
³o¸Ìn²¤·L´£¤@¤U Office »¡©ú¤¤¤£¤Íµ½ªº¦a¤è, (§Ú¥Îªº¬O 2003 ª©)
Y§Ú̥Π¤u§@ªí ©Î Àx¦s®æ ¨Ó·j´M¬ÛÃöªº¨Ï¥Î¤è¦¡,
·|µo²{§ä¤£¨ì·Qnªº»¡©ú,
¦Ón¥Î Range ©Î Sheets ¤~¯à (Y¥Î Sheet ¤]¤£¯à) §ä¨ì ¨Ï¥Î Range ª«¥ó°Ñ·ÓÀx¦s®æ ©Î ¨Ï¥Î¦WºÙ°Ñ·Ó¤u§@ªí ¤§Ãþªº»¡©ú,
§Úè¾Ç²ß Excel VBA ®É©¹©¹®ö¶O«Ü¦h®É¶¡¦b§ä·Qn¬Ýªº»¡©ú»P½d¨Ò,
¦³®ÉÁÙ¯uªºº¡®e©öÅý¤H¬ª®ðªº. |
|