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

[µo°Ý] ­pºâÀx¦s®æ¦³¸ê®Æªº³¡¤À°£¥H2½Æ»s¨ì¥kÃä(·PÁÂr ¤j¤j¦A¦¸²Ó¤ßªº¸Ñµª)(5/2§ó·s)

[µo°Ý] ­pºâÀx¦s®æ¦³¸ê®Æªº³¡¤À°£¥H2½Æ»s¨ì¥kÃä(·PÁÂr ¤j¤j¦A¦¸²Ó¤ßªº¸Ñµª)(5/2§ó·s)

¥»©«³Ì«á¥Ñ av8d ©ó 2012-5-2 08:29 ½s¿è

©m¦W1.2.3.4~©m¦W2.4·|¦Pªø~§Æ±æ¥i¥H­pºâ©m¦W2©Î4ªº¸ê®Æªø«×°£¥H2~¶K¨ì©m¦W5.6.7.




                                                                  ­ì©l¹Ï


¥HG2:G20¨Ó§PÂ_~¤@¦@¦³19®æ~19/2=9¾l1~¦³¾l¼ÆµL±ø¥ó+1~©Ò¥H¥ªÃä¯d10¦C~¨ä¾l9¦C²¾°Ê¨ì¥kÃä




                                                                  §¹¦¨¹Ï
¤£ª¾¹D¬O§_¦³³o­Ó¥\¯à¡A¥Ñ©ó©m¦W1.2.3.4ªº¸ê®Æ¤º³£¦³¨ç¼Æ¡A©Ò¥H¦pªG¬O°Å¤U¶K¤W¥²¶·¬O¶K¤W­È¡C

¦^´_ 1# av8d

¬¡°Ê¼s§i:
1.µo°ÝªÌ½Ð¤W¶ÇEXCELÀ£ÁYÀÉ(¤p¾Ç¥Í¤]¥i¥H)
2.°t¦XEXCELÀɽЧâ¥\¯à»¡©ú²M·¡



M2=IF(OR(D2="",ROW()>ROUNDUP((COUNTA($G:$G)-1)/2,0)+1),"",OFFSET($D$2,ROW()-2,COLUMN()-13))
Q2=IF(OR(OFFSET($D$2,ROW()-2+ROUNDUP((COUNTA($G:$G)-1)/2,0),COLUMN()-17)="",ROW()>ROUNDUP((COUNTA($G:$G)-1)/2,0)+1),"",OFFSET($D$2,ROW()-2+ROUNDUP((COUNTA($G:$G)-1)/2,0),COLUMN()-17))

TOP

¦^´_ 2# register313


    ÁÂÁ¤j¤j~²³æ¨Ó»¡´N¬OABCÄæ¦U¦³100¦C¸ê®Æ~¦]¬°Excel¨S¦³¹³Word¤@¼Ë¦³¤ÀÄ檺¥\¯à~

§Æ±æ§âABCÄ檺51~100¦C¤À¨ìDEFÄæ~Åý¦C¦L¸ê®Æ®ÉÁקK®ö¶O¯È±i!

¦p»Ý­nExcel§Ú¾ã²z¤@¤U~¤W¶Çµ¹±z!

TOP

¦^´_ 3# av8d

1. 2# ªº2­Ó¤½¦¡§Y¬Oµª®×,½Ð¨Ì¹ê»ÚÀx¦s®æ¤§¤À§G±¡§Î¥h­×¥¿¤½¦¡

TOP

¦^´_ 4# register313


    «D±`·PÁ¤j¤jªºÀ°¦£~¦³­Ó¶i¶¥ª©ªº°ÝÃD~¤£ª¾¹D¬O§_¥i½Ð¤j¤j¦AÀ°¦£? ÁÂÁÂ!
ask.rar (37.74 KB)

ªþ¥ó¤¤
¤u§@°Ï-->¤@¯ë¥u¨Ï¥Î¨ì½s¸¹/©m¦W/¦a§}¡A¨ä¾l³£¬O¨ç¼Æ»²§U¥Î³~¡C
¦C¦L³]©w-->·í  ¨CÄæ¡H¦C  ¤U¤è¿é¤J35(¦¹´y­z¥NªíµÛ¦C¦L°Ïªº¨CÄæ¸ê®Æ¦³35µ§)(1~36=35µ§)
                -->·í  ¦@¤À¡HÄæ  ¤U¤è¿é¤J3(¦¹´y­z¥NªíµÛ¦C¦L°Ï¦@¤À¦¨3Äæ)
¦C¦L°Ï-->§¹¦¨«áªºµ²ªG

¤£ª¾¹D¬O§_¦³¿ìªk°µ¥X³o¼Ëªº¹ï·Ó¥\¯à?

TOP

¦^´_ 5# av8d
  1. Sub printx()
  2. LR = Sheets("¤u§@°Ï").[A65536].End(xlUp).Row - 1
  3. R = Sheets("¦C¦L³]©w").[A2]
  4. C = Sheets("¦C¦L³]©w").[B2]
  5. N = Application.RoundUp(LR / R, 0)
  6. Sheets("¦C¦L").Cells = ""
  7. CX = 0
  8. With Sheets("¤u§@°Ï")
  9.   For NX = 1 To N
  10.     RX = Application.RoundUp(NX / C, 0) - 1
  11.     If CX = C Then CX = 0
  12.     .[A1:C1].Copy Sheets("¦C¦L").[A1].Offset((R + 1) * RX, 3 * CX)
  13.     .[A2].Resize(R, 3).Offset(R * (NX - 1), 0).Copy
  14.     Sheets("¦C¦L").[A2].Offset((R + 1) * RX, 3 * CX).PasteSpecial Paste:=xlPasteValues
  15.     CX = CX + 1
  16.   Next NX
  17. End With
  18. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ register313 ©ó 2012-4-16 23:39 ½s¿è

¦^´_ 5# av8d

"¦C¦L"¤u§@ªí¤§
A2=IF(ROUNDUP(COLUMN()/3,0)>¦C¦L³]©w!$B$2,"",OFFSET(¤u§@°Ï!$A$2,MOD(ROW()-2,¦C¦L³]©w!$A$2)+(ROUNDUP(COLUMN()/3,0)-1)*¦C¦L³]©w!$A$2+(ROUNDUP((ROW()-1)/¦C¦L³]©w!$A$2,0)-1)*¦C¦L³]©w!$A$2*¦C¦L³]©w!$B$2,MOD(COLUMN()-1,3),,))
¦V¥k½Æ»s,¦V¤U½Æ»s

TOP

¦^´_ 7# register313


    ¨â­Ó¤èªk³£OK~¤j¤j±z¹ê¦b¤Ó±j¤F~¨ç¼Æ©MVBA³£¼ô~Åý¤pªº¬Û·í¨ØªA!! µ¹§A¤@­ÓÆg!!

TOP

¦^´_ 2# register313


ask.rar (265.68 KB)
    ¤j¤j~½Ð°Ý­n¦p¦ó§¹¦¨1-1~4-2ªº¨ç¼Æ©O?¥i¯à¬O§Ú¤½¦¡ÁÙ¨S§¹¥þºN²M·¡!

TOP

¦^´_ 9# av8d

§Aªþ¥ó¸Ìªº¤½¦¡¨S¿ù
¦ý©ÒÅã¥Ü¤§µª®×¬°¦ó¤£¹ï

ÃöÁä¦b©ó
      COUNTA($H:$H)  HÄ榳¤½¦¡199­Ó,³y¦¨­p¼Æ­Ó¼Æ¬°199 (¿ù»~)
­Y§ï¬°COUNTA($C:$C)   CÄ榳­È7­Ó,­p¼Æ­Ó¼Æ¬°7 (¥¿½T)

=>2­Ó¤½¦¡¸ÌªºCOUNTA($H:$H)¥þ§ï¬°COUNTA($C:$C),§Y¥i¥¿½TÅã¥Ü

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD