帖子: 25
主題: 3
精華: 0
積分: 45
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 10
性別: 女
來自: taipei
註冊時間: 2013-11-5
最後登錄: 2024-8-30

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-11-6 18:29 | 只看該作者

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

想請問一下各位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

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

2^#

發表於 2013-11-6 18:55 | 只看該作者

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

[b]Kubi[/b]

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2013-11-6 19:35 | 只看該作者

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

TOP

guaga

小學生 Rank: 1

帖子: 25
主題: 3
精華: 0
積分: 45
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 10
性別: 女
來自: taipei
註冊時間: 2013-11-5
最後登錄: 2024-8-30

4^#

發表於 2013-11-7 08:48 | 只看該作者

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

採購e.zip (22.81 KB)

檔案

TOP

guaga

小學生 Rank: 1

帖子: 25
主題: 3
精華: 0
積分: 45
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 10
性別: 女
來自: taipei
註冊時間: 2013-11-5
最後登錄: 2024-8-30

5^#

發表於 2013-11-7 08:48 | 只看該作者

回復 3# stillfish00

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

TOP

guaga

小學生 Rank: 1

帖子: 25
主題: 3
精華: 0
積分: 45
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 10
性別: 女
來自: taipei
註冊時間: 2013-11-5
最後登錄: 2024-8-30

6^#

發表於 2013-11-7 09:05 | 只看該作者

回復 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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2013-11-7 16:22 | 只看該作者

回復 6# guaga

Option Explicit
Sub test()
Dim arr, i As Integer
Sheets("採購記錄").UsedRange.Offset(1).Clear
With Sheets("採購單")
For i = 10 To .[B30].End(xlUp).Row
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"))
Sheets("採購記錄").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
Next
End With
End Sub