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

½Ð°Ý«ç»òÅý¥¨¶°°õ¦æ¦¸¼Æ=¬Y­ÓÀx¦s®æ¤¤ªº­È

¥»©«³Ì«á¥Ñ Min ©ó 2011-7-1 06:37 ½s¿è

Sub AA()
for cnt= 1 to ¤u§@ªí1.Cells(a, 2)
a = ¤u§@ªí1.[A1].End(xlDown).Row
b = ¤u§@ªí1.Cells(a, 5)
Select Case b
Case "AAA"
.
.
.
.
next cnt
End Sub

©Î¬O¦b¼g­ÓSUB
Sub AA2()
for cnt= 1 to ¤u§@ªí1.Cells(a, 2)
call aa
next cnt
End Sub
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

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