- 帖子
- 57
- 主題
- 10
- 精華
- 0
- 積分
- 104
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- taiwan
- 註冊時間
- 2012-7-5
- 最後登錄
- 2017-2-18
|
我需要的形式...
工作頁轉資料庫...
測試出來的方式
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 |
|
發表於 2012-10-3 15:24
| 
