¥Ø«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