dea172

帖子: 32
主題: 7
精華: 0
積分: 89
點名: 0
作業系統: windows
軟體版本: 7.0
閱讀權限: 20
註冊時間: 2016-10-20
最後登錄: 2020-11-25

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2018-4-17 13:48 | 只看該作者

[發問] VBA 複製data問題(跨Sheet)

VBA 複製data問題

1.批號抓取來源
說明: 從IPQC內的 G2 欄位將批號複製到A6/A7, 固定將 A6(批號-FQC3)/A7(批號-FQC2)

------------------------------------------------------------------------------------
2.日期抓取data 來源
說明: 直接抓取IPQC C1欄位

------------------------------------------------------------------------------------
3.機台邊號抓取來源
說明: 抓取IPQC L4欄位

------------------------------------------------------------------------------------
4.A1 ~ P data 抓取來源
說明:
若數值有三筆時
IPQC內前三筆數據複製到FQC3 數值內（如圖一）
批號-FQC3 前三筆數值
IPQC內後兩筆數據複製到FQC2 數值內（如圖一）
批號-FQC2 後兩筆數值
圖一

若數值有四筆時
IPQC內前三筆數據複製到FQC3 數值內（如圖二）
批號-FQC3 前三筆數值
IPQC內後兩筆數據複製到FQC2 數值內（如圖二）
批號-FQC2 後兩筆數值
圖二

------------------------------------------------------------------------------------
5.M1 data 抓取來源
說明:
直接將IPQC 內F15/G15 數值複製到 FQC內的AL6/AM6內

FQC 資料需累積下去, 不可清除

VBA-Test.zip (89.84 KB)

樓主熱帖

dea172

中學生 Rank: 2

帖子: 32
主題: 7
精華: 0
積分: 89
點名: 0
作業系統: windows
軟體版本: 7.0
閱讀權限: 20
註冊時間: 2016-10-20
最後登錄: 2020-11-25

32^#

發表於 2018-9-12 13:17 | 只看該作者

回復 31# 准提部林

版主你好,
不好意思, 我研究出來, 還是謝謝你抽空幫忙看

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

31^#

發表於 2018-9-11 19:43 | 只看該作者

回復 30# dea172

只說要刪A4, 什麼條件刪? 何時刪? 轉檔前刪? 或轉檔後?
其它的刪不刪??
刪完後, 轉存檔中的A4欄位置如何處理?
轉檔前, 轉存檔是否已有A4欄資料?

沒有詳細說明, 什也做不了, 何況這程式也有些時日, 得重新了解//

TOP

dea172

中學生 Rank: 2

帖子: 32
主題: 7
精華: 0
積分: 89
點名: 0
作業系統: windows
軟體版本: 7.0
閱讀權限: 20
註冊時間: 2016-10-20
最後登錄: 2020-11-25

30^#

發表於 2018-9-11 14:59 | 只看該作者

回復 29# 准提部林

版主你好,
就是我想將A4欄位整個資料刪除, 後面欄位往上移動一格(如下圖)
轉存檔資料的欄位順序就對不上了, 是沒錯, 所以要修改code, 只是不知道如何修改code

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

29^#

發表於 2018-9-11 14:45 | 只看該作者

回復 28# dea172

刪掉A4, 轉存檔資料的欄位順序就對不上了,
不懂~~

TOP

dea172

中學生 Rank: 2

帖子: 32
主題: 7
精華: 0
積分: 89
點名: 0
作業系統: windows
軟體版本: 7.0
閱讀權限: 20
註冊時間: 2016-10-20
最後登錄: 2020-11-25

28^#

發表於 2018-9-11 13:40 | 只看該作者

回復 dea172

For i = 0 To UBound(Arr) - 1
If Arr(i + 1, 1) = "" Then
'這裡空白即可 ...
准提部林發表於 2018-4-19 16:37

版主你好,
若我想刪除A6欄位(A4), A7~A17 全部往上一格, 想了好久, 但始終無法修改好程式碼, 是否可以幫忙修改, 謝謝!

Test.zip (65.64 KB)

TOP

dea172

中學生 Rank: 2

帖子: 32
主題: 7
精華: 0
積分: 89
點名: 0
作業系統: windows
軟體版本: 7.0
閱讀權限: 20
註冊時間: 2016-10-20
最後登錄: 2020-11-25

27^#

發表於 2018-4-26 13:27 | 只看該作者

回復 26# 准提部林

版主你好,
謝謝版主, 測試可以, 原來這麼簡單.

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

26^#

發表於 2018-4-26 13:18 | 只看該作者

回復 25# dea172

If xB Is Nothing Then Set xB = Workbooks.Open("自行輸入路徑" & "\" & xN)

TOP

dea172

中學生 Rank: 2

帖子: 32
主題: 7
精華: 0
積分: 89
點名: 0
作業系統: windows
軟體版本: 7.0
閱讀權限: 20
註冊時間: 2016-10-20
最後登錄: 2020-11-25

25^#

發表於 2018-4-26 13:05 | 只看該作者

回復 23# 准提部林

版主你好,
再次請問一個問題, 若想將IPQC & FQC 資料放置不同路徑下, 是否可實現此功能? 謝謝

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章