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

[µo°Ý] §PÂ_³Q¿ï¨úªºÀx¦s®æ¡A¨Ã¨ú¥X©Ò¦b¦Cªº¬ÛÃö¸ê®Æ

[µo°Ý] §PÂ_³Q¿ï¨úªºÀx¦s®æ¡A¨Ã¨ú¥X©Ò¦b¦Cªº¬ÛÃö¸ê®Æ

§Úªº¤u§@¦³ÂI½ÆÂø¸Ô²Ó»¡©ú¦bªþÀɤº
§Ú§Æ±æ­­¨î¦bBÄ檺B4¥H¤U(¤]´N¬O­q³æ½s¸¹Äæ)¡A¤@¦¸¥uÂI¿ï¤@­ÓÀx¦s®æ«á¡A«ö¤U"¥X³f³æ"«ö¶s¡A´N¯à°÷±N¦¹­q³æ½s¸¹ªº«È¤á­qÁʬÛÃö¸ê°Tcopy¨ì¤u§@­¶"¥X³f³æ"¤§¤¤ªº¬Û¹ïÀ³¦ì¸m¡A¨Ã¶¶«K­pºâ¶ñ¤J³æ¶µ²£«~ª÷ÃB¡C³Ì«á½Æ»s³o¥÷"¥X³f³æ"¤u§@­¶¡A«Ø¥ß¦¨¤@­Ó·s¬¡­¶Ã¯(¥H¦¹­q³æ½s¸¹¬°¦W¡A¤º§t¤@­Ó¤u§@ªí¡A¤]¥H¦¹­q³æ½s¸¹¬°¦W)¡C

§Ú²{¦bªº°ÝÃD¬O
1.¤£ª¾¹D¦p¦ó¥¿½T§PÂ_­þ¤@­Ó­q³æ½s¸¹³Q¿ï¨ú¡CÁöµMªþÀɤw¸g¸Õ¥X¨Ó¡A¦ý°õ¦æ¤£¤Ó¥¿±`¡AÂI¿ïBÄæ¥H¥~¡A«ö"¥X³f³æ"«ö¶s¡A·|¥X²{°»¿ù¡C
2.¤£ª¾¹D¸Ó¦p¦ó¥u§ì¨ú«È¤á¦³­qÁʪº²£«~¡A¶ñ¤J¥X³f³æ¡C

ªþÀɤ¤"¥X³f³æ"¤u§@­¶¡A¬O§Ú¥Î¤H¤u¿é¤J¶i¥hªº¡C
rangetest.rar (16.77 KB)
Jess

  1. Private Sub CommandButton1_Click()
  2. Dim ay()
  3. With Sheets("­q³æ")
  4. r = ActiveCell.Row
  5. a = .Range(.Cells(r, "B"), .Cells(r, "D")).Value
  6. b = .Range(.Cells(r, "U"), .Cells(r, "W")).Value
  7. x = .Cells(r, "S")
  8. y = .Cells(r, "T")
  9. For Each c In .Range(.Cells(r, "G"), .Cells(r, "O")).SpecialCells(xlCellTypeConstants, 1)
  10. k = c.Column
  11. ar = Array(.Cells(3, k), "", c, Val(.Cells(2, k)), c * 20, Val(.Cells(2, k)) * c * 20)
  12. ReDim Preserve ay(s)
  13. ay(s) = ar
  14. s = s + 1
  15. Next
  16. End With
  17. With Sheets("¥X³f³æ")
  18. .[B9:G17] = ""
  19. .[C4].Resize(3, 1) = Application.Transpose(a)
  20. .[F4].Resize(3, 1) = Application.Transpose(b)
  21. .[B9].Resize(s, 6) = Application.Transpose(Application.Transpose(ay))
  22. .[G19] = x
  23. .[G21] = y
  24. .Select
  25. End With
  26. End Sub
½Æ»s¥N½X
¦^´_ 1# jesscc
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


   ÁÂÁÂ H¤j!
§Úµy¬°­×§ï¤F¤@¤U¡Aµo²{¦pªGÂI¿ï¤FB4:B6¤§¥~ªºÀx¦s®æ¡A¦A«ö¥X³f³æ«ö¶s¡AÁÙ¬O·|¥X²{¿ù»~¡C
§Ú¬O§Æ±æ§â¨Ï¥ÎªÌÂI¿ïªº½d³ò­­¨î¦b B4~³Ì«á¤@µ§¸ê®Æ¤º¡AÂI¿ï¨ä¥Lªº¦a¤è¡Aµ{¦¡´N¸õ¥X¤£¤ÏÀ³¡C
ÁÙ¦³¡A¦pªG§Ú«ö¥X³f³æ«ö¶s«á¡Aµ{¦¡µo²{¤w¸g¦³¦P¦WªºÀɮפF¡A°Ý§Ú­n¤£­nÂл\­ìÀÉ¡A­Y¿ï"§_"µ{¦¡¤]·|¥X²{¿ù»~¡A³oºØ±¡¤£ª¾¸Ó¦p¦ó­×¥¿?

rangetest.rar (19.44 KB)
Jess

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-8-27 15:27 ½s¿è

¦^´_ 3# jesscc

¦sÀÉ°ÝÃD¥ý¦Û¤v·j´M¤å³¹¸Ñ¨M
¹J¨ì¤£À´¦A´£¥X
    rangetest.zip (22.73 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    ÁÂÁÂ H¤j¥i¥H¤F
Jess

TOP

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