- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 20# andylin
ÁÂÁ§Aªº¹ÏÀÉ ¹j¦æ¦p¹j¤s,§Ú§¹¥þ¬Ý¤£À´.«¢....
Y©ú¤é8:45am¶}½L«e §Ú¶}°_¦¹excelÀÉ«á §Ú¬O§_»Ýn¦Û¤v¤â°Ê±NexcelÄæ¦ì¸Ì¤µ¤éªº¼Æ¾Ú¥þdelete±¼?
µª®×¦b³o¸Ì
Private Sub Workbook_Open() '¦¹µ{¦¡¬OÀɮ׶}±Ò®É¦Û°Ê°õ¦æªºµ{¦¡
Dim E As Range
If MsgBox("±Ò°Ê¦Û°Ê°O¿ý¸ê®Æ??", vbYesNo) = vbNo Then Exit Sub '«ö Yes ·|¨Ì§Ç²M°£¬Q¤é¸ê®Æ «ö No Â÷¶}µ{¦¡
Sheets("1¤ÀK").UsedRange.Offset(1, 1) = "" ' ²M°£¬Q¤é¸ê®Ædelete±¼
Sheets("5¤ÀK").UsedRange.Offset(1, 1) = "" ' ²M°£¬Q¤é¸ê®Æ delete±¼
Sheets("15¤ÀK").UsedRange.Offset(1, 1) = "" ' ²M°£¬Q¤é¸ê®Ædelete±¼
|
|