標題: [發問] 急迫~輸入頁資料匯入各工廠分頁-沒學過VBA [打印本頁]

---

作者: nonww    時間: 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
   
6. 
   
7. 　y = [B65536].End(xlUp).Row - 3
   
8. 　If y <= 0 Then MsgBox "〔產品型號無資料〕！", 0 + 16: Exit Sub
   
9. 
   
10. 　Set xD = Range("B4").Resize(y)
    
11. 　If Application.CountBlank(xD) > 0 Then _
    
12. 　　　MsgBox "〔產品型號〕資料中間有空格！", 0 + 16: Exit Sub
    
13. 
    
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
    
18. 
    
19. 　Union([B1], [D1], [F1]).ClearContents
    
20. 　xD.ClearContents
    
21. 　Beep
    
22. 　End Sub

複製代碼

能否改為輸入頁 KEY上工廠名稱 再點選 登錄
就能匯入到該工廠的分頁
請問這程式碼如何修改

---

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