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

[µo°Ý] ¼Ò²Õµ{§Çµ²§ô°ÝÃD

[µo°Ý] ¼Ò²Õµ{§Çµ²§ô°ÝÃD

¥Ø«e¦³­Óµ{¦¡½X¦p¤U
·í¦bCommandButton4°õ¦æ¤¤¡A·|call¼Ò²Õµ{¦¡text123
text123¤¤¦³¤@§PÂ_¦¡if a<>b then exit sub
¦ýexit sub¥u·|µ²§ô¼Ò²Õµ{¦¡ªº°õ¦æ¡AÀH«á¤S¸õ¦^CommandButton4Ä~Äò°õ¦æ
¯à§_¦bexit sub®É¡Aª½±µµ²§ô±¼µ{¦¡°õ¦æ??





Sub CommandButton4_Click()
Dim myrng As Range
Dim num$, myrow%, dn!, an!, name$, i%
Sheet3.Range("a1:f65535").ClearContents
Sheet1.Range("aa1:ad65535").ClearContents
...........................
..........................................

call text123
......................................
..............................................
end sub
-----------------------------------------------------------------
sub text123
..........
if a<>b then exit sub
........................
end sub

¦^´_ 1# swtseng
End

TOP

³o»ò²³æ¡A§Ú«o¤£·|¡A¥Nªí§Ú¾ÇªºÁÙ¤£°÷.....
·PÁÂ~

TOP

¦^´_ 3# swtseng
§Ú¤]¤£·|¡A¦ý§Aµo°Ý¤FÅý§Ú¦³¾÷·|¾Ç¨ì
³o¬O§Úµo²{³o½×¾Â«á·Pı³Ì¦³§U¯qªº®É­Ô
¦h¬Ý¬Ý§O¤Hªº°ÝÃD¡A¬ã¨s¹L«á¹B¥Î¦b¦Û¤vªº»Ý¨D¸Ì
©¹©¹³£¬O³o¨ÇÃþ¦ü°ÝÃD¡AÅý±µÄ²VBA¤£ªø¤£µuªº®É¶¡¸Ì¾Ç¨ì¤£¤Ö¡A
·PÁµo°ÝªÌ»P¸Ñ´bªÌ¡AÅý§Ú¤S¦³¦¨ªø¡A¦bVBA ªº¨Ï¥Î¤W
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD