GBKEE

¦^´_ 1# morris_lth

1. Option Explicit
   
2. Private Sub CommandButton3_Click()
   
3.     Dim i As Integer, Chose As Integer
   
4.     Chose = MsgBox("¬O§_²M°£Àx¦s®æ¤º©Ò¦³¸ê®Æ", vbYesNo + vbQuestion, "´£¥Ü")
   
5.     Select Case Chose
   
6.         Case vbYes
   
7.             For i = 2 To 5
   
8.                 With Sheets(i)
   
9.                     .[B2:C20].Clear         '«ü©w¤u§@ªí½d³ò
   
10.                    '.Range("B2:C20").Clear  '«ü©w¤u§@ªí½d³ò
    
11.                    '.UsedRange.Clear        '¤u§@ªí¤w¨Ï¥Î½d³ò
    
12.                    '.Cells.Clear            '¥þ³¡ªº½d³ò
    
13.                 End With
    
14.             Next
    
15.         Case vbNo
    
16.      End Select
    
17. End Sub

½Æ»s¥N½X