返回列表 上一主題 發帖

[發問] 急迫~輸入頁資料匯入各工廠分頁-沒學過VBA

nonww

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
windows7 
軟體版本
office2007 
閱讀權限
10 
註冊時間
2016-2-19 
最後登錄
2016-2-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-2-23 21:09 | 只看該作者

[發問] 急迫~輸入頁資料匯入各工廠分頁-沒學過VBA

請求大大們協助
因工作需要每次都要開好幾個資料檔KEY工廠的收支等摘要
有看到其他大大寫的VBA  如:
http://blog.xuite.net/smile1000mile/blog/86667604
  1. Sub 登錄()
  2. 　Dim xH, xD As Range, i&, y&
  3. 　xH = Array([B1], [D1], [F1])
  4. 　If xH(0) = "" Or xH(1) = "" Or xH(2) = "" Then _
  5. 　　MsgBox "表頭資料不齊全或未輸入！", 0 + 16: Exit Sub

  7. 　y = [B65536].End(xlUp).Row - 3
  8. 　If y <= 0 Then MsgBox "〔產品型號無資料〕！", 0 + 16: Exit Sub

  10. 　Set xD = Range("B4").Resize(y)
  11. 　If Application.CountBlank(xD) > 0 Then _
  12. 　　　MsgBox "〔產品型號〕資料中間有空格！", 0 + 16: Exit Sub

  14. 　With Sheets("總表-1").[A65536].End(xlUp)(2)
  15. 　　　.Resize(y, 3) = xH
  16. 　　　.Cells(1, 4).Resize(y, 5) = xD.Resize(y, 5).Value
  17. 　End With

  19. 　Union([B1], [D1], [F1]).ClearContents
  20. 　xD.ClearContents
  21. 　Beep
  22. 　End Sub
複製代碼
能否改為輸入頁 KEY上工廠名稱 再點選 登錄
就能匯入到該工廠的分頁
請問這程式碼如何修改
收藏 分享

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題