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

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

2^#

發表於 2013-11-7 08:48 | 顯示全部帖子

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

採購e.zip (22.81 KB)

檔案

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

3^#

發表於 2013-11-7 08:48 | 顯示全部帖子

回復 3# stillfish00

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

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

4^#

發表於 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

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

5^#

發表於 2013-11-7 16:35 | 顯示全部帖子

回復 7# GBKEE

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

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

6^#

發表於 2013-11-8 07:57 | 顯示全部帖子

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

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

7^#

發表於 2013-11-8 08:46 | 顯示全部帖子

回復 12# c_c_lai

1. 採購日期、到貨日期於匯入至 "採購記錄"，如何能同時匯入 YYYYMMDD 型態
我只知道可以在你選取的儲存格 /右鍵/儲存格格式/數值-日期
選擇即可

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

8^#

發表於 2013-11-25 18:59 | 顯示全部帖子

回復 7# GBKEE
不好意思今天在做別的東西的時候發現
我用同樣的表格改了幾個字就完全不理我'了?
Option Explicit
Sub test()
      Dim arr, i As Integer
      Sheets("訂購記錄").UsedRange.Offset(1).Clear
      With Sheets("訂購單")
         For i = 8 To .[B16].End(xlUp).Row
            arr = Array(.[B5], .[D5], .[J5], .[B6], .Cells(i, "B"), .Cells(i, "A"), .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

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

9^#

發表於 2013-11-26 11:54 | 顯示全部帖子

回復 24# GBKEE

訂購單.rar (14.38 KB)
已附上檔案
麻煩版主解決了:dizzy:

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

10^#

發表於 2013-11-26 14:10 | 顯示全部帖子

回復 26# GBKEE

MsgBox .[B15].End(xlUp).Row    這段加進去的話跑起來只會顯示一段
後來我改成

Option Explicit
      Sub TEST1()
         Dim arr, i As Integer
         With Sheets("訂購單")
            For i = 10 To Application.CountA(.[A10:A16]) + 9
                  arr = Array(.[L4], .[N4], .[L7].Text, .Cells(i, "A"), .Cells(i, "C"), .Cells(i, "E"), .Cells(i, "H"), .Cells(i, "I"), .Cells(i, "J"), .Cells(i, "L"))

                  Sheets("訂購記錄").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
            Next
         End With
      End Sub

不過備註欄跑不出來耶  是不是也要標柱 text?