麻辣家族討論版版 » Excel程式區 » 一個資料輸問題

返回列表下一主題上一主題發帖

一個資料輸問題

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-10-2 10:16 | 只看該作者

一個資料輸問題

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

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

出貨單.rar (10.28 KB)

存檔.rar (7.14 KB)

樓主熱帖

收藏

hong912

超級版主 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兔年全勤獎章

2^#

發表於 2015-10-2 17:25 | 只看該作者

回復 1# hong912
試試看

Option Explicit
Sub Ex()
Dim Rng As Range, AR(), R
With Workbooks("出貨單.xlsx").Sheets(1)
Set Rng = .Columns("D:D").Find("正確無誤", LookAT:=xlWhole)
If Not Rng Is Nothing Then
AR = .Range("C15:g" & Rng.Row - 1).Value
Else
MsgBox "沒有正確無誤"
Exit Sub
End If
End With
With Workbooks("存檔.xlsx").Sheets(1)
With .Range("c" & .Rows.Count).End(xlUp).Offset(1)
.Resize(UBound(AR), UBound(AR, 2)) = AR
With .Offset(, -2).Resize(UBound(AR))
.Cells = "=month(Today())"
.Value = .Value
End With
With .Offset(, -1).Resize(UBound(AR))
.Cells = "=today()"
.Value = .Value
End With
End With
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

3^#

發表於 2015-10-2 20:42 | 只看該作者

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

hong912

靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。

返回列表下一主題上一主題