返回列表 上一主題 發帖

test

RCRG
　暱稱: RCRG滾奶滾企

中學生Rank: 2

帖子
95 
主題
24 
精華
0 
積分
118 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2015-11-10 
最後登錄
2020-5-25 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-11-22 17:22 | 只看該作者

test

test :'(




Sub 一鍵清空()


    Range("B3:U1000").Select
    Range("B3:U1000").Activate
    Selection.FormulaR1C1 = ""
   
   
    Sheets("檢查未回溫").Select
    Range("B2").Select
   
    [B1] = ""
        

MsgBox "清除完成！"
   
   
End Sub
收藏 分享

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題