Application.Sum(Sheet.[g10:g20]) ¸Ì­±ªºSheet ¥i¥Î¥N½X¨ú¥N¶Ü¡H

cji3cj6xu6

¤j¤j¦n¡A
½Ð°Ý¡A°²³]§Ú¦³¤Q±iSheet¡A¤À§O¬°Sheet1, Sheet2... Sheet10¡A
¦Ó§Ú¦³¿ìªk±NSum ¸Ì­±ªº Sheet ¦WºÙ§ï¥Î¥N½X¨ú¥N¶Ü¡H

¨Ò¦p,
For DQ=1 To 10

Application.Sum(DQ[g10:g20])

Next

½Ð°Ý¥H¤Wªº¼gªk¥i¦æ¶Ü¡H

ÁÂÁÂ

cji3cj6xu6

¬Ý¨ì2008¦~¦³¤H¼g¹LÃþ¦üªº¼gªk

a = Worksheets("sheet1").Range("a1:a10")
Application.Sum(a)

©Ò¥H§Ú¥i¥H§ï¬°¥H¤U¶Ü¡H


For DQ=1 To 10

a = Worksheets(DQ).Range("g10:g20")
Application.Sum(a)

Next

cji3cj6xu6

³o¼Ëªº¼gªk¦n¹³©Ç©Çªº¡A
·|·Q­n¼g³o­Ó¥D­n¬O¦]¬°¨âªºexcel ÀɮסA
­n±Na Àɮתº¸ê®Æ ²Ä¤@­¶g10 ~G20 ªº©M ¥á¨ìbÀɮתº²Ä¤@­¶ªº¬Y­Ó¦ì¸m¡]°²³]¬Oa1¦n¤F¡^
Ä~Äò·Q·Q¬Ý¡ã

cji3cj6xu6

ÁÂÁªO¥D¶O¤ß¡A§ä®É¶¡¦A¸Õ¬Ý¬Ý¡C

©Ò¥H§ÚÀ³¸Ó¼g¦¨

Sub Ex()

Dim DQ As Integer, A As Range, Address1 as Integer

Address1=1

For DQ = 1 To 10     '¤u§@ªí¯Á¤Þ 1 TO 10

Windows("file1.xls").Active

Set A = Worksheets(DQ).Range("a1:a10")

MsgBox Application.Sum(A)

Windows("file2.xls").Active

Worksheets(DQ).Range("a"& Address1).value=A

Next

End Sub

³o¼Ë¹ï¶Ü¡H

¥t¥~¤@ÂI¡A MsgBox ªº¥\¯à¬O¥´¶}¤@­Ó¹ï¸Ü®Ø¬O¶Ü¡H

¦bµ{¦¡¤¤¤@©w­n¼g¬O¶Ü?

ÁÂÁÂ~

cji3cj6xu6

ÁÂÁÂM¤j¤À¨É¡ã

cji3cj6xu6

ÁÂÁªO¥D¡A¥i¥H¤F¡A³Ì«á¤@¥y
Worksheets(DQ).Range("a"& Address1).value=A
À³¸Ó§ï¬°
Worksheets(DQ).Range("a"& Address1).value=Application.Sum(A)

©Ò¥H¾ã¬qÀ³¸Ó¬O
Sub Ex()

Dim DQ As Integer, A As Range, Address1 as Integer

Address1=1

For DQ = 1 To 10     '¤u§@ªí¯Á¤Þ 1 TO 10

Windows("file1.xls").Activate

Set A = Worksheets(DQ).Range("a1:a10")

MsgBox Application.Sum(A)

Windows("file2.xls").Activate

Worksheets(DQ).Range("a"& Address1).value=Application.Sum(A)

Next

End Sub