標題: [發問] EXCEL 修改資料的問題 [打印本頁]

---

作者: wu731230    時間: 2013-10-24 15:19     標題: EXCEL 修改資料的問題

不好意思，麻煩各位高手解惑一個問題
我一個EXCEL檔案裡有100個SHEET
我想在"每個"SHEET的A1:A30、 D1:D30、 G1:G30的數值皆改為0
不知道怎麼撰寫VAB?

---

作者: genes    時間: 2013-10-24 16:17

1. Sub Test()
   
2. Dim wbBook As Workbook
   
3. Dim wsSheet As Worksheet
   
4. Set wbBook = ActiveWorkbook
   
5. For Each wsSheet In wbBook.Worksheets
   
6.     With wsSheet
   
7.         .Range("A1:A30").Value=0
   
8.         .Range("D1:D30").Value=0
   
9.         .Range("G1:G30").Value=0     
   
10.     End With
    
11. Next wsSheet
    
12. End Sub

複製代碼

---

作者: wu731230    時間: 2013-10-25 12:42

謝謝，問題解決囉^^

---

作者: GBKEE    時間: 2013-10-26 17:45

回復 1# wu731230

1. Option Explicit
   
2. Sub Ex()
   
3.     With ActiveWorkbook
   
4.        '*****************************************
   
5.        'With Workbooks(2)  ' 不是作用中的活頁簿簿
   
6.        ' .Activate
   
7.        '*****************************************
   
8.         .Sheets.Select
   
9.         .ActiveSheet.Range("A1:A30,D1:D30,G1:G30").Select
   
10.          Selection.Value = 0
    
11.     End With
    
12. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)