- 帖子
- 45
- 主題
- 1
- 精華
- 0
- 積分
- 51
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 註冊時間
- 2013-4-16
- 最後登錄
- 2013-12-30
|
- Sub Test()
- Dim wbBook As Workbook
- Dim wsSheet As Worksheet
- Set wbBook = ActiveWorkbook
- For Each wsSheet In wbBook.Worksheets
- With wsSheet
- .Range("A1:A30").Value=0
- .Range("D1:D30").Value=0
- .Range("G1:G30").Value=0
- End With
- Next wsSheet
- End Sub
|
|
發表於 2013-10-24 16:17
| 