- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
4#
發表於 2013-10-26 17:45
| 只看該作者
回復 1# wu731230 - Option Explicit
- Sub Ex()
- With ActiveWorkbook
- '*****************************************
- 'With Workbooks(2) ' 不是作用中的活頁簿簿
- ' .Activate
- '*****************************************
- .Sheets.Select
- .ActiveSheet.Range("A1:A30,D1:D30,G1:G30").Select
- Selection.Value = 0
- End With
- End Sub
複製代碼 |
|