½Ð°Ý«ç»òÅý¥¨¶°°õ¦æ¦¸¼Æ=¬YÓÀx¦s®æ¤¤ªºÈ
- ©«¤l
- 172
- ¥DÃD
- 39
- ºëµØ
- 20
- ¿n¤À
- 177
- ÂI¦W
- 0
- §@·~¨t²Î
- Microsoft Windows XP
- ³nÅ骩¥»
- Microsoft Office 2003
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2023-3-19
 
|
¥»©«³Ì«á¥Ñ 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
|
|
|
|
|