標題: 單一按鈕轉換更新單一工作頁資料 [打印本頁]

---

作者: boyao    時間: 2012-10-3 15:24     標題: 單一按鈕轉換更新單一工作頁資料

如附件[attach]12687[/attach]
有多個工作頁資料會固定更新至固定工作頁固定範圍
因目前工作頁眾多...
目前是單一工作頁一個一個寫
請問有沒有辦法用代數的方式.去轉換至所有的工作頁適用
而不需每個工作頁需有獨立的指令

---

作者: boyao    時間: 2012-10-3 15:29

Sorry...
附件更新...
[attach]12688[/attach]

---

作者: mark15jill    時間: 2012-10-4 08:41

本帖最後由 mark15jill 於 2012-10-4 08:42 編輯

回復 2# boyao


直接用 統合 去動作
Private Sub CommandButton4_Click()
    For og = 2 To151  '151可新增
        Select Case og
Case 2 To 51   '區段
            Sheet1.Range("a10:m10").Value = Sheet4.Range("a1:m1").Value
            Sheet1.Range("a" & og + 9, "m" & og + 9).Value = Sheet4.Range("a" & og, "m" & og).Value
Case 52 To 101
            Sheet2.Range("a10:m10").Value = Sheet4.Range("a1:m1").Value
            Sheet2.Range("a" & og - 42, "m" & og - 42).Value = Sheet4.Range("a" & og, "m" & og).Value
Case 102 To 151
            Sheet3.Range("a10:m10").Value = Sheet4.Range("a1:m1").Value
            Sheet3.Range("a" & og - 92, "m" & og - 92).Value = Sheet4.Range("a" & og, "m" & og).Value
        End Select
    Next og

   
End Sub

---

作者: Hsieh    時間: 2012-10-4 10:08

回復 2# boyao


    你的需求是要將分頁資料彙整到資料庫還是要將資料庫資料製成多個分頁?
請將你的需求敘述清楚

---

作者: boyao    時間: 2012-10-4 10:21

感謝大大..
已經了解這種資料轉換的方法了

---

作者: boyao    時間: 2012-10-4 10:36

我需要的形式...
工作頁轉資料庫...
測試出來的方式
Private Sub CommandButton4_Click()
For og = 2 To 151  '151可新增
        Select Case og
Case 2 To 51   '區段
            Sheet4.Range("a" & og, "m" & og).Value = Sheet1.Range("a" & og + 10, "m" & og + 10).Value
Case 52 To 101
            Sheet4.Range("a" & og, "m" & og).Value = Sheet2.Range("a" & og - 41, "m" & og - 41).Value
Case 102 To 151
            Sheet4.Range("a" & og, "m" & og).Value = Sheet3.Range("a" & og - 91, "m" & og - 91).Value
        End Select
    Next og
End Sub

---

作者: mark15jill    時間: 2012-10-4 10:40

回復 6# boyao


    = =  你是要彙整到資料庫?
可是附件內寫的卻是分開..

---

作者: boyao    時間: 2012-10-4 11:05

Sorry...我表達的不夠清楚

---

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