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

°}¦C°ÝÃD

°}¦C°ÝÃD

½Ð±Ð¦U¦ì«e½ú¡A§Ú·Q­n±N¨C¤@­Ó­û¤uªºÁ~¸ê¡A§Q¥Î Á~¸êÀÉ®×() °µ¦¨¸ê®Æ
¦]¤½¥q­û¤u½s¸¹¦³¸õ¸¹¡A¨Ò¦p001, 003, 006, 008...¡A¦ý§Ú¤£¤j·|¼g°}¦C¡A§Ú·Q­n§â­û¤u½s¸¹·í¦¨ÅܼơA½Ð°Ý¦p¦ó­×§ï¡AÁÂÁÂ

Dim Pay(), I As Integer
    Pay = Array("001", "003", "006", "008")  '­û¤u½s¸¹
    For I = 1 To AR()+ 1
        Call Á~¸êÀÉ®×(AR(I))
    Next

¦^´_ 1# funnydisk
½ÐªþÀɬݬÝ

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-10-3 06:53 ½s¿è

¦^´_ 1# funnydisk
¦pªG­û¤u¸ê®Æ²³¦h¡A¤@¯ë§Ú­Ó¤H¬O¤£¤Ó«Øij¨Ï¥Î°}¦C¡A¦]¬°¥¦·|¦û¾Ú¹L¦hªº°O¾ÐÅé¡A
¨Ï±o°õ¦æ³t«×Åܱo¿ð½w¡A®Ä¯q¤£¨Î¡C§A¦ó¤£¸Õ¸Õ³oºØ¤è¦¡¡G
          A                        B                       C
1      001                  ±i¤T                  ...........
2      003                  ¤ý¤­                  ...........
3      006                  »¯¤»                  ...........
4      008                  §õ¥|                  ...........
  1. Sub Test()
  2.     Dim rng As Range
  3.     '  Â^¨ú­û¤u½s¸¹ªº½d³ò
  4.     For Each rng In ¤u§@ªí1.Range("A1:A" & ¤u§@ªí1.[A1].End(xlDown).Row)
  5.         ' Call Á~¸êÀÉ®×(rng)
  6.         MsgBox rng & "   ,   " & rng.Offset(, 1)  
  7.         ' ²Ä¤@­Ó¤º®e·|Åã¥Ü 001 , ±i¤T¡A ²Ä¤G­Ó¤º®e·|Åã¥Ü 003 , ¤ý¤­¡A ....... µ¥¡C
  8.     Next
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# c_c_lai

·PÁÂc_c_lai¤j¤j¡AªGµMrange¤ñ¸û¦n¥Î¡A°õ¦æ¤S§Ö¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD