§Ú¼g¤F¤@¤p¬qµ{¦¡,²M°£SHEET¤º©Ò¦³ªº¹Ï¤ù,¦ý¬O¥L·|³s¦P±±¨îªºcommand button ¤]¤@³Q§R°£
³oºØ²{¶Hn¦p¦ó³B²z?
Private Sub CommandButton_Clear_Click()
chose = MsgBox("¬O§_²M°£Àx¦s®æ¤º©Ò¦³¸ê®Æ", vbYesNo + vbQuestion, "´£¥Ü")
Select Case chose
Case vbYes
Range(Cells(1, 1), Cells(65536, 256)).ClearContents '²M°£A1~IV65536Àx¦s®æ¸ê®Æ
ActiveSheet.Shapes.SelectAll '¿ï¾Ü©Ò¦³¹Ï¤ù(Barcode)
Selection.Delete '§R°£¹Ï¤ù
Cells(1, 1).Select
Case vbNo
End Select
End Sub |