[發問] 如何將"採購單"內容依序寫入另一個sheet?

guaga

想請問一下各位VBA高手~
最近在研究一個能讓
如何將"採購單"內容依序寫入另一個"庫存記錄"sheet?
(本來想要用附加檔案 會比較好說明 可是附加不上來)

有點像
https://www.youtube.com/watch?v=deRlUjhIHOo   
這種狀況

以下是寫的資料,已經想了好久爬了滿多的文 除了看不懂的之外
我這個新手就是不會寫呀
麻煩各位了

Sub 寫入資料()
If Range("A:A").End(xlDown).Row = 65536 Then
End If
Dim a(10)
a(0) = Range("B5")
a(1) = Range("D5")
a(2) = Range("J5")
a(3) = Range("C6")
a(4) = Range("B9")
a(5) = Range("D9")
a(6) = Range("E9")
a(7) = Range("F9")
a(8) = Range("G9")
a(9) = Range("H9")
a(10) = Range("I9")


Sheets("庫存記錄").Select

End Sub

Kubi

Sub test()
    Dim arr
    Sheets("採購單").Select
    arr = Array([B5], [D5], [J5], [C6], [B9], [D9], [E9], [F9], [G9], [H9], [I9])
    Sheets("庫存記錄").Select
    Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
End Sub

stillfish00

回復 1# guaga
允許上傳的檔案附件類型為:chm, pdf, zip, rar, tar, gz, bzip2, gif, jpg, jpeg, png。
所以，壓縮後再上傳吧

guaga

回復 2# Kubi
你好 我試過這樣的方法 不過 不行耶
已附上檔案

guaga

回復 3# stillfish00


    你好,我已經付上檔案了 麻煩你了

guaga

回復 2# Kubi

我已經弄好了 非常謝謝你  是我自己把欄位填錯所以顯示不出來
不過"品名"的地方 有資料,卻顯示不出來耶

Sub test()
    Dim arr
    Sheets("採購單").Select
    arr = Array([D5], [J5], [B6], [C10], [D10], [E10], [F10], [G10], [H10], [I10], [J10])
    Sheets("採購記錄").Select
    Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
End Sub

GBKEE

回復 6# guaga

1. Option Explicit
   
2. Sub test()
   
3.     Dim arr, i As Integer
   
4.     Sheets("採購記錄").UsedRange.Offset(1).Clear
   
5.     With Sheets("採購單")
   
6.         For i = 10 To .[B30].End(xlUp).Row
   
7.             arr = Array(.[B5], .[D5], .[J5], .[B6], .Cells(i, "B"), .Cells(i, "D"), .Cells(i, "E"), .Cells(i, "F"), .Cells(i, "G"), .Cells(i, "H"), .Cells(i, "I"), .Cells(i, "J"))
   
8.             Sheets("採購記錄").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
   
9.         Next
   
10.     End With
    
11. End Sub

複製代碼

guaga

回復 7# GBKEE

版主你好
這樣使用上沒有問題
可是輸入下筆資料時能之前的資料就會不見 有解嗎

GBKEE

回復 8# guaga
這行程式碼駐解掉

1. 'Sheets("採購記錄").UsedRange.Offset(1).Clear

複製代碼

guaga

回復 9# GBKEE
謝謝版主幫我解決這個問題
可以順便請問一下 一開始我寫的那個程式 為甚麼會行不通嗎?