單一按鈕轉換更新單一工作頁資料

boyao

如附件 20121002TEST.rar (13.25 KB)

下載次數: 3

2012-10-3 15:21

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

boyao

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

mark15jill

回復 6# boyao


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

boyao

我需要的形式...
工作頁轉資料庫...
測試出來的方式
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

boyao

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

Hsieh

回復 2# boyao


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

mark15jill

回復 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

boyao

Sorry...
附件更新...
20121002TEST.rar (13.21 KB)

下載次數: 9

2012-10-3 15:29