- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 120
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-5-18
               
|
本帖最後由 Hsieh 於 2010-12-28 22:23 編輯
- Sub 執行()
- yn = MsgBox("是否執行", vbOKCancel)
- If yn = 1 Then
- With Sheets("總表")
- .Unprotect "0000"
- Sheets("key").Range("A2:C5").Copy .[A2]
- .Protect "0000"
- End With
- Sheets("key").Select
- End If
- End Sub
|
|
發表於 2010-12-28 22:20
| 