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

[µo°Ý] (¤w¸Ñ¨M)¯B°Ê°Ï°ìªº§@·~

¦^´_ 1# freeffly
  1. Sub EX()
  2.     Dim R As Range, i As Integer
  3.     For Each R In Sheet3.Range("G5:G" & Rows.Count).SpecialCells(xlCellTypeConstants).Areas
  4.         R.Cells(R.Count + 1, 1) = "¤p­p"
  5.         For i = 2 To 4
  6.              R.Cells(R.Count + 1, i) = "=sum(" & R.Offset(, i - 1).Address & ")"
  7.         Next
  8.     Next
  9. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-3-3 14:39 ½s¿è
¦^´_  GBKEE
Range("G5:G" & Rows.Count) ¥i¥H¥ÎColumns("G:G")¨ú¥N¶Ü ³o¨â¦U¤è¦¡¦³­þ¸Ì¤£¦P¶Ü?
...
freeffly µoªí©ó 2011/3/3 12:17

¬O¥i¥H¥ÎColumns("G:G")¨Ó¨ú¥Nªº,¦ý¦pg1:g3¦³¼Æ¦r ·|¥¢±¼·Ç½T©Ê
End(3)(2).Resize(, 4)=>.End(xlUp).Cells(2, 1).Resize(1, 4)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-3-3 19:53 ½s¿è

¦^´_ 11# freeffly
³o¬Ovbaªº»¡©ú
expression.Offset(RowOffset, ColumnOffset)   
expression     ¥²¿ï¡C¸Ó¹Bºâ¦¡¶Ç¦^ Range ª«¥ó¡C
RowOffset      ¿ï¾Ü©Êªº Variant¡C¥Î¦C¼Æªí¥Üªº°Ï°ì¦ì²¾ (¥¿­È¡B­t¼Æ©Î¹s (0))¡C¥¿­Èªí¥Ü¦V¤U¦ì²¾¡A­t­Èªí¥Ü¦V¤W¦ì²¾¡C¹w³]­È¬° 0¡C
ColumnOffset      ¿ï¾Ü©Êªº Variant¡C¥ÎÄæ¼Æªí¥Üªº°Ï°ì¦ì²¾ (¾ã¼Æ¡B­t¼Æ©Î 0 (¹s))¡C¥¿­Èªí¥Ü¥k¦ì²¾¡A­t­Èªí¥Ü¥ª¡C¹w³]­È¬° 0¡C

expression.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo)
expression    ¥²¿ï¡C¦¹¹Bºâ¦¡·|¶Ç¦^¤W­z¨ä¤¤¤@­Óª«¥ó¡C
RowAbsolute    ¿ï¾Ü©Êªº Variant¡C­Y¬° True «h¥Hµ´¹ï°Ñ·Ó¼Ò¦¡¶Ç¦^¹ï¦Cªº°Ñ·Ó¡C¹w³]­È¬° True¡C
ColumnAbsolute    ¿ï¾Ü©Êªº Variant¡C­Y¬° True «h¥Hµ´¹ï°Ñ·Ó¼Ò¦¡¶Ç¦^¹ïÄ檺°Ñ·Ó¡C¹w³]­È¬° True¡C
ReferenceStyle    ¿ï¾Ü©Êªº XlReferenceStyle ¡C
XlReferenceStyle ¥i¥H¬O³o¨Ç XlReferenceStyle ±`¼Æ¤§¤@¡C
xlA1 ¹w³]­È¡C¨Ï¥ÎxlA1 ¥i¶Ç¦^ A1 ¼Ë¦¡ªº°Ñ·Ó¡C
xlR1C1¡C¨Ï¥Î xlR1C1 ¥i¶Ç¦^ R1C1 ¼Ë¦¡ªº°Ñ·Ó¡C

External    ¿ï¾Ü©Êªº Variant¡C­Y¬° True «h¶Ç¦^¥~³¡°Ñ·Ó¡C­Y¬° False «h¶Ç¦^°Ï°ì°Ñ·Ó¡C¹w³]­È¬° False¡C
RelativeTo    ¿ï¾Ü©Êªº Variant¡C¦pªG RowAbsolute ©M ColumnAbsolute ¬° False¡A¥B ReferenceStyle ¬° xlR1C1¡A«h¥²¶·¥[¤J¬Û¹ï°Ñ·Óªº°_©lÂI¡C¥»¤Þ¼Æ§Y¬°©w¸q°_©lÂIªº Range ª«¥ó¡C

¥H¤U¬O§Úªº»¡©ú''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
R.Offset(, 2)   ->Rªº½d³ò ¦V¥k²¾°Ê2Äæ
R.Offset(1, 2) ->Rªº½d³ò ¦V¥k²¾°Ê2Äæ ¦V¤U²¾°Ê1¦C

R.Offset(, 2).Address     ->Rªº½d³ò ¦V¥k²¾°Ê2Ä檺µ´¹ï¦ì¸m
R.Offset(1, 2)).Address  ->Rªº½d³ò ¦V¥k²¾°Ê2Äæ ¦V¤U²¾°Ê1¦Cªºµ´¹ï¦ì¸m

TOP

¦^´_ 13# freeffly
¹ïªº

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD