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

[µo°Ý] ¦p¦ó±N¸ê®Æ«ö«ü©w¦WºÙ¤ÀÃþ½Æ¨î¨ì¦Uªí®æ

[µo°Ý] ¦p¦ó±N¸ê®Æ«ö«ü©w¦WºÙ¤ÀÃþ½Æ¨î¨ì¦Uªí®æ

ªþ¥óTemp.zip Sheets [Summary/ Jan/ Feb/ Mar/ Apr/ May/ Jun]

·Q±N­nSummary¸Ì¸ê®Æ¥ÎMonth±Æ§Ç«á, «öJan/ Feb/ Mar ¤À§O½Æ¨î¨ì ¦U¤w«Ø¥ßªºªí®æ.

¥ýÁÂÁ¦U¦ì¤F.

temp.zip (2.26 KB)

For i = 2 To [a65536].End(3).Row
Cells(i, 1).Resize(, 4).Copy Sheets(Cells(i, 1).Value).[a65536].End(3)(2, 1)
Next

TOP

For i = 2 To [a65536].End(3).Row
Cells(i, 1).Resize(, 4).Copy Sheets(Cells(i, 1).Value).[a65536].En ...
oobird µoªí©ó 2010-10-31 09:28



    ÁÂÁÂ, ¥H«á¸`¬Ù¤F°µªíªº¤£¤Ö®É¶¡~

TOP

½Ð°Ýoobirdª©¥D
³Ì«áªº(2, 1)¬O¬Ù²¤¤°»òªºÂ²¼g?
¸g´ú¸Õ¡AÀ³¤£¬O¨Ï¥Îoffset¨Ó¦ì²¾....
·PÁ¸Ѵb~

TOP

³Ì«áªº(2, 1)¬O¬Ù²¤¤°»òªºÂ²¼g?
¤£¬O¬Ù²¤¤°»ò¡A¥»¨Ó´N¦³ªº»yªk¡C
(1,1)±q¥»Àx¦s®æºâ°_(¦Û¤v¤]­nºâ)¦V¤U1®æ¡A¦V¥k1®æ¡A¤]´N¬O¤£¦ì²¾¡C
(2,1)±q¥»Àx¦s®æºâ°_(¦Û¤v¤]­nºâ)¦V¤U2®æ¡A¦V¥k1®æ¡A¤]´N¬O¦C¸¹¦V¤U1®æ¡AÄ椣°Ê
(1,2)±q¥»Àx¦s®æºâ°_(¦Û¤v¤]­nºâ)¦V¤U1®æ¡A¦V¥k2®æ¡A¤]´N¬OÄ渹¦V¥k1®æ¡A¦C¤£°Ê
0ªí¥Ü°h1®æ¡A-1ªí¥Ü°h2®æ¡A­ì«h´N¬O¤£¦ì²¾®É¥Î1¡A¦ì²¾¦h¤Ö¦A¥[¦h¤Ö©Î´î¦h¤Ö¡C

TOP

­ì¨Ó¦p¦¹¡A§Ú¤F¸Ñ¤F............
©¹«á»Ý¦ì²¾®É´N¥Î¦¹¼gªk¨Ó¥N´Àoffset
¤~¯à¤Ö¥´´X­Ó­^¤å¦r
ÁÂÁª©¥D~

TOP

¦^´_ 4# gstone
Cells ²¤Æ±¼¤F
  1. Sub EX()
  2. Dim A
  3. Set A = Range("B10")
  4. MsgBox A.Cells(1, 1).Address
  5. MsgBox A.Cells(2, 1).Address
  6. MsgBox A.Cells(1, 2).Address
  7. MsgBox A.Cells(2, 2).Address
  8. End Sub
½Æ»s¥N½X

TOP

­ì¨Ó¬OCellsªºÂ²¤Æ......
²M·¡¤F
·PÁÂGBKEEª©¥D

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD