[µo°Ý] ¦p¦ó¦P®É²M°£¦h­ÓSHEETªº«ü©w¦ì¸mªº¸ê®Æ

morris_lth

°²³]§Ú¦³SHEET1~SHEET5
§Ú·Q½Ð°£©Ò¦³SHEET2~5 ¦ì¸mB2~C20 ªº¸ê®Æ¥]§t®æ½u,¸Ó¦p¦ó°µ©O?

¥t¥~·Q°Ý¥H¤Uµ{¦¡( CommandButton3 ¦bSHEET1),§Ú·Q²M°£SHEET10¬°¦ó·|¥X²{¿ù»~?

Private Sub CommandButton3_Click()
chose = MsgBox("¬O§_²M°£Àx¦s®æ¤º©Ò¦³¸ê®Æ", vbYesNo + vbQuestion, "´£¥Ü")
     Select Case chose
       Case vbYes
         Sheet10.Range(Cells(1, 1), Cells(65536, 256)).ClearContents '²M°£A1~IV65536Àx¦s®æ¸ê®Æ
       Case vbNo
     End Select
End Sub

­ã´£³¡ªL

¤u§@ªíµ{¦¡°Ïªºª«¥ó(RANGE,CELLS....), ­Y¥¼¼Ð¤u§@ªí¦WºÙ, ¦Û°Ê§P¬°¥»ªí, ·|¦³½Ä¬ð¿ù»~,
¥i§ï¬°:
Sheet10.Range(Sheet10.Cells(1, 1), Sheet10.Cells(65536, 256)).ClearContents

²M°£¥þªí, ¥i¦p¤U:
Sheet10.Cells.ClearContents

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

morris_lth

ÁÂÁÂÀ°¦£~