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

½Ð°Ý¦p¦ó­pºâÁ`©M(¨Cµ§¸ê®Æ½d³ò¤£¤@)

½Ð°Ý¦p¦ó­pºâÁ`©M(¨Cµ§¸ê®Æ½d³ò¤£¤@)

¦pÃDÀÉ®×Sheet1»PSheet2Á`©Mªº¦ì¸m¤£¤@¼Ë
¦³¦ó»yªk¥i¥H§PÂ_¥X¸ê®Æ½d³òªº¦C°ª»P¦æ°ª
¨ÏSUM¨ç¼Æ¥i¥H¦b¨º­Ó¸ê®Æ®æ°µ¹Bºâ

Á`©M°ÝÃD.rar (1.57 KB)

YOYO

¦³¦ó»yªk¥i¥H§PÂ_¥X¸ê®Æ½d³òªº¦C°ª»P¦æ°ª
¨ÏSUM¨ç¼Æ¥i¥H¦b¨º­Ó¸ê®Æ®æ°µ¹Bºâ
yanto913 µoªí©ó 2011-2-5 22:26

'Åã¥Ü¥Ø«e­¶­±ªº¨Ï¥Î¦C¼Æ
MsgBox ActiveSheet.Range("A1").CurrentRegion.Rows.Count
'Åã¥Ü¥Ø«e­¶­±ªº¨Ï¥ÎÄæ¼Æ
MsgBox ActiveSheet.Range("A1").CurrentRegion.Columns.Count

«Øij:
¦pªGª½±µ·j´M"Á`©M",¦A©¹¥k²¾°Ê¤@®æ§@­pºâ,¤]¥i¥H¹F¨ì±zªº»Ý¨D.

TOP

¥»©«³Ì«á¥Ñ yanto913 ©ó 2011-2-6 16:16 ½s¿è

ÁÂÁ§A¡I«Ü¨ü¥Î¡A³o¼Ë´N¥i¥Hª¾¹D¸ê®Æ½d³ò¬O¦h¤Ö¶i¦Ó§@Á`©M¹Bºâ
¤£¹L­è­è¸Õ¤@¤UÁÙ¬O¥Î¤£¥X¨Ó¡A¥i§_¥HSheet1¬°¨Ò§@¸Ñµª©O¡H
y = ActiveSheet.Range("A1").CurrentRegion.Rows.Count
¥d¦bActiveCell.cells(5,4) = "SUM(range(cells(2,4):cells(y,4)))"§Ë¤£¥X¨Ó
YOYO

TOP

¦^´_ 3# yanto913


    y = Range("A1").CurrentRegion.Columns.Count - 1
Cells(Rows.Count, 1).End(xlUp).Offset(1, y) = "=SUM(R2C:R[-1]C)"
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# yanto913
  1. Sub Ex()
  2.     Dim Sh As Worksheet
  3.     For Each Sh In Sheets(Array("SHEET1", "SHEET2"))
  4.         With Sh.Range("A1").CurrentRegion
  5.             .Cells(.Count).Offset(1, -1) = "Á`©M"
  6.             .Cells(.Count).Offset(1) = Application.Sum(.Columns(.Columns.Count))
  7.         End With
  8.     Next
  9. End Sub
½Æ»s¥N½X

TOP

«D±`¦n¥Îªºµ{¦¡½X
¤U¸ü¦¬¶°
ÁÂÁÂ
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

ÁÂÁÂÀ°¦£¡IÅý§Ú±q­ì¥»¤°»ò³£¤£·|ªºµæ³¾Åܪº¬ÝªºÀ´¤@¨Ç¤Jªùªº»yªk¡A¦A¦¸·PÁÂ
YOYO

TOP

·PÁ¸ѵª¥¿§V¤O¾Ç²ß¤¤~·PÁÂ!!
JAMES

TOP

ÁÂÁ¡A«Ü¨ü¥Î11111111111111111£á
tzyun

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD