標題: 一個資料輸問題 [打印本頁]

---

作者: hong912    時間: 2015-10-2 10:16     標題: 一個資料輸問題

本帖最後由 hong912 於 2015-10-2 10:17 編輯

大大們, 早晨
小弟有一問題請教, 我想從出貨檔案內輸入資料至另一檔案存檔內, 可否做到如附件中表達之情況, 謝謝!!

[attach]22132[/attach][attach]22133[/attach]

---

作者: GBKEE    時間: 2015-10-2 17:25

回復 1# hong912
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, AR(), R
   
4.     With Workbooks("出貨單.xlsx").Sheets(1)
   
5.         Set Rng = .Columns("D:D").Find("正確無誤", LookAT:=xlWhole)
   
6.         If Not Rng Is Nothing Then
   
7.             AR = .Range("C15:g" & Rng.Row - 1).Value
   
8.         Else
   
9.             MsgBox "沒有  正確無誤"
   
10.             Exit Sub
    
11.         End If
    
12.     End With
    
13.     With Workbooks("存檔.xlsx").Sheets(1)
    
14.         With .Range("c" & .Rows.Count).End(xlUp).Offset(1)
    
15.             .Resize(UBound(AR), UBound(AR, 2)) = AR
    
16.             With .Offset(, -2).Resize(UBound(AR))
    
17.                 .Cells = "=month(Today())"
    
18.                 .Value = .Value
    
19.             End With
    
20.             With .Offset(, -1).Resize(UBound(AR))
    
21.                 .Cells = "=today()"
    
22.                 .Value = .Value
    
23.             End With
    
24.         End With
    
25.     End With
    
26. End Sub

複製代碼

---

作者: hong912    時間: 2015-10-2 20:42

回復 2# GBKEE
已試用, 感謝版大, 衷心感謝, 謝謝!!

---

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