- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2007
- 閱讀權限
- 10
- 註冊時間
- 2016-2-19
- 最後登錄
- 2016-2-26
|
[發問] 急迫~輸入頁資料匯入各工廠分頁-沒學過VBA
請求大大們協助
因工作需要每次都要開好幾個資料檔KEY工廠的收支等摘要
有看到其他大大寫的VBA 如:
http://blog.xuite.net/smile1000mile/blog/86667604- Sub 登錄()
- Dim xH, xD As Range, i&, y&
- xH = Array([B1], [D1], [F1])
- If xH(0) = "" Or xH(1) = "" Or xH(2) = "" Then _
- MsgBox "表頭資料不齊全或未輸入！", 0 + 16: Exit Sub
- y = [B65536].End(xlUp).Row - 3
- If y <= 0 Then MsgBox "〔產品型號無資料〕！", 0 + 16: Exit Sub
- Set xD = Range("B4").Resize(y)
- If Application.CountBlank(xD) > 0 Then _
- MsgBox "〔產品型號〕資料中間有空格！", 0 + 16: Exit Sub
- With Sheets("總表-1").[A65536].End(xlUp)(2)
- .Resize(y, 3) = xH
- .Cells(1, 4).Resize(y, 5) = xD.Resize(y, 5).Value
- End With
- Union([B1], [D1], [F1]).ClearContents
- xD.ClearContents
- Beep
- End Sub
就能匯入到該工廠的分頁
請問這程式碼如何修改 |
|
發表於 2016-2-23 21:09
| 
