boyao

帖子: 57
主題: 10
精華: 0
積分: 104
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-7-5
最後登錄: 2017-2-18

2013蛇年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-10-3 15:24 | 只看該作者

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

如附件

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

樓主熱帖

boyao

中學生 Rank: 2

帖子: 57
主題: 10
精華: 0
積分: 104
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-7-5
最後登錄: 2017-2-18

2013蛇年全勤獎章

8^#

發表於 2012-10-4 11:05 | 只看該作者

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

boyao

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

7^#

發表於 2012-10-4 10:40 | 只看該作者

回復 6# boyao

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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

boyao

中學生 Rank: 2

帖子: 57
主題: 10
精華: 0
積分: 104
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-7-5
最後登錄: 2017-2-18

2013蛇年全勤獎章

6^#

發表於 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

boyao

TOP

boyao

中學生 Rank: 2

帖子: 57
主題: 10
精華: 0
積分: 104
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-7-5
最後登錄: 2017-2-18

2013蛇年全勤獎章

5^#

發表於 2012-10-4 10:21 | 只看該作者

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

boyao

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 240
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-6

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-10-4 10:08 | 只看該作者

回復 2# boyao

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

學海無涯_不恥下問

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

boyao

中學生 Rank: 2

帖子: 57
主題: 10
精華: 0
積分: 104
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-7-5
最後登錄: 2017-2-18

2013蛇年全勤獎章

2^#

發表於 2012-10-3 15:29 | 只看該作者

Sorry...
附件更新...

20121002TEST.rar (13.21 KB)

boyao

TOP