¦p¦ó¦b«ü©wªº©w¸q¦WºÙ¤º«ü©w½d³ò¥[Á`©O¡H
- ©«¤l
- 231
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 293
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KEELUNG
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2018-8-28
|
¦p¦ó¦b«ü©wªº©w¸q¦WºÙ¤º«ü©w½d³ò¥[Á`©O¡H
¦U¦ì¤j¤j¦n¡G
¦b»ä·´Á°Ý¡A¯¬ºÖ¤j®a³£¯à¥¦w¶¶¤ß¡C
¤p§Ì¦³¤@°ÝÃD·Q½Ð°Ý¦b¤@¤u§@ªí¤º«ü©w¤F©w¸q¦WºÙ¬°¡G mySum
¨ä©w¸q¦WºÙ½d³ò¡G range("a1:b8")
³]¦³
a1:a8¤º®e¬°¡G ¦WºÙ,a,b,c,d,e,f,g
b1:b8¤º®e¬°¡G ¼Æ¶q,10,20,30,40,50,60,70
²{n¦b«ü©wªºb9Äæ¦ì¥[Á`b2:b8
½Ð°Ý¨ä¤GºØ»yªk¬°¦ó©O¡H
»yªk¦p¤U¡G
Sub aa()
Dim mSht As Worksheet
Dim mRng As Range
Dim mRng1 As Range
Dim mRng2 As Range
Set mSht = Worksheets(1)
With mSht
Set mRng = .Range("b9")
Set mRng1 = Range("mysum").Cells(2, 2)
'MsgBox mRng1.Address
Set mRng2 = Range("mysum").Cells(8, 2)
'MsgBox mRng2.Address
'mRng.Formula = "=sum(mrng1 &":"& mrng2)" '²Ä¤@ºØ»yªk
'mRng.Formula= "sum(range("mysum").cells(2,2) &":"& range("mysum").cells(8,2)) '²Ä¤GºØ»yªk
End With
End Sub
·PÁ¦U¦ì¤j¤j¡C |
|
|
|
|
|
|
- ©«¤l
- 231
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 293
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KEELUNG
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2018-8-28
|
ÁÂÁª©¥D¤j¤j¡C
¤p§Ì¤Þ¥Î¤j¤jªº»yªk¤w¹F¦¨¶·¨D¡C
¥Ø«e©|¦b¬ã¨s¬O§_¦³¨ä¥L»yªk¥i¾A¥Î©O¡C
·P®¦ª©¥D¤j¤j¡I |
|
|
|
|
|
|
- ©«¤l
- 231
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 293
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KEELUNG
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2018-8-28
|
ÁÂÁ¦U¦ì¤j¤j¡C
¤p§Ì·|¦n¦n¬ã¨s¨Ã¥[À³¥Î¡C
·P®¦¦U¦ì¤j¤j¡I |
|
|
|
|
|
|
- ©«¤l
- 231
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 293
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KEELUNG
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2018-8-28
|
ÁÂÁ¦U¦ìª©¥D¤j¤j¡C
¤p§Ì¯u¬O¨ü¯q¨}¦h¡C |
|
|
|
|
|
|