標題: [發問] 如何化簡這幾段程式? [打印本頁]

---

作者: av8d    時間: 2014-3-20 16:06     標題: 如何化簡這幾段程式?

1.     Sheets("Sheet3").Select
   
2.     Sheets("Sheet3").Range("B2:D2").Select
   
3.     Selection.Copy
   
4.     Sheets("Sheet1").Select
   
5.     Sheets("Sheet1").Range("B2").Select
   
6.     ActiveSheet.Paste
   
7.     Application.Goto Reference:="R2C2:R200C4"
   
8.     Application.CutCopyMode = False
   
9.     Selection.FillDown
   
10.     Sheets("Sheet2").Select

複製代碼

執行程式的按鈕在Sheet2
當我把第一段Sheets("Sheet3").Select取消時，他會顯是錯誤

---

作者: owen06    時間: 2014-3-20 17:00

1. Private Sub CommandButton1_Click()
   
2. Sheets("sheet1").[b2:d2] = Sheets("sheet3").[b2:d2].Value
   
3. Sheets("sheet1").Select
   
4. Sheets("sheet1").[b2].Resize(199, 3).Select
   
5. Selection.FillDown
   
6. Sheets("Sheet2").Select
   
7. End Sub

複製代碼

回復 1# av8d

這樣子可以嗎？

---

作者: av8d    時間: 2014-3-21 11:00

回復 2# owen06


    讓我學習了很多
如果b2:d2 是公式 也能這樣用嗎？
再次感謝

---

作者: owen06    時間: 2014-3-21 11:13

回復 3# av8d


    可以，因為Sheets("sheet1").[b2:d2] = Sheets("sheet3").[b2:d2].value
    Sheets("sheet3").[b2:d2].value就是只取他的『值』，
    所以sheet1的b2:d2只會取得sheet3的b2:d2公式所得到的值。

---

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