- ©«¤l
- 48
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 60
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2013-4-9
- ³Ì«áµn¿ý
- 2019-12-17
|
¦^´_ 2# owen06
ÁÂÁÂowen06¤j¤jªº¦^ÂÐ
¦ý¦³Ó¦a¤è§A¥i¯à»~·|§Úªº·N«ä¤F¡C
¦b if [b3]>1 Then
[e3]=[e3]+1
³o¼Ë¼ÆÈ¥Ã»·³£¥u·|¦s¦b[e4] ¸Ì¡A§Ú»Ýnªº¬O¡A±q e3 ¤@ª½°O¿ý¨ì e61¡A¶W¹L e61®É¡A´Nĵ§i§Ú¡C
ElseIf [b3]<=1 Then
[e3] = ""
³o¸ÌY¬OªÅ¥Õ¨Ó¦û EÄæªºªÅ¶¡ªº¸Ü¡A´N·|¤£·Ç½T¡A©Ò¥H§Ú¶É¦V§ï¬°
ElseIf [b3]<=1 Then
Worksheets("Sheet1").Range("e3 : e61). Clear
©Ò¥H§Ú·Q°Ý¤@¤U¡AY b3 >1®É¡A´N°O¿ý¨ìe3¨ìe61¸Ì¡A³oÓ¼gªk«ç»ò¼g©O¡H
¦A³Â·Ð¤j¤j¤F¡AÁÂÁ¡C |
|